[LISP程序]：再发一个简单的VLISP程序，还是关于图层的

KERRYWM · 发表于 2006-4-23 20:37:54

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

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

×

;;;TO FREEZE ALL LAYERS
(DEFUN C:FA(/ AOT ADT LAYERTABLE THELIST CLAY LEN I)
  (VL-LOAD-COM)
  (SETQ AOT (VLAX-GET-ACAD-OBJECT))
  (SETQ ADT (VLA-GET-ACTIVEDOCUMENT AOT))
  (SETQ LAYERTABLE (VLA-GET-LAYERS ADT))
  (SETQ LAYLIST NIL)
  (VLAX-FOR EACH LAYERTABLE
(SETQ LAYLIST (CONS (VLA-GET-NAME EACH) LAYLIST))
  )
  (SETQ LAYLIST(VL-SORT LAYLIST '<))
  (SETQ CLAY(GETVAR "CLAYER"))
  (SETQ LAYLIST(VL-REMOVE CLAY LAYLIST))
  (SETQ LEN(LENGTH LAYLIST))
  (SETQ I 0)
  (WHILE (< I LEN)
(SETQ NLAY(VLA-ITEM LAYERTABLE (NTH I LAYLIST)))
(VLA-PUT-FREEZE NLAY :VLAX-TRUE)
(SETQ I(1+ I))
)
  )
;;;TO THAW ALL LAYERS
(DEFUN C:TA(/ AOT ADT LAYERTABLE THELIST CLAY LEN I)
  (VL-LOAD-COM)
  (SETQ AOT (VLAX-GET-ACAD-OBJECT))
  (SETQ ADT (VLA-GET-ACTIVEDOCUMENT AOT))
  (SETQ LAYERTABLE (VLA-GET-LAYERS ADT))
  (SETQ LAYLIST NIL)
  (VLAX-FOR EACH LAYERTABLE
(SETQ LAYLIST (CONS (VLA-GET-NAME EACH) LAYLIST))
  )
  (SETQ LAYLIST(VL-SORT LAYLIST '<))
  (SETQ CLAY(GETVAR "CLAYER"))
  (SETQ LAYLIST(VL-REMOVE CLAY LAYLIST))
  (SETQ LEN(LENGTH LAYLIST))
  (SETQ I 0)
  (WHILE (< I LEN)
(SETQ NLAY(VLA-ITEM LAYERTABLE (NTH I LAYLIST)))
(VLA-PUT-FREEZE NLAY :VLAX-FALSE)
(SETQ I(1+ I))
)
  (VLA-REGEN ADT :VLAX-TRUE)
  )

xyp1964 · 发表于 2006-4-23 22:35:37

TCKZ(图层控制)

xyp1964 · 发表于 2006-4-23 22:36:40

效果：

liu0060585 · 发表于 2006-4-25 09:18:00

不错，可以给操作上带来一些方便，但我觉得在实际中不太实用。因为这些在cad中直接操作也很方便。

KERRYWM · 发表于 2006-4-26 21:28:00

可在我们单位用的很多，因为在设计模具时，往往可以用得到！

小唯1 · 发表于 2009-6-23 01:07:41

看起來不錯~多謝分享

金鹅起飞 · 发表于 2013-10-12 10:41:32

楼主您能说明一下功能吗？

海天风云 · 发表于 2013-11-7 16:40:33

還有改進的空間，謝謝分享！

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

[LISP程序]：再发一个简单的VLISP程序，还是关于图层的

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

相关帖子