求命令自动到层

abc498091367

按1键 再把选择的物体规划到1层，按2键就到2层，3键就到3层，
求份源码，因为还有很多我自己改改，谢谢！！！

st788796

abc498091367 发表于 2013-12-9 16:59
谢谢，788796  程序可以，非常好

另外还请一个问题，比如：我按1键把指定所选的物体变到1层，意思是如 ...

1. (defun c:1 (/ ss)
   
2.   (if (setq ss (ssget))
   
3.     (progn
   
4.       (if (not (tblsearch "layer" "1"))
   
5.         (command ".layer" "m" "1" "" "")
   
6.       )
   
7.       (command "chprop" ss "" "la" "1" "")
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:1 (/ ss)<br />   (if (setq ss (ssget))<br />     (progn<br />       (if (not (tblsearch "layer" "1"))<br />         (command ".layer" "m" "1" "" "")<br />       )<br />       (command "chprop" ss "" "la" "1" "")<br />     )<br />   )<br />   (princ)<br /> )

st788796

(defun c:1 (/ ss)
(if (setq ss (ssget))
   (command "chprop" ss "" "la" "1" "")
)
)

abc498091367

st788796 发表于 2013-12-8 17:49
(defun c:1 (/ ss)
(if (setq ss (ssget))
   (command "chprop" ss "" "la" "1" "")

谢谢，788796  程序可以，非常好

另外还请一个问题，比如：我按1键把指定所选的物体变到1层，意思是如果没有1层，就是自动新建一个1层，请帮忙修改一下此代码，谢！！！

abc498091367

st788796 发表于 2013-12-9 17:05

谢，非常好用

sinommw

     好东西！