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

西门吹鳕

  E) e3 U: ?: v; _各位大侠好，我有个二次开发命令，程序如下：
( \* v/ E0 v  Q: B4 l9 `

1. (defun c:ce ()                                ;自动变换成适当比例的中心线
   2 D$ W5 p+ D5 X; g" l
2.   (ltchange "center" 4 "green")
   / q* G6 {( i2 I: A$ P& R' s/ P
3.   (princ)
   ( j/ @0 d; J% m( g
4. ) ;_ end of defun

复制代码

& j+ Z+ n, u* A现在想把程序修改成先变成指定图层的线条，属性也是指定图层的属性，再变换成适当比例的中心线。
求各位大侠帮忙，谢谢！