[求助]：求转换图层的lisp程序

tjzxl811 · 发表于 2006-5-22 20:44:29

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

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

×

请教高手，画图时经常要只点开某一或几个图层，如何用lisp编程实现，最好有详细代码，谢谢

十个太阳 · 发表于 2006-5-23 08:40:40

提供下列代码，希望有所帮助
(defun c:test(/ ss lname)
(setvar "cmdecho" 0)
  (setq ss (ssget))
  (setq lname "图层") ;为自定义图层名
  (vl-cmdf "_change" ss "" "p" "la" lname "c" "bylayer" "")
(princ)
)

tjzxl811 · 发表于 2006-5-23 09:20:43

我是新手，多谢指点

草根 · 发表于 2006-5-23 09:55:29

(defun layerg(/ flayer lname oldcset i)
  (setvar "cmdecho" 0)
  (setvar "regenmode" 0)
  (setq clayer(getvar "clayer"))
(setq i 0)
(while (setq flayer (nth i layzb))
   (setq lname(cdr(assoc 2 flayer)))
   (setq oldcset(assoc 62 flayer))
   (if (equal lname clayer)
      (command "layer" "off"  lname "Y" "")
      (command "layer" "off"  lname "")
   )
  (setq i (1+ i))
)
(setvar "regenmode" 1)
)

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

[求助] [求助]：求转换图层的lisp程序

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

相关帖子