Còn đây là 1 ví dụ lệnh Auto Lisp em được thầy dậy:
Tên lệnh: EN
Bạn copy source sau vào một file *.LSP bất kì (dùng Notepad để tạo và soạn thảo)
(defun C:EN ( / sset n i num oldob old nnew new et0 )
(setq kdt (getstring "\n Chon loai doi tuong loc: "))
(setq sset (ssget))
(setq n (sslength sset))
(setq i 0)
(setq et0 (entget(ssname sset 0)))
(print et0 );In kiem tra so lieu thuc the dau tien ,so 0 .
(setq numdxf (getint "\n * Cho ma DXF :"))
(if (<= numdxf 9)
(setq nnew (getstring "\n Nhap gia tri moi :") )
(setq nnew (getreal "\n Nhap gia tri moi :") )
)
(while (< i n)
(setq oldob (entget(ssname sset i) ) )
(setq old (assoc numdxf oldob) )
(setq old0 (cdr (assoc 0 oldob)))
(if (= old0 kdt)
(progn
(setq new (cons numdxf nnew))
(entmod (subst new old oldob))
)
)
(setq i (+ i 1))
);while
(setq sset nil)
)
Lệnh này chỉ list ra các thuộc tính của đối tượng được chọn để làm cơ sở viết lệnh LISP khác :eek: