Discussion Groups

Hi Devon,

We've had the same problem overhere.
I've used a bit of code posted on this forum and added some of our own stuff to it. This is what i've come up with sofar:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:scales (/ olderr scalelist xr add2slzx add2slmx slmx slzx)
(setq olderr *error*) ;
(defun *error* (msg) ;
(if (= msg "quit / exit abort") ;
(princ) ;
(princ (strcat "error: " msg)) ;
) ;
(setq *error* olderr) ;error handler
(setvar "cmdecho" 1) ;
(princ) ;
) ;

(setvar "cmdecho" 0)
(command "undo" "begin")

(scalelist_filter)

(command "undo" "end")
(setvar "cmdecho" 1)
(setq *error* olderr)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun delete_scalelist (/)
(create_scalelist)
(while (/= scalelist nil)
(command "-scalelistedit" "delete" (car scalelist) "exit")
(setq scalelist (cdr scalelist))
)
(new_scalelist)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun new_scalelist (/)
(command "-scalelistedit"
"add" "1:2" "1:2"
"add" "1:5" "1:5"
"add" "1:10" "1:10"
"add" "1:20" "1:20"
"add" "1:50" "1:50"
"add" "1:100" "1:100"
"add" "1:200" "1:200"
"add" "1:500" "1:500"
"add" "1:1000" "1:1000"
"add" "1:2000" "1:2000"
"add" "1:5000" "1:5000"
"exit")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun create_scalelist (/ ScaleListDict ScaleListEnts ScaleListNumber ScaleListUnits N DIGIT ACAD-KEY)
(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)))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun MASSOC (KEY ALIST / X NLIST)
(foreach X ALIST
(if (eq KEY (car X))
(setq NLIST (cons (cdr X) NLIST))
)
)
(reverse NLIST)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun scalelist_filter (/)
(setvar "cmdecho" 0)
(create_scalelist)

(while (/= scalelist nil)
(if ( (strlen (car scalelist)) 4)
(setq xr (substr (car scalelist) (- (strlen (car scalelist)) 4) 5))
)
(if (= xr "_XREF")
(setq add2slmx (car scalelist))
)

(if (/= xr "_XREF")
(setq add2slzx (car scalelist))
)

(if (/= add2slzx nil)
(if (= (member add2slzx slzx) nil)
(setq slzx (cons (car scalelist) slzx))
)
)

(if (/= add2slmx nil)
(if (= (member add2slmx slmx) nil)
(setq slmx (cons (car scalelist) slmx))
)
)

(setq xr nil add2slmx nil add2slzx nil)
(setq scalelist (cdr scalelist))
)

(if (= (> (length slzx) 12) T)
(delete_scalelist)
)
);end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

This routine does the following:
It first creates a list of present scales. (This is the code i found on this forum)
Then only the scales that are not in an xref are put into another list.
If there are more then 12 scales present in the list then all the scales in the drawing are deleted and the custom ones are added. If there are 12 scales (this is our office standard) then nothing is done.

I've added this line to the acad2008doc.lsp (load "scalelist.lsp")(scalelist_filter)
So each time a drawing is opened it checks if the custom scales are the only ones present.
In the beginning most drawings will have the custom scales added. But ones this is done in a drawing nothing has to be done the next time the drawing is opened.

Please note the following:
-This only works on V2008.
-You can alter the custom scalelist, just be sure that if you do, you have to alter the number 12. The routine checks if there are 12 scales present in the current drawing. The command is only executed if there are more.

I hope this helps you (and others) a little bit.
We've only just started using this, but sofar it seems to work fine.

Vincent

Message was edited by: vvandraanen

Hi Devon,

I'm glad to be of help. I sometimes find the answers to my programming questions on this forum. This time i'm able to give something back.

You're right about changing the scale list and number.

You can add or remove as many scales you want to this part:
(defun new_scalelist (/)
(command "-scalelistedit"
"add" "1:2" "1:2"
"add" "1:5" "1:5"
"add" "1:10" "1:10"
"add" "1:20" "1:20"
"add" "1:50" "1:50"
"add" "1:100" "1:100"
"add" "1:200" "1:200"
"add" "1:500" "1:500"
"add" "1:1000" "1:1000"
"add" "1:2000" "1:2000"
"add" "1:5000" "1:5000"
"exit")
)

Just be sure that the number in this line:
(if (= (> (length slzx) 12) T)
is set to the excact number of scales in the list above.

Vincent

Chris,
I nabbed this code from this fourm for possible use in my environment.
Not been able to try this out yet...


(defun Delete_Annotation_Scales ( / scale_dictionary_entity_info)

(setq scale_dictionary_entity_info
(entget (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST"))))
)

(setq scale_dictionary_entity_info
(append
(reverse (member '(3 . "A0") (reverse scale_dictionary_entity_info)))
(list (cadr (member '(3 . "A0") scale_dictionary_entity_info)))
)
)

(entmod scale_dictionary_entity_info)
(princ)
)


Will this work for 2008? I do not know.

TAC,
You need to give it .lsp filename and put it in the search path of your autocad installation. Call it scalelist.lsp for example. Also create a file named "acaddoc.lsp" in the same folder and enter these two lines in that file:

(load "scalelist")
(scalelist_filter)

what this does, is everytime autocad opens a file it automatically runs the file named "acaddoc.lsp" (just something autocad does), and that file tells it to load the other lsp file and run a function from inside it.