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

西门吹鳕

! a% A) w! V- h  p- d各位大侠好，我有个二次开发命令，程序如下：

1. (defun c:ce ()                                ;自动变换成适当比例的中心线
   ' V0 j( x& e: S9 s' L1 `
2.   (ltchange "center" 4 "green")
   
3.   (princ)
   , M5 {* C: a7 U% @& x! u
4. ) ;_ end of defun

复制代码

4 I3 G( B' X5 q5 Q* c  X7 l, _现在想把程序修改成先变成指定图层的线条，属性也是指定图层的属性，再变换成适当比例的中心线。
求各位大侠帮忙，谢谢！
" {1 [. K- y7 r2 Q4 ^