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

xiaoliang200

我有个只要选中一条直线就能合并首尾相接直线的程序，可是当有很多图元的时候运行速度会很慢！请问应如何改进？

AMTONNY

(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))
  )，试试偶的这个，超好用

xiaoliang200

谢谢，你真聪明！

你说怎么lisp的运行会这么慢，才几万次的运算就这么慢！

cy956

不用vl，用老lisp更快