[编程交流] 绘制线条的Lisp

(setq pt1 (getpoint))
(setq pt2 (getpoint))
(setq pt3 (getpoint))
(setq ang (angle pt1p2))
(cond 
(angle 0-1.5706 qaud 1) 45
(angle 1.5707-3.1416 quad2)315
(angle 3.1417-4.7123 quad 3)225
(angle 4.712371-6.283185 quad4)135
after cond can now work out inters
)

; lisp to draw hor lines plus 45's between 2 points
; By BIGAL Jan 2012
(defun c:horbend ()
(setq pt1 (getpoint "\npick 1st point on terminal bar"))
(setq pt2 (getpoint "\npick 2nd point "))
; ang2 is horiz lines ang3 is 45 lines
(setq ang1 (angle pt1 pt2))
(cond
 ((> ang1 4.412388)(setq ang2 0.0)(setq ang3 (* 0.75 pi)))
 ((> ang1 pi)(setq ang2 pi)(setq ang3 (* 0.25 pi))) 
 ((> ang1 (/ pi 2.0))(setq ang2 PI)(setq ang3 (* 0.75 pi)))
 ((> ang1 0.0)(setq ang2 0.0)(setq ang3 (* 0.25 pi)))
)
(setq pt3 (polar pt1 ang2 20.0)) 
(setq pt4 (polar pt2 ang3 20.0))
(setq pt5 (inters pt1 pt3 pt2 pt4 nil))
(command "line" pt1 pt5 pt2 "")
)
(princ)

 
(defun C:HORBEND(/ acsp adoc allset ang cr cs_lst da en end_lst i ip p1 p2 p3 pt sset ta tmp tp)
; credits to BIGAL
;local defuns
; Convert value in radians to degrees
(defun rtd (a)
(* 180.0 (/ a pi))
)
(prompt "\n\t Select number of circles within the terminal port: ")
(if (setq sset (ssget '((0 . "circle") (40 . 100.0))))
(progn
(setq cs_lst nil
end_lst nil
)
(or adoc (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(or acsp (setq acsp (vla-get-block (vla-get-activelayout adoc))))
(while
(setq en (ssname sset 0))
(setq pt (reverse (cdr (reverse (cdr (assoc 10 (entget en))))))
tmp (list pt en)
cs_lst (cons tmp cs_lst)
)
(ssdel en sset)
)
(setq cs_lst (vl-sort cs_lst '(lambda (a b) (> (cadar a) (cadar b)))))
(prompt "\n\t Select circles to connect to selected just at one side: ")
(setq allset (ssget '((0 . "circle") (40 . 100.0))))
(foreach item cs_lst
(ssdel (cadr item)
allset
)
)
(while
(setq cr (ssname allset 0))
(setq pt (reverse (cdr (reverse (cdr (assoc 10 (entget cr))))))
tmp (list pt cr)
end_lst (cons tmp end_lst)
)
(ssdel cr allset)
)
(if (/= (length cs_lst) (length end_lst))
(progn
(alert "Different numbers of start and and points")
(exit)
(princ)
)
)
(setq end_lst (vl-sort end_lst '(lambda (a b) (> (cadar a) (cadar b)))))
(setq i 0)
(repeat (length cs_lst)
(setq p1 (car (nth i cs_lst))
p3 (car (nth i end_lst))
p2 (list (car p3) (cadr p1))
ang (angle p3 p1)
da (rtd ang)
ta
(cond ((< 0. da 90.)
(/ pi 4))
((< 90. da 180.)
(* 0.75 pi))
((< 180. da 270.)
(* pi 1.25))
((< 270. da 360.)
(* pi 1.75))
)
tp (polar p3 ta (* 2 (getvar 'viewsize)))
ip (inters p1 p2 p3 tp nil)
)
(vlax-invoke acsp 'addlightweightpolyline (apply 'append (list p1 ip p3)))
(setq i (1+ i))
)
)
)
(princ)
)
(prompt "\n   ---   Start command with HORBEND   ---")
(prin1)
(or (vl-load-com) )
(princ)