flopo Posted November 25, 2011 Share Posted November 25, 2011 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! Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted November 25, 2011 Share Posted November 25, 2011 Maybe TCIRCLE then EXTRIM? Quote Link to comment Share on other sites More sharing options...
flopo Posted November 25, 2011 Author Share Posted November 25, 2011 TCIRCLE is ok, but EXTRIM only 1 object at a time... pick 1 by 1... Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted November 25, 2011 Share Posted November 25, 2011 TCIRCLE is ok, but EXTRIM only 1 object at a time... pick 1 by 1... beggars can't be choosers Quote Link to comment Share on other sites More sharing options...
flopo Posted November 25, 2011 Author Share Posted November 25, 2011 I choose to beg your pardon, Lee . Quote Link to comment Share on other sites More sharing options...
alanjt Posted November 25, 2011 Share Posted November 25, 2011 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) ) Quote Link to comment Share on other sites More sharing options...
flopo Posted November 26, 2011 Author Share Posted November 26, 2011 Thanks Alan, is perfect! Quote Link to comment Share on other sites More sharing options...
BlackBox Posted November 26, 2011 Share Posted November 26, 2011 ROFL. Best language barrier mix-up ever. 1+ ... LoL Quote Link to comment Share on other sites More sharing options...
iamtristanc Posted April 17, 2018 Share Posted April 17, 2018 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) ) Quote Link to comment Share on other sites More sharing options...
BIGAL Posted April 17, 2018 Share Posted April 17, 2018 Not tested but should work (setq ss (ssget '((0 . "CIRCLE,lwpolyline")))) Quote Link to comment Share on other sites More sharing options...
iamtristanc Posted April 30, 2018 Share Posted April 30, 2018 Awesome, thank you! Not tested but should work (setq ss (ssget '((0 . "CIRCLE,lwpolyline")))) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.