Leaderboard

I did come across this web app to create hatches along the way in case anyone might find it useful. https://pattycake.io/new/drawing

@pkenewell, unfortunately, everyone in the office uses LT except me. I'm not too fond of superhatch. It's impossible to modify it. At least with a hatch you can add/delete vertex points.

@rdx This can mean you are trying to get/set a property that is not available for an object. There is a nice explanation of how to handle this in the Autodesk community forum: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-get-rid-of-quot-ads-request-error-quot/td-p/7281914

It is a Syntax error? Usually supplying an incorrect type to something. IIRC

I used a 100 x 100 square and it showed up. The main pattern seemed to be within a 50 x 50 square, but there were some line start points outside this square. They may be duplicates, I have not got the energy to delve deeper. Or they may be valid points, just initiating outside the square. That should not matter.

I've found Hatch Maker by Lanny Schiele... Here is the link : https://cadtips.cadalyst.com/node/tiplisting?keywords=Lanny Schiele Hatch Maker HTH. M.R.

Here is my version of a 'Chain Selection': [color=GREEN];;--------------------=={ Chain Selection }==-----------------;;[/color] [color=GREEN];; ;;[/color] [color=GREEN];; Prompts the user to select an object and generates a ;;[/color] [color=GREEN];; selection chain of all objects sharing endpoints with ;;[/color] [color=GREEN];; objects in the accumulative selection. ;;[/color] [color=GREEN];;------------------------------------------------------------;;[/color] [color=GREEN];; Author: Lee Mac, Copyright © 2012 - www.lee-mac.com ;;[/color] [color=GREEN];;------------------------------------------------------------;;[/color] ([color=BLUE]defun[/color] c:cs ( [color=BLUE]/[/color] en fl in l1 l2 s1 s2 sf vl ) ([color=BLUE]setq[/color] sf ([color=BLUE]list[/color] '(-4 . [color=MAROON]"<OR"[/color]) '(0 . [color=MAROON]"LINE,ARC"[/color]) '(-4 . [color=MAROON]"<AND"[/color]) '(0 . [color=MAROON]"LWPOLYLINE,SPLINE"[/color]) '(-4 . [color=MAROON]"<NOT"[/color]) '(-4 . [color=MAROON]"&="[/color]) '(70 . 1) '(-4 . [color=MAROON]"NOT>"[/color]) '(-4 . [color=MAROON]"AND>"[/color]) '(-4 . [color=MAROON]"<AND"[/color]) '(0 . [color=MAROON]"POLYLINE"[/color]) '(-4 . [color=MAROON]"<NOT"[/color]) '(-4 . [color=MAROON]"&"[/color]) '(70 . 89) '(-4 . [color=MAROON]"NOT>"[/color]) '(-4 . [color=MAROON]"AND>"[/color]) '(-4 . [color=MAROON]"<AND"[/color]) '(0 . [color=MAROON]"ELLIPSE"[/color]) '(-4 . [color=MAROON]"<OR"[/color]) '(-4 . [color=MAROON]"<>"[/color]) '(41 . 0.0) '(-4 . [color=MAROON]"<>"[/color]) ([color=BLUE]cons[/color] 42 ([color=BLUE]+[/color] [color=BLUE]pi[/color] [color=BLUE]pi[/color])) '(-4 . [color=MAROON]"OR>"[/color]) '(-4 . [color=MAROON]"AND>"[/color]) '(-4 . [color=MAROON]"OR>"[/color]) ([color=BLUE]if[/color] ([color=BLUE]=[/color] 1 ([color=BLUE]getvar[/color] 'cvport)) ([color=BLUE]cons[/color] 410 ([color=BLUE]getvar[/color] 'ctab)) '(410 . [color=MAROON]"Model"[/color]) ) ) ) ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s1 ([color=BLUE]ssget[/color] [color=MAROON]"_X"[/color] sf)) ([color=BLUE]if[/color] ([color=BLUE]setq[/color] en ([color=BLUE]ssget[/color] [color=MAROON]"_+.:E:S"[/color] sf)) ([color=BLUE]progn[/color] ([color=BLUE]setq[/color] s2 ([color=BLUE]ssadd[/color]) en ([color=BLUE]ssname[/color] en 0) l1 ([color=BLUE]list[/color] ([color=BLUE]vlax-curve-getstartpoint[/color] en) ([color=BLUE]vlax-curve-getendpoint[/color] en)) ) ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] in ([color=BLUE]sslength[/color] s1)) ([color=BLUE]setq[/color] en ([color=BLUE]ssname[/color] s1 ([color=BLUE]setq[/color] in ([color=BLUE]1-[/color] in))) vl ([color=BLUE]cons[/color] ([color=BLUE]list[/color] ([color=BLUE]vlax-curve-getstartpoint[/color] en) ([color=BLUE]vlax-curve-getendpoint[/color] en) en) vl) ) ) ([color=BLUE]while[/color] ([color=BLUE]progn[/color] ([color=BLUE]foreach[/color] v vl ([color=BLUE]if[/color] ([color=BLUE]vl-some[/color] '([color=BLUE]lambda[/color] ( p ) ([color=BLUE]or[/color] ([color=BLUE]equal[/color] ([color=BLUE]car[/color] v) p 1e- ([color=BLUE]equal[/color] ([color=BLUE]cadr[/color] v) p 1e-)) l1) ([color=BLUE]setq[/color] s2 ([color=BLUE]ssadd[/color] ([color=BLUE]caddr[/color] v) s2) l1 ([color=BLUE]vl-list*[/color] ([color=BLUE]car[/color] v) ([color=BLUE]cadr[/color] v) l1) fl [color=BLUE]t[/color] ) ([color=BLUE]setq[/color] l2 ([color=BLUE]cons[/color] v l2)) ) ) fl ) ([color=BLUE]setq[/color] vl l2 l2 [color=BLUE]nil[/color] fl [color=BLUE]nil[/color]) ) ) ) ([color=BLUE]princ[/color] [color=MAROON]"\nNo valid objects found."[/color]) ) ([color=BLUE]sssetfirst[/color] [color=BLUE]nil[/color] s2) ([color=BLUE]princ[/color]) ) ([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color]) Example: