请教一个问题

非常感谢！谢谢

以下就是highflybird写的.......
他应该不介意我代码发在这里吧..呵呵.
;;;test
(defun c:test(/ sel1 sel2 lst1 lst2)
(if (and (setq sel1 (ssget ’((0 . "POINT"))))
(princ "\n请选择下面的点:")
(setq sel2 (ssget ’((0 . "POINT"))))
(= (sslength sel1) (sslength sel2))
)
(progn
(setq lst1 (get-points-list sel1))
(setq lst2 (get-points-list sel2))
(setq lst1 (vl-sort lst1 ’sort-by-angle-distance))
(setq lst2 (vl-sort lst2 ’sort-by-angle-distance))
(mapcar ’make-line lst1 lst2)
)
)
(princ)
)
;;;sort
(defun sort-by-angle-distance (e1 e2 / an1 an2 d1 d2 p1x p1y p2x p2y)
(setq p1x (car e1))
(setq p1y (cadr e1))
(setq p2x (car e2))
(setq p2y (cadr e2))

(setq an1 (angle ’(0 0) (list p1x p1y)))
(setq an2 (angle ’(0 0) (list p2x p2y)))
(setq d1 (+ (* p1x p1x) (* p1y p1y)))
(setq d2 (+ (* p2x p2x) (* p2y p2y)))
(if (equal an1 an2 1e-8)
(< d1 d2)
(< an1 an2)
)
)
;;;make-line
(defun make-line (pt1 pt2)
(entmake
(list
’(0 . "LINE")
(cons 10 pt1)
(cons 11 pt2)
)
)
)
;;;get point set
(defun get-points-list (sel / i ent lst pt pts)
(setq i 0)
(repeat (sslength sel)
(setq ent (ssname sel i))
(setq lst (entget ent))
(setq pt (cdr (assoc 10 lst)))
(setq pts (cons pt pts))
(setq i (1+ i))
)
pts
)