Question

cad开发人员 高手请进 AutoLISP/Visual LISP 编程技术

我想把cad图中多段线变成铁路线的线型。下载了一个“cad的70个小工具”的插件，里面有个选项为“spl转铁路”。用pe命令转多段线为spl，出现 参数类型错误: lselsetp nil
论坛上有人说：
你的lselsetp是一个空表。导致程序出错。你只要加一行判断应用能解决。
(if lselsetp
(执行操作……)
(EXIT)
)

（执行什么操作？）
然后尝试创建一个.lsp文件，里面放进这四行，之后加载，出现 命令: ; 错误: quit / exit abort 汗。。
请问具体如何操作，最终目的是变多段线为铁路线型~谢谢~

Answer 1

你看看这个你能不能用？
(defun c:jjx (/ a d p n )
(setq no1 0.4) ;0.4是线宽，自己修改
(while (setq a (entsel "\n选择多义线 : ")) (cg1)
(setq d (vlax-ename->vla-object (car a))
p (vlax-curve-getclosestpointto d (trans (cadr a) 1 0))
n (fix (vlax-curve-getparamatpoint d p))
)
(vlax-invoke-method d 'setwidth n no1 no1)
)
)
(defun cg1 ( )
(setvar "cmdecho" 0)
(command "change" a "" "p" "LT" "x17" "");x17是线型名，自己修改。
(prin1)
)