Need routine to clean drawings

[loftpc]

I am looking for some help in creating a lisp routine to clean up a large number of individual drawings. I am trying to create a circle "c" of 30 from a specific point, then trim "tr" any tangent/arc if it is outside of the circle (select line or arc if it is outside) , then erase the circle when done. This would save a number keystrokes over the hundreds of drawings to be cleaned up. Thanks in advance for the help!

@BushW has edited your subject line for clarity: circle/trim lisp routine

[jmartt]

I'd imagine that the LISP routine would be pretty easy. But I dunno how to do that. I wanted to say, though, that 1.) I've had good luck with posting things like this on the LISP forum: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/bd-p/130

...And 2.) This may not be a viable option for you, but if I had to do something like this, I'd make a block with a hatched circle or donut of a color that the plot style is at 0 screening and place that circle/donut where you want it, effectively masking the linework.

[odoshi]

Sounds like a modified version of EXTRIM (?)

I wrote an app that did something similar in .NET, but I think stringing a CIRCLE command, pickpoint, and EXTRIM command together might be simpler in LISP.

Regards,

Mike

[odoshi]

(DEFUN C:COOKIE()

(SETQ PTCENTER (GETPOINT "CIRCLE CENTER POINT: "))
(COMMAND "CIRCLE" PTCENTER 30)
(SETQ CIRC (ENTLAST))
(if
(COND
(ETRIM)
(T (LOAD "extrim.lsp" "") ETRIM)
)
(ETRIM CIRC PTCENTER)
)

(PRINC)
)

[loftpc]

Extrim not a good routine for this as it goes around the circle looking for lines/arcs to trim .. takes forever. I am a novice and do not know the programming procedures but I believe if I could load the circle "c" command, ask for a pt to draw a 30' radius from, then load the trim "tr" command and be able to trim to the circle it would give me what I'm looking for. Being able to erase the circle after selecting the last line/arc to trim would also be quite useful.  Thanks, Chip

[BushW]

Hello @loftpc

I see that you are visiting as a new member to the AutoCAD Civil 3D forum. Welcome to the Autodesk Community!

Best Regards,

Wendell

[awkeller88]

I found this a while ago. Won't work with your circle (asks for a polyline). But should get you most of the way there.

;Required Express tools
;OutSide Contour Delete with Extrim
(defun C:OCD (  / en ss lst ssall bbox)
(vl-load-com)
  (if (and (setq en (car(entsel "\nSelect contour (polyline): ")))
           (wcmatch (cdr(assoc 0 (entget en))) "*POLYLINE"))
    (progn
      (setq bbox (ACET-ENT-GEOMEXTENTS en))
      (setq bbox (mapcar '(lambda(x)(trans x 0 1)) bbox))
      (setq lst (ACET-GEOM-OBJECT-POINT-LIST en 1e-3))
      (ACET-SS-ZOOM-EXTENTS (ACET-LIST-TO-SS (list en)))
      (command "_.Zoom" "0.95x")
      (if (null etrim)(load "extrim.lsp"))
      (etrim en (polar
                  (car bbox)
                  (angle (car bbox)(cadr bbox))
                  (* (distance (car bbox)(cadr bbox)) 1.1)))
      (if (and
            (setq ss (ssget "_CP" lst))
            (setq ssall (ssget "_X" (list (assoc 410 (entget en)))))
           )
        (progn
          (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
          (foreach e1 lst (ssdel e1 ssall))
          (ACET-SS-ENTDEL ssall)
          )
        )
      )
    )
  )
(princ "\nType OCD")

~Andy

[AllenJessup]

If you need a polyline. Draw a Donut instead of a Circle.

[loftpc]

Thanks for the suggestions but I'm really just looking to combine circle (with a radius), trim and erase commands into one lsp routine. Drawing a polyline, donut or using extrim is not giving me the solutions I need. Again, thanks for the advice though.

[AllenJessup]

Just curiosity. But. Why wouldn't a Donut work?

[AllenJessup]

OK. You asked for help in writing a lisp. Do you need help or do you need someone to write it for you?

When you say " trim "tr" any tangent/arc if it is outside of the circle" do you mean you want to trim anything that crosses the circle and leave what remains inside the circle? Do you only want to trim lines and arcs or anything that crosses the circle? Do you want to erase anything that is outside the circle but does not cross it?

Basically you're dealing with 2 commands. The Circle command and the Trim command. Bearing in mind that you can erase from within the trim command.

For the Circle command you'll need the center point and radius, which you have already determined.

For the trim command I would select the circle by using Last. I would determine coordinates for a close fence just outside the circle to trim with and then use the eRase option in the Trim command to delete the circle. The easiest way to get coordinates for the fence is to draw it with a polyline and get the coordinates from the verticis.

[odoshi]

@AllenJessup Right on. Just use a 100 sided polygon. Plenty of vertices to pass to a fence list.

Anyways, the Honda Fit is free...the Lam is gonna cost $$. 

[BushW]

Hello @loftpc

I was following up to see if @odoshi, @awkeller88 and @AllenJessup resolve your issue with the great suggestions? If so, please reward the post that worked with an ‘Accepted as Solution’ and also mark a post or posts as Accepted Solution(s) that resolved the issue or answered your question so, other Community members may benefit and thank you for doing so, and I’m here to help.

Best Regards,

Wendell

[loftpc]

Reposted a request on the AutoLisp forum and got a solution that worked as needed. Thanks to those that helped! Chip

[BushW]

@loftpc

That's great! Can you provide the link that solved your post from the other forum? Thanks

Best Regards,

Wendell

[AllenJessup · Accepted solution]

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/new-lisp-routine-help/m-p/7491833#M3...

[BushW]

Thanks Allen