[求助]：新建图层后怎么回到建层前的当前图层！

9701519 · 发表于 2007-11-23 10:06:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:jc ()
  (command ".layer" "m" "标注尺寸" "c" "3" "" "")
  (command ".layer" "m" "标注文字" "c" "3" "" "")
  (command ".layer" "m" "平面-区域及标注" "c" "3" "" "")
  (command ".layer" "m" "平面-隔墙尺寸" "c" "3" "" "")
  (command ".layer" "m" "墙面固定造型" "c" "4" "" "")
  (command ".layer" "m" "地面-材质标注" "c" "3" "" "")
  (command ".layer" "m" "地面-地坪尺寸" "c" "3" "" "")
  (command ".layer" "m" "墙体" "c" "2" "" "")
  (command ".layer" "m" "墙体-新1" "c" "7" "" "")
  (command ".layer" "m" "楼梯" "c" "4" "" "")
  (command ".layer" "m" "门" "c" "4" "" "")
  (command ".layer" "m" "门-门框" "c" "4" "" "")
  (command ".layer" "m" "门-门扇" "c" "4" "" "")
  (command ".layer" "m" "窗" "c" "5" "" "")
  (princ)
)

加进什么代码？？？才能如愿！！！！！！

brainstorm · 发表于 2007-11-23 12:42:59

(setvar oldlay (getvar "clayer"))

结尾加入
(setvar "clayer" oldlay)

9701519 · 发表于 2007-11-23 13:26:15

具体怎么弄！LSP我是空白！

gysjy · 发表于 2007-11-23 18:58:09

(defun c:jc ()
(setq oldlay (getvar "clayer"))
(command ".layer" "m" "标注尺寸" "c" "3" "" "")
(command ".layer" "m" "标注文字" "c" "3" "" "")
(command ".layer" "m" "平面-区域及标注" "c" "3" "" "")
(command ".layer" "m" "平面-隔墙尺寸" "c" "3" "" "")
(command ".layer" "m" "墙面固定造型" "c" "4" "" "")
(command ".layer" "m" "地面-材质标注" "c" "3" "" "")
(command ".layer" "m" "地面-地坪尺寸" "c" "3" "" "")
(command ".layer" "m" "墙体" "c" "2" "" "")
(command ".layer" "m" "墙体-新1" "c" "7" "" "")
(command ".layer" "m" "楼梯" "c" "4" "" "")
(command ".layer" "m" "门" "c" "4" "" "")
(command ".layer" "m" "门-门框" "c" "4" "" "")
(command ".layer" "m" "门-门扇" "c" "4" "" "")
(command ".layer" "m" "窗" "c" "5" "" "")
(setvar "clayer" oldlay)
(princ)
)

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

[求助] [求助]：新建图层后怎么回到建层前的当前图层！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子