将所有图层随层

dj0737

将所有图层随层
(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))
   )
   )
   )


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

江湖远人

直接用命令setbylayer可以解决！

用户3766035971

谢谢，学习了！

清风明月名字

谢谢楼主分享，辛苦了！

用户4ug2iurcno

学习一下，多谢分享

胆小东东在江湖

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

樊影

江湖远人 发表于 2013-8-18 11:18
直接用命令setbylayer可以解决！

高手啊,一语道破天机！

wjy1998

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

Aries

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

00放飞梦想00

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