Trim lines around text - help

Hi guys,

I need a lisp to l trim lines around texts - at a given value - to work this way: select texts or mtexts, insert value for distance around text, and trim all lines that intersect all texts and mtexts selected . Something like background mask , but with trim. Thanks!

Maybe TCIRCLE then EXTRIM?

TCIRCLE is ok, but EXTRIM only 1 object at a time... pick 1 by 1...

TCIRCLE is ok, but EXTRIM only 1 object at a time... pick 1 by 1...

beggars can't be choosers

I choose to beg your pardon, Lee .

I choose to beg your pardon, Lee .

ROFL. Best language barrier mix-up ever.

Only because I wrote this a year ago...only designed to work with circles....

(defun c:CIT (/ ss)
 ;; Trim Inside of selected Circles
 ;; Required subroutines: etrim (from Express Tool: EXTrim.LSP)
 ;; Alan J. Thomspon, 12.22.10
 (if (or etrim (load "extrim.lsp" nil))
   (if (setq ss (ssget '((0 . "CIRCLE"))))
     ((lambda (i / e)
        (while (setq e (ssname ss (setq i (1+ i))))
          (etrim e (cdr (assoc 10 (entget e))))
        )
      )
       -1
     )
   )
   (alert "Express Tool: EXTrim required!")
 )
 (princ)
)

Thanks Alan, is perfect!

ROFL. Best language barrier mix-up ever.

1+ ... LoL

Hey alanjt, how difficult is it to get this working with rectangles/polylines?

I tried replacing "CIRCLE" with "POLYLINE" but that didn't work... Seemed too basic haha

ROFL. Best language barrier mix-up ever.

 

Only because I wrote this a year ago...only designed to work with circles....

 

(defun c:CIT (/ ss)
 ;; Trim Inside of selected Circles
 ;; Required subroutines: etrim (from Express Tool: EXTrim.LSP)
 ;; Alan J. Thomspon, 12.22.10
 (if (or etrim (load "extrim.lsp" nil))
   (if (setq ss (ssget '((0 . "CIRCLE"))))
     ((lambda (i / e)
        (while (setq e (ssname ss (setq i (1+ i))))
          (etrim e (cdr (assoc 10 (entget e))))
        )
      )
       -1
     )
   )
   (alert "Express Tool: EXTrim required!")
 )
 (princ)
)

Not tested but should work

(setq ss (ssget '((0 . "CIRCLE,lwpolyline"))))

Awesome, thank you!

Not tested but should work

 

(setq ss (ssget '((0 . "CIRCLE,lwpolyline"))))