切换图层 求大神
(defun c:q1()(SETVAR "CMDECHO" 0)
(PRINC "YFworkroom将图层改成 PM-墙体图层: ")
(setq ss (ssget))
(command "change" ss "" "p" "la" "PM-墙体" "")
(to-lay "PM-墙体")
(princ)
)
切换图层 如果什么都不选择就跳到这个图层 如果选择就把所有的选择的线改成这个图层不跳到这个图层这局判断代码怎么写求大神
(if (setq ss (ssget))
(command "change" ss "" "p" "la" "PM-墙体" "")
(SetVar 'Clayer "PM-墙体") ; 需合 Layer 规则
)
Andyhon 发表于 2014-11-8 13:05 static/image/common/back.gif
(if (setq ss (ssget))
(command "change" ss "" "p" "la" "PM-墙体" "")
(SetVar 'Clayer "PM-墙体" ...
谢谢大神
页:
[1]