Unassign Material from Active Part and Change DimStyle Using AutoLISP or VBA
Below is an image showing the Primary Unit properties for each of the two dimension styles. CustDec has a decimal Unit Format, and CustFrac has a Fractional Unit Format. With these already set in a drawing, I then run the code on the two dimensions in the drawing below. One dimension has a fractional Unit Format and the other Decimal. Each dimension has a different dimension style with names that are NOT CustDec or CustFrac. The result of the code assigns the CustDec dimstyle to both dimensions, instead of one dimension to CustDec and the other to CustFrac.
It seems as if it's not assigning dimstyle according to the Unit Format (DIMLUNIT).
Below is screenshot of fractional dimension properties before I run the code
Below is screenshot of same dimension after running the function
No matter what Unit Format the dimension has before running the code, it always changes the format to decimal. Can you please offer help to find a solution?
Thanks for your help,
Candace
Accepted solution
Glad you foun it useful @Anonymous 🙂
As for your qustion, you did well, you just ddn't take into consideration that the select was within a loop (while) to keep working until you stop seleecting.. After your modification it kept going on selecting all dimensions each time without ever stopping..
Anyway, this is the new code after somw maintenance and after adding a couple of options.. Enjoy 
Lisp file is attatched below..
;;;
;;;
;;;
;;;
;;; This file was created by El-Shawadify upon babijay43 reqeust in Autodesk Community Forum
;;; Thread link: http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/unassign-material-from-active-part-and-change-dimstyle-using/m-p/6350706
;;; May 27th, 2016
;;;
;;; The command changes the DimStyle of selected (or all) dimensions depending on their the unit format of their original style: ..
;;; --- All dimensions that their original stye uses "Fractional" unit format, thir DimStyle becomes "CustFract"
;;; --- All dimensions that their original stye uses "Decimal" unit format, thir DimStyle becomes "CustDec"
;;; You still need to customize the new DimStyles mentioned [CustFract, CustDec] the way you want..
;;;
;;; You may modify this file as long as you keep this header at the biginning..
;;;
;;;
;;;
;
;====================================================================== Main Defun
;
(defun C:DSCH(/ CurStyleProps CurStyleName CurStyleFormat
FractionalList NoneFractionalList
x XElm CurDim CurDimStyle
*error* msg
OriginalErr Err1 Err2
DimStyleMod
SelectMode
);
;
;====================================================================== Error Fuctions
;
(setvar "CMDECHO" 0)
(setq OriginalErr *error*)
(defun Err1 ( DimModErr)
(command-s "undo" "end")
(setvar "CMDECHO" 1)
(princ (strcat "\nError: " DimModErr " The command was interrupted while changing the DimStyles of selected dimensions ::: Beware - Not all dimension styles were changed.."))
(setq *error* OriginalErr)
);
(defun Err2 ( DimModErr)
(command-s "undo" "end")
(setvar "CMDECHO" 1)
(princ (strcat DimModErr "\n Command Ended Safely.. No new dimensions to modify"))
(setq *error* OriginalErr)
)
(Command "Undo" "Begin")
(setq *error* Err1)
;
;====================================================================== Main Function Def: DimStyleMod
;
(Defun DimStyleMod (x)
(setq *error* Err1)
(foreach XElm x
(if (not (listp (cadr XElm)))
(progn
(Setq CurDim (entget (cadr XElm)) )
(setq CurDimStyle (cdr (assoc '3 CurDim)))
(if (member CurDimStyle FractionalList)
(progn
(setq CurDim
(subst (cons '3 "CustFract")
(assoc '3 CurDim)
CurDim
)
)
(entmod CurDim)
)
(progn
(setq CurDim
(subst (cons '3 "CustDec")
(assoc '3 CurDim)
CurDim
)
)
(entmod CurDim)
)
)
)
)
)
(setq *error* Err1)
)
;
;====================================================================== Command Main Body
;
(if (not (tblsearch "DIMSTYLE" "CustFract")) (command "-DIMSTYLE" "S" "CustFract") )
(if (not (tblsearch "DIMSTYLE" "CustDec")) (command "-DIMSTYLE" "S" "CustDec") )
(setq CurStyleProps (tblnext "DIMSTYLE" t))
(while CurStyleProps
(setq CurStyleName (cdr (cadr CurStyleProps)))
(setq CurStyleFormat (cdr (assoc '270 CurStyleProps)))
(if (and (not (equal CurStyleName "CustFract")) (not (equal CurStyleName "CustDec")))
(if (member CurStyleFormat '(5 7) )
(setq FractionalList (append FractionalList (list CurStyleName)))
(setq NoneFractionalList (append NoneFractionalList (list CurStyleName)))
)
)
(setq CurStyleProps (tblnext "DIMSTYLE"))
)
(initget "All ExcludeFrozen ExcludeLocked ExcludeBoth Select")
(setq SelectMode (getkword "\nDimensions to modify: [All/ExcludeFrozen/ExcludeLocked/ExcludeBoth/Select] <Select>: "))
(if (not SelectMode) (setq SelectMode "Select"))
(princ SelectMode )
(cond
( (= SelectMode "All")
(progn
(setq X (ssnamex (ssget "_X" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "ExcludeFrozen")
(progn
(setq X (ssnamex (ssget "_A" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "ExcludeLocked")
(progn
(setq X (ssnamex (ssget "_X:L" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "ExcludeBoth")
(progn
(setq X (ssnamex (ssget "_A:L" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "Select")
(while (setq X (ssnamex (ssget '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
)
(Command "Undo" "End")
(setq *error* OriginalError)
(Setvar "CMDECHO" 1)
(princ)
)
@Anonymous wrote:
Ignore the last post. I was able to run the program multiple time on the same drawing by removing this section of code:
;(if (and (not (equal CurStyleName "CustFract")) (not (equal CurStyleName "CustDec")))
to allow the two standard names shown in the line above to be written to the FractionalList and NoneFractionalList for comparison when I run the program the second time.
Thanks again for all of your help!
I would advice against the removing the line for 2 reasons:
- The software will endup repeating it'd work, and in a big drawing it will take a long time without producing something new..
- If you ran the command the secon time before customizing the 2 new styles, since they will be of the same type (like the one active the first time you ran the command - whether it's decimal or fractional) you will end up having one style either CustomeFract or CustDec..
I fixed the code by adding a second check within the main function "DimStyleMod":
(if (and (not (equal CurDimStyle "CustFract")) (not (equal CurDimStyle "CustDec")))
The final form of the code:
;;;
;;;
;;;
;;;
;;; This file was created by El-Shawadify upon babijay43 reqeust in Autodesk Community Forum
;;; Thread link: http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/unassign-material-from-active-part-and-change-dimstyle-using/m-p/6350706
;;; May 27th, 2016
;;;
;;; The command changes the DimStyle of selected (or all) dimensions depending on their the unit format of their original style: ..
;;; --- All dimensions that their original stye uses "Fractional" unit format, their DimStyle becomes "CustFract"
;;; --- All dimensions that their original stye uses "Decimal" unit format, their DimStyle becomes "CustDec"
;;; You still need to customize the new DimStyles mentioned [CustFract, CustDec] the way you want..
;;;
;;; You may modify this file as long as you keep this header at the biginning..
;;;
;;;
;;;
;
;====================================================================== Main Defun
;
(defun C:DSCH(/ CurStyleProps CurStyleName CurStyleFormat
FractionalList NoneFractionalList
x XElm CurDim CurDimStyle
*error* msg
OriginalErr Err1 Err2
DimStyleMod
SelectMode
);
;
;====================================================================== Error Fuctions
;
(setvar "CMDECHO" 0)
(setq OriginalErr *error*)
(defun Err1 ( DimModErr)
(command-s "undo" "end")
(setvar "CMDECHO" 1)
(princ (strcat "\nError: " DimModErr " The command was interrupted while changing the DimStyles of selected dimensions ::: Beware - Not all dimension styles were changed.."))
(setq *error* OriginalErr)
);
(defun Err2 ( DimModErr)
(command-s "undo" "end")
(setvar "CMDECHO" 1)
(princ (strcat DimModErr "\n Command Ended Safely.. No new dimensions to modify"))
(setq *error* OriginalErr)
)
(Command "Undo" "Begin")
(setq *error* Err1)
;
;====================================================================== Main Function Def: DimStyleMod
;
(Defun DimStyleMod (x)
(setq *error* Err1)
(foreach XElm x
(if (not (listp (cadr XElm)))
(progn
(Setq CurDim (entget (cadr XElm)) )
(setq CurDimStyle (cdr (assoc '3 CurDim)))
(if (and (not (equal CurDimStyle "CustFract")) (not (equal CurDimStyle "CustDec")))
(if (member CurDimStyle FractionalList)
(progn
(setq CurDim
(subst (cons '3 "CustFract")
(assoc '3 CurDim)
CurDim
)
)
(entmod CurDim)
)
(progn
(setq CurDim
(subst (cons '3 "CustDec")
(assoc '3 CurDim)
CurDim
)
)
(entmod CurDim)
)
)
)
)
)
)
(setq *error* Err1)
)
;
;====================================================================== Command Main Body
;
(if (not (tblsearch "DIMSTYLE" "CustFract")) (command "-DIMSTYLE" "S" "CustFract") )
(if (not (tblsearch "DIMSTYLE" "CustDec")) (command "-DIMSTYLE" "S" "CustDec") )
(setq CurStyleProps (tblnext "DIMSTYLE" t))
(while CurStyleProps
(setq CurStyleName (cdr (cadr CurStyleProps)))
(setq CurStyleFormat (cdr (assoc '270 CurStyleProps)))
(if (and (not (equal CurStyleName "CustFract")) (not (equal CurStyleName "CustDec")))
(if (member CurStyleFormat '(5 7) )
(setq FractionalList (append FractionalList (list CurStyleName)))
(setq NoneFractionalList (append NoneFractionalList (list CurStyleName)))
)
)
(setq CurStyleProps (tblnext "DIMSTYLE"))
)
(initget "All ExcludeFrozen ExcludeLocked ExcludeBoth Select")
(setq SelectMode (getkword "\nDimensions to modify: [All/ExcludeFrozen/ExcludeLocked/ExcludeBoth/Select] <Select>: "))
(if (not SelectMode) (setq SelectMode "Select"))
(princ SelectMode )
(cond
( (= SelectMode "All")
(progn
(setq X (ssnamex (ssget "_X" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "ExcludeFrozen")
(progn
(setq X (ssnamex (ssget "_A" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "ExcludeLocked")
(progn
(setq X (ssnamex (ssget "_X:L" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "ExcludeBoth")
(progn
(setq X (ssnamex (ssget "_A:L" '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
;;;
( (= SelectMode "Select")
(while (setq X (ssnamex (ssget '((0 . "DIMENSION")) )) )
(DimStyleMod x)
)
)
)
(Command "Undo" "End")
(setq *error* OriginalError)
(Setvar "CMDECHO" 1)
(princ)
)
(And - if possible - could you unmark the earlier answer and mark this one to avoid peaole having problems with the code?)
Sorry for the inconvinience ..
Hope it works fine now..
LispFIle is attatched..