Question

请你帮忙改个CAD LSP好吗？

曾经百度知道受到过你的帮助，经你稍事改动过的LSP都很好用，谢谢你。我这有一个改变线型的 LSP想请你帮助改一下，好么？这个LSP能将框选的线变更为虚线，并根据线的长度自动调整到适当的比例。美中不足的是不能变更颜色，想让它变更为特定颜色，如3号色或其他别的颜色号。程序代码有点长，这里贴不完，想私信或邮箱发给你，请你帮我改一下，好吗？

Answer 1

输入对象就修改颜色。输入方式如: 

   (s1606101 ent)

其中ent为原程序里面的对象。子程序代码如下：

(defun s1606101 (&_obj1 / &_obj1);输入对象就可以修改颜色为3。
 (if (null vlax-dump-object) (vl-load-com) )
 (if (= (type &_obj1) 'ENAME) (setq &_obj1 (vlax-ename->vla-object &_obj1)) )
 (vla-put-color &_obj1 3);改变颜色为3
);复制到原程序里面，正确的输入对象就可以改变颜色。

追问

你好，我是说还有另外一个lsp, 它的特点是能根据线长自动将线型比例调整到适宜比例，缺点是无法变更颜色。你看，能不能请你帮我改改。可能也就是增加一两个函数代码而已，不过我不知道在哪里弄。该lsp真的很好用，相信对阁下建筑行业应用也是蛮好用的，只是这里贴不完整。你看，请你你帮我改改好吗