wipe out

[mugshot]

hello

its been years since i visit the site, and hope you guys could help me.

is there a lisp here that could create an wipeout between two object by clicking in between?

say a circle inside a rectangle, creating a wipeout by simply clicking inside the rectangle and automatically creates a wipeout on the circle...

 

im looking for a lisp for it to make a wipeout like sofas, chair, etc without going to trace the object.

 

thank you in advance and Keep safe everyone.

[SLW210]

I have moved your post to the AutoLISP, Visual LISP & DCL Forum. Please post in the appropriate Forum.

[ronjonp]

Maybe this: http://www.lee-mac.com/cwipe.html

[BIGAL]

In the case of overlapping objects, if you bpoly the area then you can pull it apart and replace the arcs/bulge with short straights, some one a bit smarter than me may have something I only have the arch 2 chords part. You can pick the pline for the wipeout.

 

 

; converts an arc or circle to a series of straights
; By alan H 2012
; info@alanh.com.au

(vl-load-com)
(defun C:arc2chords ( / ss ncrd oldsnap ent endpt obj totlen arclen chrdpt num newpt ang cenpt)
(setq oldsnap (getvar "osmode"))

(if (= ncrd nil) (setq ncrd (getint "\nEnter number of chords: ")))
(setvar 'osmode 512)

(while (setq pt (getpoint "Pick Arc or Circle"))
(setq ss (ssget pt (list (cons 0 "Arc,Circle"))))
(setq obj (vlax-ename->vla-object (ssname ss 0 )))

(if (= "AcDbArc" (vla-get-objectname obj))
(progn
(setq  endpt (vlax-curve-getEndPoint obj))
(setq totlen (vla-get-ArcLength obj))
(setq arclen (/ totlen ncrd))
(setq chrdpt (vlax-curve-getStartPoint obj))
(setq num 1)
(command "_Pline" )
(while (= (getvar "cmdactive") 1 ) 
(command chrdpt)
(repeat ncrd
(command (vlax-curve-getPointatDist obj (* arclen num)))
(setq num (+ num 1))
)
(command endpt)
(command "")
)
)
)

(if (= "AcDbCircle" (vla-get-objectname obj))
(progn
(setq rad (vla-get-radius obj))
(setq cenpt (vlax-safearray->list (vlax-variant-value (vla-get-center obj))))
(setq totlen (* pi (* 2.0 rad)))
(setq ang  (/ (* pi 2.)  ncrd))
(setq chrdpt (polar cenpt 0.0 rad))
(setq num 1.0)
(command "_Pline" )
(while (= (getvar "cmdactive") 1 ) 
(command chrdpt)
(repeat ncrd
(command (polar cenpt (* num ang) rad))
(setq num (1+ num))
)
(command "c")
)
)
)
(setvar "osmode" oldsnap)
)
(princ)
)
(c:arc2chords)

 

[mugshot]

thank you guys....

my apologies, but as per attached is what i want to achieve.

 

cheers.

[ronjonp]

Use a hatch.

[mugshot]

hatch sir? then???

 

[ronjonp]

Then do something that mimics a wipeout ?

[ronjonp]

14 hours ago, mugshot said:

thank you guys....

my apologies, but as per attached is what i want to achieve.

 

cheers.

Something like so:

 

Drawing1.dwg

[BIGAL]

As per PM

 

If a spline explode then pedit and rejoin all the segments then do a wipeout use polyline keep outline.

 

[mugshot]

hello...

its been awhile, i tried sort of thing, but it didnt work.

 

maybe my description wad blurry.

i found out that what i seeking is BOUNDARY, but instead of a boundary line, it will be automatically a converted to wipeout.

 

is there a lisp like that?

 

thanks...

cheers