[编程申请]：如何只开选择层

dhxf · 发表于 2008-1-23 10:39:09

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

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

×

如题，如何只开选择层，谢谢

qiyu0588 · 发表于 2008-1-24 12:51:32

;;;
;;; 显示指定图层;;;
(defun c:test(/ ss n i key)
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (setq n (sslength ss))
  (setq i 0)
  (command "layer" "off" "*" "y" "")
  (repeat n
(setq key (cdr (assoc 8 (entget (ssname ss i)))))
(command "layer" "on" key "")
(setq i (+ 1 i))
  )
  (princ)
)

hmillf · 发表于 2008-1-30 21:00:55

;;;[仅显示选层]
(defun c:G (/ ES EN EL A)
(princ "请选择对象,未被选中的对象所在层将被关闭")
(setq ES (ssget) A 0 EN ""EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "layer" "off" "*" "y" "on" (eval FL) "")
(princ)
)

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

[编程申请]：如何只开选择层

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

相关帖子