home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / cad / may93.zip / TIP869.LSP < prev    next >
Text File  |  1993-05-12  |  1KB  |  43 lines
  1. ; TIP869.LSP   [CTRIM.LSP]
  2. ;   Trim Inside of Circle   (c)1993, Watson H. Kilbourne
  3.  
  4. (defun C:CTRIM (/ CE BM CR ID NM CL SS SL NU)
  5.    (setq CE (getvar "CMDECHO"))
  6.    (setq BM (getvar "BLIPMODE"))
  7.    (defun NE (NE)
  8.        (setvar "CMDECHO" CE)
  9.        (setvar "BLIPMODE" BM)
  10.        (princ "\nFunction cancelled ")
  11.        (princ)
  12.    )
  13.    (setq OE *error* *error* NE)
  14.    (setvar "CMDECHO" 0)
  15.    (while (= CR nil)
  16.        (setq CR (entsel "\nPick circle for inside line removal: "))
  17.    )
  18.    (setq ID (entget (car CR)))
  19.    (setq NM (cdr (assoc 0 ID)))
  20.    (setq CL (cdr (assoc 10 ID)))
  21.    (if (= NM "CIRCLE")
  22.        (progn
  23.            (setvar "BLIPMODE" 0)
  24.            (prompt "\nPick or window the lines to be trimmed... ")
  25.            (setq SS (ssget))
  26.            (setq SL (sslength SS))
  27.            (setq NU -1)
  28.            (command "TRIM" CR "")
  29.            (repeat  SL
  30.                 (setq NU (1+ NU))
  31.                 (command (list (ssname SS NU) CL ""))
  32.            )
  33.            (command \r)
  34.        )
  35.        (prompt "\nEntity is not a circle, try again. ")
  36.    )
  37.    (setvar "BLIPMODE" BM)
  38.    (setvar "CMDECHO" CE)
  39.    (setq *error* OE OE nil)
  40.    (princ)
  41. )
  42. 
  43.