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

adc

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

llsheng_73

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

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

xtapple

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

非常不错，支持下。

我爱lisp

(vla-put-Color (vlax-ename->vla-object (entlast)) 77) )