annotation scale setting problem

[bowlingbrad]

Switching over to ACA 2012 is giving me an error when I run my routine:

bad argument type: lentityp nil

I have tracked it down to the line: (setq tempDictListEnt (entmakex tempDictList))

where tempDictList is a list: ((0 . "SCALE") (100 . "AcDbScale") (300 . "6\" = 1'-0\"") (140 . 1.0) (141 . 2.0))


Did 2012 change the symbol table name of anno scales?
It could have been 2010, 2011 or 2012.... we are upgrading from 2009.

[marko_ribar]

It hasn't been changed :

For main dictionary use :

(entget (namedobjdict))

For search for dictionary "ACAD_SCALELIST" use :

(dictsearch (namedobjdict) "ACAD_SCALELIST")

And for specific scale :

(dictsearch (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST"))) "A0")

witch will give you :

((-1 . <Entity name: 7ffffb050d0>) (0 . "SCALE") (5 . "10D") (102 .
"{ACAD_REACTORS") (330 . <Entity name: 7ffffb050c0>) (102 . "}") (330 . <Entity
name: 7ffffb050c0>) (100 . "AcDbScale") (70 . 0) (300 . "1:1") (140 . 1.0) (141
. 1.0) (290 . 1))

As you can see, it's the same as you wrote...

M.R.

[bowlingbrad]

Thanks Marko...
I'm confused then...
Why did this routine work in 2009 and now it won't in 2012?

[marko_ribar]

To add new scale to ACAD_SCALELIST dictionary and CAD environment, you must use this sequence of commands :

(setq sc (entmakex '((0 . "SCALE") (100 . "AcDbScale") (70 . 0) (300 . "1:1000") (140 . 1.0) (141 . 1000.0) (290 . 0))))

(entmod (subst (cons 330 (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST")))) (assoc 330 (entget sc)) (entget sc)))

(entmod (append (dictsearch (namedobjdict) "ACAD_SCALELIST") (list (cons 3 "B7") (cons 350 sc))))

I used SCALE 1:1000, but you may need different, so you must change (140 . ?) (141 . ?) DXF codes accordingly...

M.R.

[bowlingbrad]

Marko,
I seem to be doing the exact steps you're outlining except for the (70 . 0).
What is that used for?

[bowlingbrad]

I added the '(70 . 0) to my entity list and it is still giving me the error.