图层原码，论坛这个有点少，希望对大家有帮助。

zhbzhbzhb · 发表于 2014-10-31 14:21:33

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

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

×

;图层关闭
(Defun c:cg()
(setq v1 (ssget))
(setq dctc (getvar "clayer"))
(setq n 0)
(setq tclb '())
(while (ssname v1 n)
   (setq tc (cdr (assoc 8 (entget (ssname v1 n)))))
   (setq tcbz (vl-remove-if-not '(lambda (x) (= x tc)) tclb))
   (if (= tcbz nil)
      (setq tclb (cons tc tclb))
   )
   (setq n (1+ n))
)
(while tclb
   (setq tc (car tclb))
   (if (= tc dctc)
      (command "layer" "off" tc "y" "")
      (command "layer" "off" tc "")
   )
   (setq tclb (cdr tclb))
)
(princ)
)
;关闭其它图层
(Defun c:gt()
(setq v1 (ssget))
(setq dctc (getvar "clayer"))
(setq n 0)
(setq tclb '())
(while (ssname v1 n)
   (setq tc (cdr (assoc 8 (entget (ssname v1 n)))))
   (setq tcbz (vl-remove-if-not '(lambda (x) (= x tc)) tclb))
   (if (= tcbz nil)
      (setq tclb (cons tc tclb))
   )
   (setq n (1+ n))
)
(command "layer" "off" "*" "y" "")
(while tclb
   (setq tc (car tclb))
   (command "layer" "on" tc "")
   (setq tclb (cdr tclb))
)
(princ)
)
;图层显示，解锁
(Defun c:cv()
(command "layer" "on" "*" "")
(command "layer" "u" "*" "")
)
;图层锁定
(Defun c:cs()
(setq v1 (ssget))
(setq n 0)
(setq tclb '())
(while (ssname v1 n)
   (setq tc (cdr (assoc 8 (entget (ssname v1 n)))))
   (setq tcbz (vl-remove-if-not '(lambda (x) (= x tc)) tclb))
   (if (= tcbz nil)
      (setq tclb (cons tc tclb))
   )
   (setq n (1+ n))
)
(while tclb
   (setq tc (car tclb))
   (command "layer" "lo" tc "")
   (setq tclb (cdr tclb))
)
(princ)
)
;锁定其它图层
(Defun c:st()
(setq v1 (ssget))
(setq n 0)
(setq tclb '())
(while (ssname v1 n)
   (setq tc (cdr (assoc 8 (entget (ssname v1 n)))))
   (setq tcbz (vl-remove-if-not '(lambda (x) (= x tc)) tclb))
   (if (= tcbz nil)
      (setq tclb (cons tc tclb))
   )
   (setq n (1+ n))
)
(command "layer" "lo" "*" "")
(while tclb
   (setq tc (car tclb))
   (command "layer" "u" tc "")
   (setq tclb (cdr tclb))
)
(princ)
)
;指定当前图层
(Defun c:dc()
(setq e (entsel))
(setq tc (cdr (assoc 8 (entget (car e)))))
(command "layer" "s" tc "")
)

czx663 · 发表于 2014-10-31 15:35:51

用ActiveX遍历各图层效率更高一些

zhbzhbzhb · 发表于 2014-10-31 16:26:25

楼上请问用哪个函数

txc6853234 · 发表于 2014-10-31 19:32:06

zhbzhbzhb 发表于 2014-10-31 16:26
楼上请问用哪个函数

遍历对象集，对每个表达式进行求值

(vlax-for symbol collection [expression1 [expression2 ...]])

参数

symbol

符号，将其指定给集合中的每个 VLA 对象。

collection

VLA 对象，表示集合对象。

expression1, expression2...

要计算的表达式。

返回值

集合中最后一个对象的最后一次对表达式的求值结果。

zhbzhbzhb · 发表于 2014-11-1 05:42:36

谢谢，这个好。

zhbzhbzhb · 发表于 2014-11-1 08:37:21

集合对象如何得到

xvjiex · 发表于 2021-7-19 00:03:13

感谢楼主分享图层原码

MUYIY · 发表于 2022-6-11 22:15:24

学习了，谢谢

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

[每日一码] 图层原码，论坛这个有点少，希望对大家有帮助。

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

评分

点评