社区 › AutoCAD工具插件 › 将所有图层随层

dj0737 发表于 2013-8-18 08:17:14

将所有图层随层

将所有图层随层
(defun C:ccc (/ )
(vl-load-com)
(setq ModelSpace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for obj ModelSpace
    (if (/= (vla-get-color obj) 256)
      (vla-put-color obj 256)
    )
)
)


修改图层颜色
(defun c:tc()
(vl-load-com)
(setq acmCol (vla-getinterfaceobject
         (vlax-get-acad-object)(strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   (cond
   ((= (vla-get-name x) "注记") (vla-setrgb acmCol 255 255 255) (vla-put-TrueColor x acmCol))
   )
   )
   )


我的目的是先让“注记”层颜色随层，再让“注记”层变为黑色，用一个命令，谢谢

江湖远人 发表于 2013-8-18 11:18:49

直接用命令setbylayer可以解决！

用户3766035971 发表于 2014-3-30 13:26:56

谢谢，学习了！

清风明月名字 发表于 2014-4-30 08:13:29

谢谢楼主分享，辛苦了！

用户4ug2iurcno 发表于 2014-4-30 17:25:40

学习一下，多谢分享

胆小东东在江湖 发表于 2014-10-20 08:05:18

还是谢谢了，我有用命令。

樊影 发表于 2014-10-24 13:14:56

江湖远人 发表于 2013-8-18 11:18 static/image/common/back.gif
直接用命令setbylayer可以解决！

高手啊,一语道破天机！

wjy1998 发表于 2015-2-3 07:57:23

学习了，学习了，学习了，学习了。

Aries 发表于 2018-6-13 15:04:26

谢谢楼主的分享！很有意思的代码，收藏备用。

00放飞梦想00 发表于 2022-2-24 09:00:53

块里的线型比例没有改为1，如何解决呢

查看完整版本: 将所有图层随层