[求助]：能否不用command命令及layer对话框而采用函数等方法开关、解锁或锁定图层

hsslyl · 发表于 2004-11-18 16:52:29

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

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

×

能否不用command命令及layer对话框而采用函数等方法开关、解锁或锁定图层。

aidraft · 发表于 2004-11-18 17:01:49

activeX方法取得图层对象进行操作

hsslyl · 发表于 2004-11-18 17:25:13

能举个例子吗？谢谢！

aidraft · 发表于 2004-11-18 18:53:45

;;打开所有图层
(defun C:AllON (/ layers)
  (setq layers (vla-get-layers
   (vla-get-activedocument (vlax-get-acad-object))
   )
)
  (vlax-map-collection
layers
'(lambda (x) (vla-put-layeron x :vlax-true))
)
  (vlax-release-object layers)
  (princ)
  )

lsjjm · 发表于 2004-11-19 06:13:10

(command "layer" "on" "*" "")
(command "layer" "lo" layname "")
...

ll_j · 发表于 2004-11-19 06:41:39

AutoLisp的方法：
(entmod (subst '(70 . 1) (assoc 70 (setq en (entget (tblobjname "layer"
"1")))) en))

它山之石 · 发表于 2004-11-19 12:49:06

参考ET工具里的图层开关等

hsslyl · 发表于 2004-11-19 16:38:53

谢谢各位

xxxyzxx · 发表于 2004-11-19 18:31:03

恩，学到些东西，能否介绍更为详尽些？

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

[求助] [求助]：能否不用command命令及layer对话框而采用函数等方法开关、解锁或锁定图层

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

相关帖子

浏览过的版块