本帖最后由 作者 于 2008-1-25 23:00:00 编辑
个表达式(defun c:addb() (entmake ( list (cons 0 "INSERT") (cons 2 "11") '(10 0 0 0) (cons 66 1) ) ) (entmake (list (cons 0 "ATTRIB") (cons 1 "12") (cons 2 "GEN") '(10 40 10 0) (cons 40 40) (cons 70 1) ) ) (entmake (list (cons 0 "ATTRIB") (cons 1 "20") (cons 2 "BEN") '(10 50 10 0) (cons 40 40) (cons 70 1) ) ) ) |