trimming many lines in auto cad 2013

[PRA3889]

how to trim all lines inside the circle in only one step in auto cad 2013

Drawing2.dwg

[BIGAL]

No code but make a list of circles entname then loop, trim ent1 cen pt circle manually works.

 

 

this is close

 

 

(defun ah:trimcirs ( / x obj ss)
 (setvar "osmode" 0)
(setq ss (ssget (list (cons 0 "Circle"))))
(setq x 0)
(repeat (sslength ss)
(setq obj (ssname ss x))
(setq cenpt (cdr (assoc 10 (entget obj))))
(command "trim" obj "" cenpt "")
(setq x (+ x 1))
)
)
(ah:trimcirs)

Edited January 21, 2014 by BIGAL

[nestly]

Since it's a constant pattern, perhaps use an ARRAY?

 

[ReMark]

The lisp routine in the link to the thread below by forum member irneb will trim out the lines in all the circles. See post #8.

 

http://www.cadtutor.net/forum/showthread.php?68144-how-trim-many-line-inside-multi-circle-on-one-step&p=467090&viewfull=1#post467090

[BIGAL]

2nd the use Irneb method

[pBe]

Make a Break....

 

(Defun c:demo (/ cir lin cirline e int)	  	
(if (setq cir	  nil
  lin	  nil
  cirline (ssget '((0 . "CIRCLE,LINE")))
   )
 	(progn
  (repeat (sslength cirline)
  	(setq e  (ssname cirline 0))
  	(if (eq (cdr (assoc 0 (entget (setq e  (ssname cirline 0))))) "CIRCLE")
	  (setq cir (cons (vlax-ename->vla-object e) cir))
	  (setq lin (cons e lin))
	)
    (ssdel e cirline)
  )
  (foreach itm lin
    (if (and cir
	  (setq int
	  	(vl-some '(lambda (x)
			    (if	(setq
				  hit (vlax-invoke
					(vlax-ename->vla-object itm)
					'intersectwith
					x acExtendNone
				      )) (list x hit)
			    )
			  )
			 cir
		))
	     (= (length (setq pts (cadr int))) 6)
	     )
      (command "_break" itm "_non" (list (car pts)
					 (cadr pts))
	       		    "_non" (list (nth 3 pts)
					 (nth 4 pts)))
      )
    )
  )
 )
 (princ)
  )