Leaderboard

Sorry, I issued a warning and deleted the offending post.

grrear doesn't do snaps so easily - if you look at Lee Macs link above to get the snaps I might have something - will have to look

To answer the original question, I would never bother trying to crack it, just learn to code or ask on a forum for a new solution, which many times will be better anyway. If source is unknown, I wouldn't even want to use it. If it's so old the author cannot be located or is long gone, then most likely there is something else out there better or even something newer AutoCAD does.

I just came up with another approach, which I think is better. You can use 'vla-intersectwith' directly to determine if any geometry is inside or outside the contour obtained with 'hatchedit'. You could apply @Saxlle's idea of creating a selection set from 'vla-getboundingbox' to make a first filter. And apply 'vla-intersectwith' to all the segments of the selected lines to check if they are inside. I'll leave the idea there. Try to understand it and advance in it on your own. It's the way to progress and improve your skills. If you get to a point where you need help, ask again.

Ok a couple of answers no code at moment for a point on your plines shape you can get the 90 angle of that point so draw the little 1 unit line in correct direction. Clue 2 if the shapes are closed plines then you need to work on a pline segment not pts, Lee-Mac has a pline properties program that looks at BULGES that is what a curved section of a pline is known as so its is easy once you know the length of the arc and the start point of the arc to work out the pts along it. So need code like that to work out for say a picked segment is it a straight line or curved. Clue 3 can check the length of the segment so if less than a value don't add ticks. Need something like a list the U shape (100 675 100 575) , 1/2 pie (500 750) Will have a think, some one else may jump in 1st.

You would need to implement your own Object Snap functionality, or perhaps leverage my existing GrSnap function.

These may be useful examples. (command "erase" (ssget "X" '((0 . "IMAGE"))) "") (command "imageattach" (strcat "D:\\acadtemp\\" img) pt 1000 0)

https://www.cadtutor.net/forum/topic/44080-up-and-running-with-the-2013-core-console/

Try the following: ;; Redo Command (defun c:recom nil (LM:sendkeys "_.undo~1~{UP}{UP}~")) ;; Send Keys - Lee Mac ;; A wrapper function for the SendKeys method of the WSH (defun LM:sendkeys ( keys / wsh ) (setq wsh (vlax-create-object "wscript.shell")) (vl-catch-all-apply 'vlax-invoke (list wsh 'sendkeys keys)) (vlax-release-object wsh) (princ) ) (princ)

Author does not want to let others see Source. so We can't help you . you need contact the author.