Changing all dimension entites to a certain dimstyle

I have been looking through messages in this group to find a program to
change all dimension & leader entities to our standard dimension style. The
lisp code below changes "SLDDIMSTYLE1" to the current dimstyle (which works)
but there are sometime up to 10 different styles.

Can someone modify my attempts or point me in the right direction to select
all dimension entites

(setq dst_data (entget (tblobjname "DIMSTYLE" "SLDDIMSTYLE1")))
(entmod (subst '(40 . 10.0) (assoc 40 dst_data) dst_data))

Thanks
John

 

John,

to step throu all dimensions in the dimstyle table you must use a loop:

(setq dst_data (tblnext "DIMSTYLE" T))
(while dst_data
(entmod (subst '(40 . 10.0) (assoc 40 dst_data) dst_data))
(setq dst_data (tblnext "DIMSTYLE"))
)

But your entmode only changes the DIMSCALE to 10!

bob.at

 

Thanks for the reply, how to I change all DIMENSION and LEADER entities to
our standard dimension style which is "le_standard"

Thanks again
John

 

??
your question it already answerd -->> (entmod (subst '(40 . 10.0) (assoc 40
dst_data) dst_data))

 

1. set the desired dimstyle current via ddim or dim style
2. dim update all exit

 

Or using null:

(while (setq dst_data (tblnext "DIMSTYLE" (null dst_data)))
(entmod (subst '(40 . 10.0) (assoc 40 dst_data) dst_data))
)


Jamie Duncan

 

There is no moment in my life where I cant learn something new!
... very nice method to do this while loop, thanks Jamie

bob.at

 

well yeah,

but that is too easy!


Jamie Duncan

 

<grin>