Unfortunately no, because the scale list now drives annotation scaling, on a
per drawing basis. You could read the scale list, and if your scales don't
exist, add them programmatically.
Here is one way to retrieve the scale list for 2008 and earlier versions.
You can add new scales with the -SCALELISTEDIT command.
(defun GETSCALELIST (/ ScaleListDict ScaleListEnts ScaleListNumber
ScaleListUnits N DIGIT ACAD-KEY)
(if (>= (atof (substr (getvar "acadver") 1 4)) 17.1)
(progn ; 2008 and higher
(setq ScaleListDict (dictsearch (namedobjdict) "ACAD_SCALELIST")
ScaleListEnts (MASSOC 350 ScaleListDict)
ScaleList (list "")
N 0
)
(repeat (length ScaleListEnts)
(setq ScaleList (cons (cdr (assoc 300 (entget (nth N
ScaleListEnts)))) ScaleList)
N (+ N 1)
)
)
(setq ScaleList (cdr (reverse ScaleList)))
)
(progn ; 2007& lower
(setq ACAD-KEY (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
"\\Scale List"))
(if (vl-registry-descendents ACAD-KEY T)
(progn
(setq ScaleListNumber (/ (vl-list-length (vl-registry-descendents
ACAD-KEY T)) 3)
ScaleList (list "")
N 0
)
(repeat ScaleListNumber
(if (>= N 10)
(setq DIGIT (itoa N))
(setq DIGIT (strcat " " (itoa N)))
)
(setq ScaleList (cons (vl-registry-read ACAD-KEY (strcat DIGIT
".ScaleName")) ScaleList)
N (+ N 1)
)
)
(setq ScaleList (cdr (reverse ScaleList)))
)
)
)
)
)
(defun MASSOC (KEY ALIST / X NLIST)
(foreach X ALIST
(if (eq KEY (car X))
(setq NLIST (cons (cdr X) NLIST))
)
)
(reverse NLIST)
)
--
Daniel J. Altamura, R.A.
Altamura Architectural Consulting
and SoftWorx, Autodesk Authorized Developer
http://partnerproducts.autodesk.com/popups/company.asp?rdid=2139-----------------------------------------------------------------------
wrote in message news:5513146@discussion.autodesk.com...
it sees that i have to change scale list in every drawing.
is there a way roud this?
