Loading My Company Dimenstion Styles from LISP
You have to export dimension style variables to reuse it. To do so start dimension style manager (dimstyle), select on you want to export and set it as current. Press compare button and in popup under compare and with option select same dimension style. As you do so dimension values for that style will show up.
Use copy button next to the table and copy values to clipboard and paste it to some txt file. Here you have list of all DIM*** system variables related to that dimension style.
For particular dimension style you can have ....
(defun c:create_base_style()
(setvar "DIMALTD" 4)
(setvar "DIMALTF" 1)
(setvar "DIMALTTD" 4)
(setvar "DIMALTU" 4)
(setvar "DIMADEC" 1)
(setvar "DIMAZIN" 0)
(setvar "DIMARCSYM" 1)
(setvar "DIMASZ" 1)
(setvar "DIMCEN" 0)
(setvar "DIMCLRD" 3)
.....
(command "dimstyle" "s" "base_style")
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
You have it telling the User that the Style already exists only when it doesn't. And the formatting to show the double-quotes in that message is incorrect. And you need to Save it after setting the variables. And I would use (setvar) rather than all those things as commands. Also, (alert) rather than (princ) [or I would have used (prompt)] carries with it its own "Enter to continue" idea in its OK button.
Shouldn't it be more like:
(if (tblsearch "DIMSTYLE" "CORE-PARKING-8.5")
(alert "\nDimension style \"CORE-PARKING-8.5\" already exists."); then
(progn ; else
(setvar 'dimscale 20.0) ; Dimension scale factor
.... ;;; etc., etc.
(setvar 'dimdec 1) ; Primary units precision
(command "_.dimstyle" "_save" "CORE-PARKING-8.5")
(alert "\nDimension style \"CORE-PARKING-8.5\" created.")
); progn [else]
); if
Or, if you want to force values for the Style even if it already exists, to update it in case it's not according to current standards, it would be structured differently:
(if (tblsearch "DIMSTYLE" "CORE-PARKING-8.5")
(alert "\nDimension style \"CORE-PARKING-8.5\" already exists -- updating."); then
); if
;; then regardless of whether or not it exists already:
(setvar 'dimscale 20.0) ; Dimension scale factor
.... ;;; etc., etc.
(setvar 'dimdec 1) ; Primary units precision
(command "_.dimstyle" "_save" "CORE-PARKING-8.5")
(if (tblsearch "DIMSTYLE" "CORE-PARKING-8.5") (command "_yes"))
(alert
(strcat
"\nDimension style \"CORE-PARKING-8.5\" "
(if (tblsearch "DIMSTYLE" "CORE-PARKING-8.5") "updated." "created.")
); strcat
); alert
@Todd_Rogers I've edited your lisp, and it now works ok.
Before setting dimtext style and other values that are commented they have to be defined. Text style before dimstyle text .....
(defun COREDIMS ()
(if (and (tblsearch "DIMSTYLE" "CORE-PARKING-8.5"))
(progn
(princ "\nDimension style CORE-PARKING-8.5 already exists.")
)
(progn
(setvar 'DIMSCALE 20.0 ); Dimension scale factor
(setvar 'DIMLUNIT 2 ); Sets units for all dimensions
;(setvar 'DIMANNO 0 ); Annotative
(setvar 'DIMBLK ""); Arrowhead style closed filled
(setvar 'DIMASZ 0.18 ); Arrowhead size
(setvar 'DIMCLRD 256 ); Dimension line color
(setvar 'DIMCLRE 256 ); Extension line color
(setvar 'DIMCLRT 256 ); Text color
(setvar 'DIMLWD -2 ); Dimension line lineweight
(setvar 'DIMLWE -2 ); Extension line lineweight
(setvar 'DIMGAP 0.125 ); Dimension break
(setvar 'DIMTIH 0 ); Text aligned with dimension line
(setvar 'DIMTAD 1 ); Text above dimension line
(setvar 'DIMJUST 0 ); Dimension text justification
(setvar 'DIMEXO 0.05 ); Extension line offset
(setvar 'DIMEXE 0.05 ); Extension beyond dimension line
(setvar 'DIMDLE 0 ); Dimension line extension
(setvar 'DIMRND 0 ); Rounding value
;(setvar 'DIMTXSTY "CORE-STANDARD" ); Text style
(setvar 'DIMTXT 0.1 ); Text height
(setvar 'DIMCEN 0 ); Center mark style
(setvar 'DIMTSZ 0.18 ); Dimension text size
(setvar 'DIMLFAC 1.0 ); Linear scale factor
;(setvar 'DIMASO 2 ); Associative object display
(setvar 'DIMTIX 1 ); Force text inside extensions
(setvar 'DIMSOXD 0 ); Suppress outside extensions
(setvar 'DIMALT 1 ); Enables alternate units
(setvar 'DIMALTD 1 ); Alternate units precision
(setvar 'DIMALTF 8.5 ); Multiplier for alt units
(setvar 'DIMALTRND 0.5 ); Alt units multiplier rounding
(setvar 'DIMALTZ 8 ); Alt units for zero suppression
;(setvar 'DIMAPOST SPA @ 8.5'=); ); Alt units prefix/suffix
(setvar 'DIMARCSYM 0 ); Arc symbol
(setvar 'DIMATFIT 0 ); Dimension fit outside extension lines
(setvar 'DIMAUNIT 0 ); Dimension unit decimal
(setvar 'DIMDEC 1 ); Primary units precision
(command "DIMSTYLE" "S" "CORE-PARKING-8.5")
(princ "\nDimension style CORE-PARKING-8.5 created.")
)
)
(princ)
)Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@hak_vz wrote:
.....
(defun COREDIMS () (if (and (tblsearch "DIMSTYLE" "CORE-PARKING-8.5")) (progn (princ "\nDimension style CORE-PARKING-8.5 already exists.") ) (progn (setvar 'DIMSCALE 20.0 ); Dimension scale factor ....
Neither that (and) nor that first (progn) wrapper around the (princ) function is doing anything for you, or am I missing something?
@Kent1Cooper wrote:
Neither that (and) nor that first (progn) wrapper around the (princ) function is doing anything for you, or am I missing something?
Not needed, remains from OP original code.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
