使线条直接变更图层的二次开发程序

西门吹鳕

! E" Q- B% J" v6 E. ^
8 y9 `3 X+ G+ W4 R$ j各位大侠好，我有个二次开发命令，程序如下：

1. (defun c:ce ()                                ;自动变换成适当比例的中心线
   ' }. x* m; [' S$ d0 i: V
2.   (ltchange "center" 4 "green")
   $ L& H2 P: P* w5 U1 R" i+ s
3.   (princ)
   . R) d0 Y) ]0 A0 m7 A
4. ) ;_ end of defun

复制代码

* H( G& Q6 d" g* I8 n1 l& g现在想把程序修改成先变成指定图层的线条，属性也是指定图层的属性，再变换成适当比例的中心线。
# V# [' }. y* k* X, @  v! e/ y求各位大侠帮忙，谢谢！