[编程交流] LISP代码绘制一条直线

(and
 (setq p1 (getpoint "\nFirst point"))
 (setq p2 (getpoint p1 "\nSecond point"))
 (progn
   (redraw)
   (grdraw p1 p2 1)                ; draw your line in red
   (grdraw                         ; draw the perpendicular line in yellow
     p1                            ; starting from p1
     (polar                        ; calculate the 2nd point
       p1                          ; starting from p1
       (+ (angle p1 p2) (/ PI 2.)) ; perpendicular angle, Pi/2 = 90 deg
       (distance p1 p2)            ; distance, same as the original line
     ); polar
     2
   ); grdraw
 ); progn 
); and

(defun C:test ( / e grr Stop )
 (if (setq e (car (entsel "\nSelect line, or curve: ")))
   (while (not Stop)
     (setq grr (grread T))
     (cond
       ( (= (car grr) 25) (setq Stop T) )
       ( (= (car grr) 5) (redraw) (grdraw (cadr grr) (vlax-curve-getClosestPointTo e (cadr grr) T) 2) )
       ( (= (car grr) 3) 
         (entmakex 
           (list (cons 0 "LINE") (cons 10 (cadr grr)) (cons 11 (vlax-curve-getClosestPointTo e (cadr grr) T)) )
         )
         (setq Stop T)
       )
     ); cond                        
   ); while
 ); if
 (princ)
); defun

3