home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
cad
/
may93.zip
/
TIP869.LSP
< prev
next >
Wrap
Text File
|
1993-05-12
|
1KB
|
43 lines
; TIP869.LSP [CTRIM.LSP]
; Trim Inside of Circle (c)1993, Watson H. Kilbourne
(defun C:CTRIM (/ CE BM CR ID NM CL SS SL NU)
(setq CE (getvar "CMDECHO"))
(setq BM (getvar "BLIPMODE"))
(defun NE (NE)
(setvar "CMDECHO" CE)
(setvar "BLIPMODE" BM)
(princ "\nFunction cancelled ")
(princ)
)
(setq OE *error* *error* NE)
(setvar "CMDECHO" 0)
(while (= CR nil)
(setq CR (entsel "\nPick circle for inside line removal: "))
)
(setq ID (entget (car CR)))
(setq NM (cdr (assoc 0 ID)))
(setq CL (cdr (assoc 10 ID)))
(if (= NM "CIRCLE")
(progn
(setvar "BLIPMODE" 0)
(prompt "\nPick or window the lines to be trimmed... ")
(setq SS (ssget))
(setq SL (sslength SS))
(setq NU -1)
(command "TRIM" CR "")
(repeat SL
(setq NU (1+ NU))
(command (list (ssname SS NU) CL ""))
)
(command \r)
)
(prompt "\nEntity is not a circle, try again. ")
)
(setvar "BLIPMODE" BM)
(setvar "CMDECHO" CE)
(setq *error* OE OE nil)
(princ)
)