Create dimension styles

Does anyone have a lisp or script that creates new dimension styles and sets
them current?
ie When button '20' clicked, the routine creates dimstyle 20 with all the
relevant dimfit etc.
Regards Peter.

 

I looked at this sometime again when creating a drop down menu containing our layering standard. This allows the user to select 'Dimension 1:20' and would make to correct layer and dimension style current.

Originally I started using diesel strings within the menu (half the office is on LT, does support Autolisp), though this worked fine by creating a new dimension style, with larger drawings, the vast number of system varies that need altering can become time comsumering.

In the end I opted to insert a block containg the all the dimension styles, then making the relavent style current, see below.

[Dimension 1:5 ]^C^C-style^m"a-text0005"^marial^m0^m1^m0^mn^mn^m^c^c-layer^mm^m"a-dim0005"^mc^m1^m^m^m^c^c-insert^m"*MCA-Dimensions.dwg"^m0,0,0^m1^m0^m^c^c-dimstyle^mR^m"a-dim0005"^mgraphscr^m

this seam to do the trick and is very reliable.

 

Here's a lisp that does that


--
Andrew Nielsen ;o)>

Andysan1@@bigpond.com
Remove extra @ to send


| Does anyone have a lisp or script that creates new dimension styles and sets
| them current?
| ie When button '20' clicked, the routine creates dimstyle 20 with all the
| relevant dimfit etc.
| Regards Peter.
|
|
|