切换图层求大神

yao66298 · 发表于 2014-11-8 11:11:10

(defun c:q1()
(SETVAR "CMDECHO" 0)
(PRINC "YFworkroom 将图层改成 PM-墙体图层: ")
(setq ss (ssget))
(command "change" ss "" "p" "la" "PM-墙体" "")

(to-lay "PM-墙体")
(princ)

)
切换图层如果什么都不选择就跳到这个图层如果选择就把所有的选择的线改成这个图层不跳到这个图层这局判断代码怎么写求大神

Andyhon · 发表于 2014-11-8 13:05:41

(if (setq ss (ssget))
(command "change" ss "" "p" "la" "PM-墙体" "")
(SetVar 'Clayer "PM-墙体") ; 需合 Layer 规则
)

yao66298 · 发表于 2014-11-8 13:16:09

Andyhon 发表于 2014-11-8 13:05
(if (setq ss (ssget))
(command "change" ss "" "p" "la" "M-墙体" "")
(SetVar 'Clayer "M-墙体" ...

谢谢大神

账号		自动登录	找回密码
密码			注册

[提问] 切换图层求大神

浏览过的版块

[提问] 切换图层 求大神

浏览过的版块

[提问] 切换图层求大神