以下代码,对直线有效,仅供参考
(defun c:YYZC1 (/ ssg py n lst chpt)
(defun chpt (pt y)
(cons (car pt)
(polar (list (cadr pt) y) (* 0.25 PI) (- (caddr pt) y))
)
)
(setq ssg (ssget (list (cons 0 "LINE")))
py (cadr (getpoint "\nBase Point:"))
n -1
)
(while (< (setq n (1+ n)) (sslength ssg))
(setq lst (entget (ssname ssg n)))
(setq lst (subst (chpt (assoc 10 lst) py) (assoc 10 lst) lst))
(setq lst (subst (chpt (assoc 11 lst) py) (assoc 11 lst) lst))
(entmod lst)
)
(princ)
)
(princ "\n\tType YYZC1 to start!!")
(princ)

:handshake :handshake