小的编程帮助

yanghc

在CAD中提取一个层进行操作用LISP如何编程？

谢谢指教

刚学LISP中

xgr

1 查找图层，如果为NIL，则创建图层；

(if (= (tblobjname "layer" "XXX") nil)
 (progn
   (command "layer" "n" "XXX" "C" "1" "XXX" "")
 )
)

2 设置系统变量,使XXX层为当前层；

(setvar "clayer" "XXX")

3 用entmake函数在XXX层上创建实体；

(entmake (list (cons 0 "Text")
     (cons 100 "AcDbEntity")
     (cons 8 "XXX")
     (cons 100 "AcDbText")
     (cons 7 "hz")
     (cons 1 m)
     (cons 40 wzch)
     (cons 41 1)
     (cons 50 lx)
     (cons 410 "model")
     (cons 71 0)
     (cons 72 4)
     (cons 73 0)
     (cons 10 1)
     (cons 11 P2)
      )
    )