I have a simple lisp to save the modified dimstyle (through properties window) as a new one.
;-----START-----
(defun c:SD ()
(command "AIDIMSTYLE" "S")
(princ)
)
;-----END------
Can anybody modify this or to:
After selection it should prompt for new dimstyle name showing the current dimstyle name plus a prefix or suffix as I set. See image below where "PH" is my suffix.
.. and there should be warning if dimstyle name is existing.
Perhaps use this file to display the destination name?
EdiDia.FAS
Structure:
(setq a (EdiDia "Title" "Default Name"))
Return value is the exact contents of the edit box, including blank spaces,
if any, at each side of the string.
Tailored for your use:
(setq a (EdiDia "New Dimension Style" (strcat (getvar "DIMSTYLE") "-PH")))
If there are more than one prefix/suffix it would seem that the
dialog should be expanded to include radio buttons of each
item plus one more radio button "Other" that is paired with
another edit box.
Or look into the undocumented function LISPED.
[FAS cannot be uploaded. Remove "-txt" from file extension]
???
