关闭所有图层哪里出问题了？

xinxirong · 发表于 2016-8-15 16:18:15

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

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

×

;关闭所有图层
(defun All_Layer_Off(/ cLay color)
(setq cLay(tblnext "LAYER" T))
(while cLay
(setq color (cdr(assoc 62 cLay)))
(if (> color 0)
(entmod (setq cLay (subst (cons 62 (- 0 color)) (assoc 62 cLay) cLay)));这里返回nil
)
(setq cLay(tblnext "LAYER"))
); end while
); end of All_Layer_Off

原来是用command命令的，不过好像不同版本的cad输入的-layer命令不同，所以想转为纯lisp或vla命令。

WhoCanSay · 发表于 2016-8-15 16:28:36

是否考虑随层、随块？

Lisphk · 发表于 2016-8-15 16:48:16

WhoCanSay 发表于 2016-8-15 16:28
是否考虑随层、随块？

现在哪里有问题了？

xinxirong · 发表于 2016-8-15 17:24:51

entmod返回nil，修改成功的话会返回列表啊。

Lisphk · 发表于 2016-8-15 17:56:10

xinxirong 发表于 2016-8-15 17:24
entmod返回nil，修改成功的话会返回列表啊。

哦，组码62不是社么时候都有值的，要判断下。

xinxirong · 发表于 2016-8-16 08:38:50

有的，0层的颜色是7，我把它改成-7，居然endmod失败

llsheng_73 · 发表于 2016-8-18 10:13:51

(defun All_Layer_Off(/ cLay color)
(while (setq cLay(tblnext "LAYER"(not cLay)))
(if (>(setq color (cdr(assoc 62 cLay)))0)
(entmod(subst(cons 62(- color))(cons 62 color)(entget(tblobjname"LAYER"(cdr(assoc 2 cLay)))))))))

xinxirong · 发表于 2016-8-18 20:46:41

tblobjname 返回的图元名可以用于 entget 和 entmod 操作。
tblnext或者tblsearch都不会返回图元。。。所以注定失败

st788796 · 发表于 2016-8-19 10:53:16

还是这样好
(vlax-for obj (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-layeron obj :vlax-false)
)

xinxirong · 发表于 2016-8-19 14:15:30

  (setq  cLay (vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
      )
  )
  (vlax-map-collection
cLay
'(lambda (x) (vla-put-layeron x :vlax-false))
)
  (vlax-release-object cLay)

Lisphk · 发表于 2016-8-19 14:19:28

xinxirong 发表于 2016-8-19 14:15
(setq cLay (vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
)

只释放一个对象不行。

xinxirong · 发表于 2016-8-19 17:59:59

cLay 是代表集合的 VLA 对象。
所以是释放多个对象，不是释放一个对象

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

[求助] 关闭所有图层哪里出问题了？

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

点评

点评

点评

评分

点评

浏览过的版块

[求助] 关闭所有图层 哪里出问题了？

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

点评

点评

点评

评分

点评

浏览过的版块

[求助] 关闭所有图层哪里出问题了？