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

西门吹鳕

: _" @  E0 D4 {4 x+ |% g
各位大侠好，我有个二次开发命令，程序如下：
" y+ o9 E( y: v6 @/ R0 y

1. (defun c:ce ()                                ;自动变换成适当比例的中心线
   : j" z, ]; D4 o! H4 ^9 R; \: h- a' {
2.   (ltchange "center" 4 "green")
   8 G! o& s# Z3 X+ W
3.   (princ)
   
4. ) ;_ end of defun

复制代码

现在想把程序修改成先变成指定图层的线条，属性也是指定图层的属性，再变换成适当比例的中心线。
, ^  E& D- j$ H; S$ q+ C+ ?! p( t求各位大侠帮忙，谢谢！