Ðề: Visual Lisp

((= ldt "dx") (setq ldt "SÐáxây="))
((= ldt "bt") (setq ldt "SBêtông="))
((= ldt "d" ) (setq ldt "SÐào="))
((= ldt "dd") (setq ldt "SÐ?p="))
((= ldt "ph") (setq ldt "SP.hoá="))
((= ldt "ck") (setq ldt "SC.khay="))
((= ldt "dl") (setq ldt "SDam l?c="))
((= ldt "cl") (setq ldt "SCát l?c="))
((= ldt "tc") (setq ldt "SÐàoTC="))
((= ldt "tcc") (setq ldt "SÐ?p TC="))
((= ldt "lk") (setq ldt "SÐálkhan= "))
((= ldt "cp") (setq ldt "SC.ph?i= "))
((= ldt "dm") (setq ldt "Fdm = "))
)
Nếu như bạn cần tính diện tích hình đó là bê tông thì kind là bt
sẽ ra kết quả lkà Sbêtông=......m²
OK chứ

Ðề: Visual Lisp

Khi chọn xong nó hỏi "Kind of area" là gì vậy Bác?

Ðề: Visual Lisp

Tặng đồng chí nhé viết làm gì cho mệt óc thử xem có ra gì khổng
(Defun c:aer ()
(setvar "cmdecho" 0)
(command "osnap" "none")
(setq tl (getreal "\n Scale for Drawing : "))

(setq r 50 )
(repeat r
(setq pt (getpoint "\n Pick point : "))
(setq am (* tl tl))
(setq s 0)

(progn
(while pt
(setq entold (cdr (assoc 5 (entget (entlast)))))
(command "boundary" pt "")
(setq entnew (cdr (assoc 5 (entget (entlast)))))
(if (/= entold entnew)
(progn
(setq entnew (entget (entlast)))
(if (assoc 62 entnew)
(setq
entnew (subst (cons 62 (+ 3 (cdr (assoc 62 entnew))))
(assoc 62 entnew)
entnew
)
)
(setq entnew
(append
entnew
(list
(cons
62
(+ 3
(cdr
(assoc 62
(tblsearch "layer"
(cdr (assoc 8 entnew))
)
)
)
)
)
)
)
)
)


(entmod entnew)
(Command "area" "o" (entlast))
(setq s (+ s (getvar "area")))
(setq pt (getpoint "\n Pick point: "))
(entdel (entlast))
)
(progn
(princ "Error Wrong Point")
(setq pt (getpoint "\n Pick point: "))
)
)
)

)

(setq pt1 (getpoint "\nPick any point to draw area : "))
(setq dt (/ (* s am) 1000000))
(setq dt (strcat (rtos dt 2 2) " m²."))


(Setq ldt (Getstring t "\n Kind of area : "))
(cond

((= ldt "dx") (setq ldt "SÐáxây="))
((= ldt "bt") (setq ldt "SBêtông="))
((= ldt "d" ) (setq ldt "SÐào="))
((= ldt "dd") (setq ldt "SÐ?p="))
((= ldt "ph") (setq ldt "SP.hoá="))
((= ldt "ck") (setq ldt "SC.khay="))
((= ldt "dl") (setq ldt "SDam l?c="))
((= ldt "cl") (setq ldt "SCát l?c="))
((= ldt "tc") (setq ldt "SÐàoTC="))
((= ldt "tcc") (setq ldt "SÐ?p TC="))
((= ldt "lk") (setq ldt "SÐálkhan= "))
((= ldt "cp") (setq ldt "SC.ph?i= "))
((= ldt "dm") (setq ldt "Fdm = "))
)
(command "text" pt1 3.0 0 (strcat ldt dt))
(ALERT (strcat "\t\t
DiÖn tÝch = " dt))

))

Ðề: Chuyên nghiệp

DF9úng thế tôi cũng đã từng dùng thử nhưng thực ra chẳng hơn gì nhau vì mỗi ông khi thiết kế có ý tưởng uốn thép khác nhau và phức tạp nên thêm bớt là chuyện bình thường nên khi so sánh tôi thầy Ex của tôi vẫn nhanh hơn và dan năng hơn còn mấy cái nhỏ lẽ kia chuyện nhỏ xin thua font thì lại xấu không đẹp chút nào

Ðề: Visual Lisp

Anh Lam ơi, e mò hoài mà chẳng thấy có hiệu quả gì hết, theo kinh nghiệm của anh thì nên tập trung vào những files này? Anh có thể chỉ giúp em ko? E nghĩ là bị trường hợp 2, có thể bị trùng biến. Cám ơn

Ðề: Visual Lisp

Có bác nào có sách điện tử về Visual lisp không ạ? Bản tiếng Việt hoặc tiếng anh đều tốt cả. Nếu bác nào có thì tải lên mạng cho anh em sinh viên, em cảm ơn các bác nhiều!

Ðề: Visual Lisp

Tôi Thấy đa Số Các Lisp Mà Các Bạn Giới Thiệu Rất Hay , Nhưng Gần Như Tất Cả đều Có Trong Phần Mềm Của đại Ca Nglam Rồi.các Bạn Tham Khảo Nhé. Nếu Bác Nglam Có Thời Gian Phát Triển Thêm Phần Vẽ Nước Và Vẽ Sơ đồ Nguyên Lý điện Nữa Thì Càng Tốt.về Cách Thức Xây Dựng ý Tưởng Phần Này Thì Em Chưa Nghĩ Ra Nhưng đại Ca Nglam Nếu Có Time Thì Anh Em Cùng Bàn.

Ðề: Visual Lisp

Cám ơn Anh Lam nhé.

Ðề: Visual Lisp

Anh Lam hiểu lầm ý của em rồi, TKXD 3.0 của anh chạy rất la ok như đây là thu viện khác của người bạn cài cho. Nó chạy trên CAD 2006 được như khi qua CAD 2007 thì chạy được 1 hay la 2 bước là bị như hình trên em đã gởi. ( Nó chạy được trên CAD 2007 được vài bước là hư). Vậy theo anh nó bị vấn đề gì? Cám ơn

Ðề: Visual Lisp

Anh Lam ơi cho xin hỏi
Lúc trước thư viện này mở lên thì có hình trong đó còn bây giờ sử dụng CAD 2007 thì nó ko sử dụng được và hình được gởi kèm theo? Có cách nào khắc phục ko anh Lam? thư viện này Share ko co sourse? Cám ơn

Ðề: Visual Lisp

Autolisp ,Visual lisp , là 1 còn VBA in autoCad giong như VB vây

Ðề: Visual Lisp

Anh Lam ơi!
Em cũng đang tự học lập trình autolisp ,em cũng tìm những sách anh nêu ở trên.Em tìm quyển "Ngôn ngữ lập trình AutoLisp (Nguyễn hữu Lộc - Nguyễn Thanh Trung)" nhưng hiện giờ ở những cửa hàng sách chuyên về xây dựng em tìm đều ko có.Em cũng cần tìm sách về VBA in autoCad.
Vậy anh hay bạn nào có thể biết mua sách này ở đâu tại Hà Nội thì chỉ cho em được ko.
Anh cho em hỏi thêm Autolisp ,Visual lisp ,và VBA in autoCad khác nhau ở điểm gì.Hiện này cái nào được dùng phổ biến nhất.
Em xin cảm ơn!

Ðề: Visual Lisp

Chào anh Ng Lam !
Em mới học Lisp và đã thử viết 1 số ứng dụng nho nhỏ, có 1 số điều em muốn nhờ anh chỉ dẫn :
Em muốn vẽ hatch, sử dụng nentselp để chọn đường bao, nhưng mặt cắt vẽ ra lại chồng lên 1 số đối tượng khác (text, dim..)làm bản vẽ ko đc đẹp lắm. Vậy có cách nào khắc phục điểm này ko anh?
Trong ứng dụng, em có sử dụng hai vòng lặp ***g nhau để tìm ra phương án theo yêu cầu, nhưng thỉnh thoảng chạy lệnh không ra được kết quả, có phải do số lần lặp quá lớn hay bộ nhớ ko đủ?
Mong anh giải đáp giúp em. Thks !

Ðề: Visual Lisp

Gửi anh Nguyễn Lâm:
Đầu tiên xin cảm ơn anh Lâm đã tận tình giúp đỡ anh em trong diễn đàn.
Em có một đoạn lisp với mục đích là: Lấy text của một dim rối trừ đi số của tổng các dim khác rối lấy kết quả này gán cho cho một dim thứ 3. Nhưng em viết ra chay không cho ra kết quả. Anh Lâm kiểm tra dùm em thử.
";------------------------------------------------------------------------------------------------;
(defun bocchu (ss1 c) (setq ob (entget (ssname ss1 c))) (setq ts (assoc 1 ob)) (setq a (cdr ts)))
(defun bocchudt (ob) (setq ts (assoc 1 ob)) (setq a (cdr ts)))
(defun bocdt (ss1 c) (entget (ssname ss1 c)))
(defun sothanhchu (num) (if (< num 1) (strcat "0" (rtos num 2 2)) (rtos num 2 2)))
(defun thaychu (Ob newstr) (setq txtstr (assoc 1 Ob)) (setq newstr (cons 1 newstr)) (entmod (subst newstr txtstr Ob)))
(defun chonchu (dongnhac) (prompt dongnhac) (ssget '((-4 . "<OR") (0 . "text") (0 . "mtext") (-4 . "OR>"))))
(defun chon (str) (ssget '((cons(0 str)))))
(defun bamchon(st) (entget (car (entsel st))))

; TRUDIM.LSP (TRU DIM TRONG BAN VE ACAD) ;
;;;----------------------------------------------------------------;
(DEFUN C:TRUDIM()
(setq a1 (ssget '((0 . "DIMENSION"))))
(setq n1 (sslength a1))
(SETQ TONG 0)
(setq i1 -1)
(while ( > (- n1 1) i1)
(setq i1 (+ i1 1))
(setq at1 (ssname a1 i1))(setq et1 (entget at1))
(setq TONG (+ TONG ATOF(CDR(assoc 1 et1)) ))
)
(setq a2 (ssget '((0 . "DIMENSION"))))
(setq n2 (sslength a2))
(SETQ HIEU 0)
(setq i2 -1)
(while ( > (- n2 1) i2)
(setq i2 (+ i2 1))
(setq at2 (ssname a2 i2))(setq et2 (entget at2))
(setq HIEU ( ATOF (CDR(assoc 1 et2)) ))
)
(SETQ KQ (- TONG HIEU))
(PRINC "KET QUA TINH RA LA:" TONG)
(setq A3 (ssget ))
(THAYCHU A3 (SOTHANHCHU(KQ)))
)
;;;--------------------------------------------------------------------------;"
Và đây là đoạn lisp dùng để tạo ra lớp có tên là : “hatch”. Rồi khi thực hiện lệnh BH (HS, HT, …) các đối tượng hatch tạo ra tự động được gán cho lớp hatch. Sau khi thực hiện hatch xong thì trả lại lớp cũ. Kết quả chạy của em tạo ra được lớp “hatch” nhưng hoặc đối tượng tạo ra không nằm ở lớp “hatch” hoặc đối tượng nằm ở lớp “hatch” nhưng lệnh không trả về lớp trước đó.
“;;;--------------------------------------------------------------------------;
(defun nlh_error (s)
(cond ((= s "quit / exit abort")(princ))((/= s "Function cancelled")(princ (strcat "\nError: " s))))
(command "undo" "e")
(setvar "CMDECHO" nlh_cmdecho)
(setvar "OSMODE" nlh_osmode)
(setvar "TEXTSTYLE" nlh_textstyle)
(setvar "CLAYER" nlh_clayer)
(setvar "CELTYPE" nlh_celtype)
(setvar "CECOLOR" nlh_cecolor)
(setvar "HIGHLIGHT" nlh_highlight)
(setvar "REGENMODE" nlh_regenmode)
(setq *error* olderr)
(princ)
)
;*---------------------------------------------------------------------------;
(defun nlh_save ()
(setq olderr *error* *error* nlh_error
nlh_highlight (getvar "HIGHLIGHT")
nlh_cecolor (getvar "CECOLOR")
nlh_celtype (getvar "CELTYPE")
nlh_clayer (getvar "CLAYER")
nlh_textstyle (getvar "TEXTSTYLE")
nlh_osmode (getvar "OSMODE")
nlh_cmdecho (getvar "CMDECHO")
nlh_regenmode (getvar "REGENMODE")
)
(setvar "CMDECHO" 0)
(command "undo" "g")
)
;*---------------------------------------------------------------------------;
(defun nlh_hatchlayer ()
(setq slist (list (cdr (assoc 2 (tblnext "LAYER" T)))))
(while (setq sname (cdr (assoc 2 (tblnext "LAYER"))))
(if (/= sname "")(setq slist (cons sname slist)))
)
(if (not (member "hatch" slist))
(command "LAYER" "M" "hatch" "C" "252" "" "")
(command "LAYER" "S" "hatch" "")
)
)
;*---------------------------------------------------------------------------;
(defun nlh_restoreh ()
(setvar "CMDECHO" nlh_cmdecho)
(setvar "OSMODE" nlh_osmode)
(setvar "TEXTSTYLE" nlh_textstyle)
(setvar "CLAYER" nlh_clayer)
(setvar "CELTYPE" nlh_celtype)
(setvar "CECOLOR" nlh_cecolor)
(setvar "HIGHLIGHT" nlh_highlight)
(setvar "REGENMODE" nlh_regenmode)
(setq *error* olderr olderr nil)
)
; HACTH ;
;;;--------------------------------------------------------------------------;
(defun c:bh () (nlh_save)(nlh_hatchlayer)(command "bhatch")(nlh_restoreh)(princ))
(defun c:hs() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "s") (nlh_restoreh)(princ))
(defun c:ht() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "u" "45" "100" "n")(nlh_restoreh) (princ))
(defun c:hG() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "brick" "500" "0")(nlh_restoreh)(princ))
(defun c:ha() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "ansi32" "100" "0" )(nlh_restoreh)(princ))
(defun c:hr() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "ar-conc" "50" "0" )(nlh_restoreh)(princ))
(defun c:hc() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "ar-sand" "100" "0" ) (nlh_restoreh)(princ))
(defun c:hB() (nlh_save)(nlh_hatchlayer)(command "-bhatch" "p" "CONC-REINF" "50" "0" ) (nlh_restoreh)(princ))

;;;--------------------------------------------------------------------------;
Xin cảm ơn anh Lâm

Ðề: Visual Lisp

file đính kèm