home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
GR
/
GR505.ZIP
/
LSP.EXE
/
DIAM.LSP
< prev
next >
Wrap
Text File
|
1988-06-13
|
716b
|
22 lines
; DIAM.LSP. This AutoLIPS function allows you to quickly draw a diameter
; through a circle. First, pick the circle, then an angle for the line.
; Use ORTHO mode to draw lines at exact 0 or 90 degree angles.
;
; Frank A. Himsl, c/o LanStart Inc.,
; 504 Iroquois Shore Rd., Oakville, Ontario, CANADA L6H 3K4
; Voice: (416) 842-2730
; Compuserve: 71521,1241
;
(defun C:DIAM (/ pt1 ang ctr tc)
(setq tc (entget (car (entsel "\nPick circle, angle: "))))
(if (= (cdr (assoc 0 tc)) "CIRCLE")
(progn
(setq
ctr (cdr (assoc 10 tc))
ang (getangle ctr)
tc (cdr (assoc 40 tc)))
(command "line" (polar ctr ang tc) (polar ctr (+ pi ang) tc) ""))
(prompt "\nNot a circle\n")
)
)