( defun C:DrawHatch ( / ) ( command 'undo' 'be' ) ( setq os ( getvar 'OSMODE' )) ( setvar 'OSMODE' 0 ) ( command 'UCS' 'w' ) ( command 'PLINE' '0,0' '0,1' '1,1' '1,0' 'c' ) ( command 'zoom' 'c' '0.5,0.5' 1.1 ) ( setvar 'OSMODE' os ) ( setvar 'SNAPMODE' 1 ) ( setvar 'SNAPUNIT' ( list 0.01 0.01 )) ( command 'undo' 'e' ) ( alert 'Draw pattern within 1x1 box using LINE or POINT entities only.' ) ( princ ) ) ( defun C:SaveHatch ( / round dxf ListToFile does include a 'VL' function - should work on Acad2000 on up. CADALYST 10/: HatchMaker.lsp Hatch Maker (c) 2005 Larry Schiele * = B E G I N C O D E N O W = * HatchMaker.lsp written by Lanny Schiele at TMI Systems Design Corporation * * Tested on AutoCAD 2002 & 2006. pat file created by the SAVEHATCH command Picture below: Applying the newly created hatch Picture below: DRAWHATCH & SAVEHATCH in action pat file (hatch pattern) allows you to copy the contents and save it in your support file or even add it to your acad.pat file where all of your default patterns are stored. This will turn the polyline segments into line segments.ġ) DRAWHATCH creates a 1X1 square in which you draw your custom hatch patternĢ) SAVEHATCH lets you name your hatch Pattern and save it as a. Or use the “SEGS” LISP routine to convert the curved objects to polylines and then explode the polyline. The only drawback that I have come across is that it will only accept line and point entities… This can be over come by drawing your curved objects and then using other LISP routines to convert arcs and circles to line entities. If you have ever wondered how to make a custom hatch pattern and then looked at the coding that is required, you will really appreciate this routine.

This Routine has been featured on Cadalyst’s website and is very handy.

Autocad hatch pattern maker