请高手帮忙把我这个程序变快！
 

请高手帮忙把我这个程序变快！
www.dimcax.com
请高手帮忙把我这个程序变快！
我有个只要选中一条直线就能合并首尾相接直线的程序，可是当有很多图元的时候运行速度会很慢！请问应如何改进？
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
(defun c:aj (/ list1 xlist xa1 xb1) ;可用于封闭模图
(setq xa1 0)
(setq list1 (ssget))
;(setq list2 list1)
(setq xb1 1)
(while (< xa1 xb1)
(setq xlist (ssname list1 xa1))
(command "pedit" xlist "y" "j" "all" "" "")
(setq xa1 (1+ xa1))
)，试试偶的这个，超好用
d
你真聪明！
你说怎么lisp的运行会这么慢，才几万次的运算就这么慢！
d
不用vl，用老lisp更快
d