adc 发表于 2013-12-27 02:09:25

求一个更改图层线型和颜色的函数

本帖最后由 adc 于 2013-12-27 02:12 编辑

求一个函数，不打开或不解冻解锁图层就可以更改图层的线型和颜色，谢谢了

llsheng_73 发表于 2013-12-27 02:09:26

(defun layeron(ly co lty / a);ly图层名,co颜色,lty线型名
(setq a(vla-item(vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object)))ly))
(vlax-put-property a"COLOR"co)
(vlax-put-property a"Linetype"lty))



xtapple 发表于 2014-9-22 22:55:42

llsheng_73 发表于 2013-12-27 02:09 static/image/common/back.gif


非常不错，支持下。

我爱lisp 发表于 2014-9-26 14:26:07

(vla-put-Color (vlax-ename->vla-object (entlast)) 77) )
页: [1]
查看完整版本: 求一个更改图层线型和颜色的函数