Nguyên văn bởi taotao395
QUẢNG CÁO ĐẦU TRANG
Collapse
Thông báo
Collapse
No announcement yet.
Visual Lisp
Collapse
X
-
[QUOTE=YaLang]
Tôi cũng đồng tình với taotao395, xin chỉ giúp: làm cách nào có thể chèn nhiều trang Excel sang ACAD một cách tiện lợi nhất mà không phải "sì ca le" (scale)?! Tôi cũng đã chèn nhưng thấy cực quá!
Hiện tôi đang dùng một chương trình viết bằng LSP, hàng mĩ chính gốc đó (mĩ phiến: miễn phí), thấy cũng "tiềm tiệm", gởi taotao395 và qúy huynh_đệ_tỳ_muội cũng "xơi" thử.
Hàng trên là của đi xin, tôi cũng có ý định như các bạn: dùng Excel để hỗ trợ tinh tóan, dùng ACAD để vẽ, nên có viết một chương trình nhỏ, chỉ mới tạm xong (vì chưa bao quát hết tình huống khi sử dụng) phần tính, còn phần vẽ thì chưa xong, cũng xin gởi để qúy huynh_đệ_tỳ_muội góp ý!
Thân chào
File Kèm Theo LSP.zip (191.2 KB, 90 lần tải)
THONGKE.zip (415.9 KB, 96 lần tải)
huongdan.txt (8.5 KB, 65 lần tải)
Cho em hoi tí
Trong lile huongdan.txt của anh có đoạn
6/ Thực hiện theo hướng dẫn
Lưu ý:
+ Cài đặt từ ổ A.
+ Ổ A: Hệ thống gọi ổ đĩa nào là A thì phải chép thư mục LSP lên đó để cài đặt.
Sử dụng Thống Kê trong ACAD:
1/ Tải (load) file "tkct.fas"
2/ Đánh lệnh "tkt" rồi nhấn nút ENTER
em chỉ tìm thấy caidat.fas và cailai.fas trong lile LSP.zip mà thôi không thấy tkct.fas đâu cả
Nếu ổ A là ổ mềm thì có cài được không. Xin anh chỉ giup.
Ghi chú
-
Nguyên văn bởi YaLangTôi cũng đồng tình với taotao395, xin chỉ giúp: làm cách nào có thể chèn nhiều trang Excel sang ACAD một cách tiện lợi nhất mà không phải "sì ca le" (scale)?! Tôi cũng đã chèn nhưng thấy cực quá!
Hiện tôi đang dùng một chương trình viết bằng LSP, hàng mĩ chính gốc đó (mĩ phiến: miễn phí), thấy cũng "tiềm tiệm", gởi taotao395 và qúy huynh_đệ_tỳ_muội cũng "xơi" thử.
Hàng trên là của đi xin, tôi cũng có ý định như các bạn: dùng Excel để hỗ trợ tinh tóan, dùng ACAD để vẽ, nên có viết một chương trình nhỏ, chỉ mới tạm xong (vì chưa bao quát hết tình huống khi sử dụng) phần tính, còn phần vẽ thì chưa xong, cũng xin gởi để qúy huynh_đệ_tỳ_muội góp ý!
Thân chào
Cho em hoi tí
Trong lile huongdan.txt của anh có đoạn
6/ Thực hiện theo hướng dẫn
Lưu ý:
+ Cài đặt từ ổ A.
+ Ổ A: Hệ thống gọi ổ đĩa nào là A thì phải chép thư mục LSP lên đó để cài đặt.
Sử dụng Thống Kê trong ACAD:
1/ Tải (load) file "tkct.fas"
2/ Đánh lệnh "tkt" rồi nhấn nút ENTER
em chỉ tìm thấy caidat.fas và cailai.fas trong lile LSP.zip mà thôi không thấy tkct.fas đâu cả
Nếu ổ A là ổ mềm thì có cài được không. Xin anh chỉ giup.
Ghi chú
-
Nguyên văn bởi ttkhTrên là bài của anh YALANG
Cho em hoi tí
Trong lile huongdan.txt của anh có đoạn
6/ Thực hiện theo hướng dẫn
Lưu ý:
+ Cài đặt từ ổ A.
+ Ổ A: Hệ thống gọi ổ đĩa nào là A thì phải chép thư mục LSP lên đó để cài đặt.
Sử dụng Thống Kê trong ACAD:
1/ Tải (load) file "tkct.fas"
2/ Đánh lệnh "tkt" rồi nhấn nút ENTER
em chỉ tìm thấy caidat.fas và cailai.fas trong lile LSP.zip mà thôi không thấy tkct.fas đâu cả
Nếu ổ A là ổ mềm thì có cài được không. Xin anh chỉ giup.
1/ Xin lưu ý với bạn là: chỉ sau khi cài đặt thành công mới có file tkct.fas. Để cài đặt, bạn cứ thực hiện đúng như hướng dẫn trong huongdan.txt là được. Tuy nhiên, có thể là sẽ không biết được tập tin tkct.fas đó nằm ở đâu thôi (nó nằm trong thư mục LSP thuộc đường dẫn mặc định của ACAD, mà đường dẫn này thì mỗi phiên bản ACAD lại khác nhau!)! Bạn có thể dùng chức năng tìm kiếm (Search hoặc Find Files) của Windows hoặc của một trình quản lý tập tin nào đó cũng được (ví dụ: Norton Commander, Total Commander...). Khi đã biết nó nằm ở đâu rối thì chỉ cần tải nó lên (trong ACAD) là chạy được thôi (tất nhiên là phải đánh lệnh tkt).
2/ Ổ mềm là ổ A thì vẫn cài được, không có vấn đề gì.
Xin lỗi bạn nhé: tôi đã nhận được thắc mắc của bạn trên diễn đàn mấy hôm trước, nhưng khi trả lời cho bạn thì không thể nào được (bị từ chối gởi bài!), hôm nay thử gởi lại xem sao!
Cảm ơn bạn đã quan tâm, và chúc bạn thành công. Nếu có gì thắc mắc xin bạn cứ liên hệ với tôi qua diễn đàn hoặc email.
Thân chàoLast edited by YaLang; 30-01-2005, 01:55 PM.
Ghi chú
-
Ðề: Visual Lisp
;;;
;;; Cong don cac so chon
; ****************************************************************
(defun C:CO (/ cnt enam ent pnt s1 tot v1 val)
(setvar "CMDECHO" 0)
(prompt "\nChon cac so muon cong: ")
(setq s1 (ssget))
(prompt "\nDiem dat ket qua: ")
(setq pnt (getpoint))
(setvar "cmdecho" 0)
(setq tot 0)
(if s1
(progn
(setq cnt (1- (sslength s1)))
(while (>= cnt 0)
(setq enam (ssname s1 cnt))
(setq ent (entget enam))
(if (= (cdr (assoc 0 ent)) "TEXT")
(progn
(setq v1 (assoc 1 ent))
(setq val (atof (cdr v1)))
(if (and (numberp val) (/= val 0))
(progn
(setq tot (+ val tot))
)
)
)
)
(setq cnt (1- cnt))
))
)
(setq tot (rtos tot 2))
(command "text" pnt "" "" tot)
(princ)
(setvar "cmdecho" 1)
)
Xin các anh chỉ giúp : Đoạn Lisp này có gì sai mà em thể thực hiện được.
Sau khi đánh lệnh, chọn đối tượng cần cộng thì kết quả là 0.000Last edited by ttkh; 14-02-2005, 10:23 AM.
Ghi chú
-
Ðề: Visual Lisp
Nguyên văn bởi ttkh;;;
;;; Cong don cac so chon
; ****************************************************************
(defun C:CO (/ cnt enam ent pnt s1 tot v1 val)
(setvar "CMDECHO" 0)
(prompt "\nChon cac so muon cong: ")
(setq s1 (ssget))
(prompt "\nDiem dat ket qua: ")
(setq pnt (getpoint))
(setvar "cmdecho" 0)
(setq tot 0)
(if s1
(progn
(setq cnt (1- (sslength s1)))
(while (>= cnt 0)
(setq enam (ssname s1 cnt))
(setq ent (entget enam))
(if (= (cdr (assoc 0 ent)) "TEXT")
(progn
(setq v1 (assoc 1 ent))
(setq val (atof (cdr v1)))
(if (and (numberp val) (/= val 0))
(progn
(setq tot (+ val tot))
)
)
)
)
(setq cnt (1- cnt))
))
)
(setq tot (rtos tot 2))
(command "text" pnt "" "" tot)
(princ)
(setvar "cmdecho" 1)
)
Xin các anh chỉ giúp : Đoạn Lisp này có gì sai mà em thể thực hiện được.
Sau khi đánh lệnh, chọn đối tượng cần cộng thì kết quả là 0.000
Đoạn mã lệnh của cậu chỉ có thể cộng được số dạng Text nguyên bản. Các đối tượng khác như Mtext, Dim Text... thì sẽ cho ra kết quả = 0.000
Đây là đoạn mã chuẩn của lệnh trên. Lệnh có thể cộng được Text và Mtext.
Bạn có thể so sánh rồi tìm hiểu.
Chúc thành công !
;-------------------------------
;Cong Text, Mtext
;-------------------------------
(defun C:CONG (/ cnt enam ent pnt s1 tot v1 val)
(setvar "CMDECHO" 0)
(prompt "\nChon cac so muon cong: ")
(setq s1 (ssget '((0 . "*Text")) ))
(setvar "cmdecho" 0)
(setq tot 0)
(if s1
(progn
(setq cnt (1- (sslength s1)))
(while (>= cnt 0)
(setq enam (ssname s1 cnt))
(setq ent (entget enam))
(if (or (= (cdr (assoc 0 ent)) "TEXT")
(= (cdr (assoc 0 ent)) "MTEXT"))
(progn
(setq v1 (assoc 1 ent))
(setq val (atof (cdr v1)))
(if (and (numberp val) (/= val 0))
(progn
(setq tot (+ val tot))
)
)
)
)
(setq cnt (1- cnt))
))
)
(if(and tot (setq pnt(getpoint(strcat "\nDiem dat ket qua <"(setq tot (rtos tot 2 3))">: "))))
(command "_.Text" pnt "" "" tot)
(princ tot))
(princ)
)
Ghi chú
-
Ðề: Visual Lisp
Tiện ích anh YaLang Post. Em đao về chạy rồi. Chạy ACAD rất hay, chỉ sau bị lổi, ko cho phép chỉnh sữa, cứ báo là "bad number..:nil" gì đó hoài. Anh chỉnh sửa lại nhé anh. Rất hay anh ạ. Nếu anh Open sourse ra, em có thể giúp anh chỉnh sửa lại những lổi đó.
Xài mà cứ bị lổi hòai, bực mình lắm anh ạ.!
Ghi chú
-
Ðề: Visual Lisp
Nguyên văn bởi Tran Duc MinhTiện ích anh YaLang Post. Em đao về chạy rồi. Chạy ACAD rất hay, chỉ sau bị lổi, ko cho phép chỉnh sữa, cứ báo là "bad number..:nil" gì đó hoài. Anh chỉnh sửa lại nhé anh. Rất hay anh ạ. Nếu anh Open sourse ra, em có thể giúp anh chỉnh sửa lại những lổi đó.
Xài mà cứ bị lổi hòai, bực mình lắm anh ạ.!
Trước tiên: xin lỗi vì đã làm bạn phải "bực mình", sau là: xin cảm ơn vì bạn đã quan tâm đến chương trình!
Để khỏi phải "bực mình", bạn nên thực hiện như sau:
1/ Trong khi đang vẽ bảng thống kê thì xin "tuyệt đối không dùng đến các chức năng sửa chữa"!
2/ Chỉ sau khi đã vẽ xong bảng TKT rồi, vẽ bảng tổng hợp, lưu nó (save file) lại, đóng nó vào, rồi... lại mở nó ra (!), khởi động lại chương trình thống kê thép, đánh lệnh tkt, chọn bất cứ chức năng nào (sửa chữa, tổng hợp thép theo từng cấu kiện...) đều được cả, nhưng nhớ là "tuyệt đối không được đụng đến 02 chức năng đầu (vẽ bảng thống kê, vẽ bảng tổng hợp) trước và đang khi dùng các chức năng khác"! Hình như nó bị bệnh "trùng biến" hay sao đó!
Nếu bạn thích, tôi sẽ gởi đến bạn các tập tin nguồn của nó (chủ nhân của nó đã gởi cho tôi, cũng với ý định như bạn), tuy nhiên, chỉ có những tập tin cũ thôi, những tập tin cuối cùng (được dịch ra để sử dụng) đã "qua đời trong một cơn bạo bệnh" rồi (định dạng lại ổ cứng để cài lại hệ thống)! Nhưng mà... nhức đầu lắm, nó có hàng... "đống" biến, không biết đâu mà rờ! Mong rằng bạn kiên nhẫn hơn tôi!
Bởi vậy, dựa trên mẫu có sẵn, tôi đang viết một chương trình khác bằng VBA thông qua Excel (cũng đã gởi lên để các bạn tham khảo, nhưng mới chỉ là thử nghiệm).
Thân.
Tái bút: nếu bạn chỉnh sửa tốt hơn thì nhớ gởi lên cho anh em cùng dùng nhé!
Ban QT ơi, sao không dùng được các chức năng định dạng chữ?!! (làm đậm, nghiêng, gạch dưới chữ)
Ghi chú
-
Ðề: Visual Lisp
Start > settings > Control Panel > Fonts >
Vào menu: File > Install New Font...
Chọn thư mục chứa bộ cài dự toán, tìm xem có Fonts không (thường là có)
Nhấn Select All rồi OK.
Log Off hoặc Khởi động lại Windows.
TCVN Fonts cho dự toán 2002:Attached FilesLast edited by nglam_adg; 25-03-2005, 12:34 PM.
Ghi chú
Quảng cáo cuối trang
Collapse
Ghi chú