修改图层的问题

yangang

我在一个基于ＣＡＤ制图软件中，想编一个程序，程序中调用ＣＡＳＳ中的绘图功能，并且将画出的东西保存在另一个层中，我用下面的代码实现不了，还是保存在ＣＡＳＳ指定的层中，请较高手怎么修改一下这个程序

(defun c:js ()
   (command "layer" "m" shj "c" 7 "" "")
   (command "dd" "174100" )
)

phoenixdjq

(command "-layer" "m" "shj" "c" 7 "" "")

DD是什么命令

ZHAOWCHANG

CASS中在调用DD命令，174100时，已将图层进行改变，如果想达到这个功能可以修改CASS的WORK.DEF 文件

htys24101

我也是用CASS的，好像只要用DD命令都是在指定的图层里，那是CASS设定的，你可以考虑不用DD命令

yshf

2. (defun c:js ()
3.    (setq shj "xx")
4.    (if (= (tblsearch "layer" shj) nil)
5.        (command "layer" "m" shj "c" 7 "" "")
6.    )
7.    (command "dd" "174100" pause)
8.    (command "_chprop" (entlast) "" "la" shj "")
9.    (princ)
10. )

(defun c:js ()    (setq shj "xx")    (if (= (tblsearch "layer" shj) nil)        (command "layer" "m" shj "c" 7 "" "")    )    (command "dd" "174100" pause)    (command "_chprop" (entlast) "" "la" shj "")    (princ) )