 - ;; tt(最近点连接线)(defun c:tt ()
- (if (setq ss (ssget '((0 . "point"))))
- (progn
- (setq lst (xyp-ss2list ss)
- ptn (mapcar '(lambda (x) (xyp-DXF 10 x)) lst)
- p7 (xyp-9pt ss 7)
- ptn1 '()
- )
- (while ptn
- (setq pt (xyp-ptnearptn p7 ptn)
- ptn (vl-remove pt ptn)
- ptn1 (cons pt ptn1)
- p7 pt
- )
- )
- (xyp-Pline (reverse ptn1) nil)
- )
- )
- (princ)
- )
|