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

西门吹鳕

各位大侠好，我有个二次开发命令，程序如下：
0 [/ T: \* v$ N' ]& N) e# G7 l

1. (defun c:ce ()                                ;自动变换成适当比例的中心线
   
2.   (ltchange "center" 4 "green")
   7 b2 z7 N- F7 e/ j* [( ?
3.   (princ)
   9 i) a: M4 Q' o$ M. `( F4 k% q' Z( n
4. ) ;_ end of defun

复制代码

0 B7 h) n3 ~6 ^" a) Z现在想把程序修改成先变成指定图层的线条，属性也是指定图层的属性，再变换成适当比例的中心线。
' m. H( o  [9 J' \4 {! `# H+ v% H# P% O求各位大侠帮忙，谢谢！
" N0 v5 q9 y. c- Q