[求助]求通过框选连接线的lisp程序

hdlyt11

探索者或者网上发布的程序都是单选，选择一条再选另一条，实现连接一条断开的直线，不知道高手们能不能写一个可以框选一批断开的直线实现连接的程序，最好断点间的距离可以设置。

gufeng

cad 自带的 PEDIT 命令不行吗？

hdlyt11

只能单选，操作复杂啊

szx025

(defun c:ll (/ delss en lstx lsty l_ang n ss t1 time xory)
  (command ".undo" "be")
  (setq ss (ssget '((0 . "line"))))
  (setq t1 (getvar "date"))
  (setq n 0)
  (setq delss (ssadd))
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq l_ang (angl en))
    (if (or (equal l_ang 1.57 0.8)
     (equal l_ang 4.71 0.8)
 )
      (setq lsty (cons en lsty))
      (setq lstx (cons en lstx))
    )
    (setq n (1+ n))
  )
  (setq xory 0)
  (lstxy lstx)
  (setq xory 1)
  (lstxy lstY)
  (command "erase" delss "")
  (command ".undo" "e")
  (princ "\n选取了:< ")
  (princ (sslength ss))
  (princ " >合并了:< ")
  (princ (sslength delss))
  (setq time (rtos (- (getvar "date") t1) 2 16))
  (if (= time "0")
    (princ " > 程序太快了啦没啥用时啦！")
    (princ (strcat " > 用时:"
     (menucmd (strcat "m=$(edtime,"
        time
        ",hh:mm:ss:msec)"
       )
     )
    )
    )
  )
  (princ)
)
;;;(princ
  ;;;"\n※共线直线合并程序。调用命令为：ll ※\n"
;;;)

hdlyt11

错误 : no function definition: ANGL

hdlyt11

程序错误，没定义angle