[LISP程序]：各种线条加粗LISP程序！（但有个小盲点请高手指点）

湖北地主王

由于本人爱心币很少，不好意思请高手原谅，谢啦
使用说明：
         （LOAD“CW.LSP")
         COMMAND:CW
         然后输入线宽及选择线条就OK了，

盲点1：加粗圆后，圆变成圆环后都到了当前层上，我需要的是变成圆环后还在圆所在层。
-----------请高手指点！

柔柔

这是因为其他线你都是用编辑而圆是用创建的办法（圆不能用pedit编辑），创建当然是在当前层内。
要想让圆也到原来的图层，无非就是记录原对象所在的图层，把创建的新对象改到那个图层内。