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

西门吹鳕

2 G  h/ f6 K% |4 F& E
% L0 T- `  d" x. |) K/ M# ?9 ^7 \' c3 T各位大侠好，我有个二次开发命令，程序如下：

1. (defun c:ce ()                                ;自动变换成适当比例的中心线
   
2.   (ltchange "center" 4 "green")
   
3.   (princ)
   
4. ) ;_ end of defun

复制代码

现在想把程序修改成先变成指定图层的线条，属性也是指定图层的属性，再变换成适当比例的中心线。
) ~5 j: {) ?! @  H# E& o求各位大侠帮忙，谢谢！
- ]4 f& D. ^$ k2 N