Make and Save Custom Hatch Pattern

-
This Routine has been featured on Cadalyst’s website and is very handy. 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. 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. Or use the “SEGS” LISP routine to convert the curved objects to polylines and then explode the polyline. This will turn the polyline segments into line segments.

 There are 2 commands:

 1) DRAWHATCH <enter> creates a 1X1 square in which you draw your custom hatch pattern

 After you have drawn your hatch pattern:

 2) SAVEHATCH <enter> lets you name your hatch Pattern and save it as a .pat file.

 Saving the .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.

 Picture below: DRAWHATCH & SAVEHATCH in action


Picture below: Applying the newly created hatch



Picture below: Opening the .pat file created by the SAVEHATCH command


Credits 

 CADALYST(c) 2005 Larry Schiele

 Written by Lanny Schiele at TMI Systems Design Corporation

 E-Mail : Lanny.Schiele@tmisystems.com

 Tested on AutoCAD 2002 to 2012. -- does include a 'VL' function -- should work on Acad2000 on up.

Comments

Post a Comment

Popular posts from this blog

BGTOOLS (Background tools)

-
Image
BGLAYDEL - Deleting frozen and frozen layers with primitives BG1BLEXP - Blocks blocks consisting of one primitive (possibly another block) BGBLEXP - Blocks the block and all the blocks included in it, turning visible attributes into text BGBLEXP1 - Blocks the blocks of the 1st level, turning visible attributes into text BGBLDYNEXP1 - Explodes dynamic blocks of the 1st level, turning visible attributes into text BGBLEXP1NOATT - Blocks level 1 blocks that do not have visible attributes BGBLXCLIP - Shows clipped blocks BGBLDYN2A - Converts dynamic blocks to anonymous BGBLDYN2S - Converts dynamic blocks to static ones BGBLALLDYN2A - Converts ALL dynamic blocks to anonymous     BGBLALLDYN2S - Converts ALL dynamic blocks to static ones   BGBLXCLIPEXP - to blow up the cropped block BGCB - copies one of the block occurrences to a block with a new name  BGRB - renames one of the block occurrences in a block with a new name M2U - Convert MINSERT to Unnamed block...
Read more

Strip Mtext

-
Image
This program creates a user command that will quickly remove formatting applied to individual characters and words inside Mtext objects. StripMtext can remove the following types of formatting: Alignment  Color  Font Height  Underscore  Overscore  Linefeed (Paragraph Return)  Obliquing  Stacking  Tracking  Width  Non-breaking Space StripMtext does not modify Mtext properties such as style, justification, width, and rotation.  Nor does it manipulate inherited properties such as layer, entity color, etc. Note: Removing Mtext formatting is a very complex procedure.  This program has been designed to safely remove formatting but no guarantee exist.  Until you become familiar with StripMtext, please save your drawing before using.  If you do not like the results, you can immediatly issue an Undo command to restore your Mtext to its prior condition.  You are encouraged to spend a few minu...
Read more

Quickly Rotate The Drawing UCS, Without losing the original co-ordinates

-
Image
1. Load the LISP using APPLOAD command (AP) 2. Draw or select a line along the longest side of the property, building, etc.  3. Type "ROD" command to activate the lisp. 4. Select the line or object. 5. Done "This can also be done in a viewport without affecting model space, but you will need to reset the VP scale." Notes : Rotating your UCS to an object is a very quick way to rotate your drawing's view so that it is aligned with a major object in your drawing. This works very well when you want to rotate the view in a viewport. It is instant and it rotates the view to the angle of the object you select. To put things back to normal, type PLAN on the Command line and choose WORLD, then type UCS and select WORLD.
Read more