Dimstyle and VLisp

Hi,

If I have two dimstyles named A and B and A is the current dimstyle.

If I want for example to change the DIMLFAC variable for the dimstyle A, can I do it with out make it current ?

If yes, how ??

Thanks.

 

Don't think you can do it without (at least
temporarily) setting it current.

--
Autodesk Discussion Group Facilitator

can I do it with out make it current ?

 

Salü Marcel

Try this one:

Code:

(defun C:Test ( / TblEnt TblLst TblEnt)
(setq TblEnt (tblobjname "DIMSTYLE" "ISO-25")
TblLst (entget TblEnt)
TblLst (if (assoc 144 TblLst)
(subst (cons 144 50.0) (assoc 144 TblLst) TblLst)
(append TblLst (list (cons 144 50.0)))
)
TblLst (entmod TblLst)
)
(entupd TblEnt)
(princ)
)

Sets DIMLFAC to 50.0. For other DXF codes see: Help -> DXF-Referece DIMSTYLE

Cheers

 

Jürg, I believe that will crash if the ISO-25 dimstyle doesn't exist. How
about:

(defun C:Test ( / TblEnt TblLst TblEnt)
(if (setq TblEnt (tblobjname "DIMSTYLE" "ISO-25"))
(setq
TblLst (entget TblEnt)
TblLst (if (assoc 144 TblLst)
(subst (cons 144 50.0) (assoc 144 TblLst) TblLst)
(append TblLst (list (cons 144 50.0))))
TblLst (entupd (entmod TblLst))))
(princ))

 

Marcel also asked for vlisp..... which I don't
think you can do without setting the style current.

 

Tom

You're right of course...

Jason

Correct, thats why I've used vanilla...

Cheers