[建议]：发个简单的，不要骂我哟

KERRYWM · 发表于 2006-4-23 20:32:46

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

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

×

;;; TURN ALL LAYERS ON（打开所有图层）
(DEFUN C:OA(/ ADT THELAYERS)
  (VL-LOAD-COM)
  (SETQ ADT (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))
  (SETQ THELAYERS (VLA-GET-LAYERS ADT))
  (VLAX-FOR ITEM THELAYERS (VLAX-PUT-PROPERTY ITEM "LAYERON" ':VLAX-TRUE) )
  (PRINC)
)
;;; TURN ALL LAYERS OFF（关闭所有图层）
(DEFUN C:AO(/ ADT THELAYERS)
  (VL-LOAD-COM)
  (SETQ ADT (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))
  (SETQ THELAYERS (VLA-GET-LAYERS ADT))
  (VLAX-FOR ITEM THELAYERS (VLAX-PUT-PROPERTY ITEM "LAYERON" ':VLAX-FALSE) )
  (PRINC)
)

xyp1964 · 发表于 2006-4-23 22:26:34

楼上搞复杂了，完全不必！

[FONT=courier new];;;全部打开
(command "layer" "T" "*" "on" "*" "unlock" "*" "")
;;;全部关闭
(command "layer" "off" "*" "")[/FONT]

雨箭风刀 · 发表于 2006-4-23 22:53:19

不是这么说，那样写可以做成透明命令
还是有其用途的

nnjk · 发表于 2006-4-26 01:42:34

看不懂

KERRYWM · 发表于 2006-4-26 21:25:33

程序可能复杂了点，但速度会快不少！尤其是在处理含有大量图元的档案时。

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

[建议]：发个简单的，不要骂我哟

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

相关帖子