Topic: Extract Drawing Scale in LDD

[DanB]

LDD 2004

Can anyone offer any help with extracting out the user selected Drawing Scale in LDD. Menu Projects >> Drawing Setup >> Scale Tab. Is this a variable or setting that can be "seen" elsewhere? I would like to potentially apply this to part of a Script or even another LISP routine.

Thanks,
Dan

[Mark]

Look at your 'dimscale' variable. Should be one in the same.

[DanB]

Thanks Mark

[Jeff_M]

Look at your 'dimscale' variable. Should be one in the same.

Not neccesarily true. Initially, yes, but if you have different dimstyles setup and use them in your drawings, then your dimscale may not be the same as the drawing scale.

The actual stored location is obtained either by getting the AeccDatabasePreferences-DatabaseScale:

Code: [Select]


  (setq acadObj  (vlax-get-acad-object))
  (setq aecApp  (vla-getinterfaceobject acadObj "Aecc.Application"))
  (setq aecDoc (vlax-get aecApp "ActiveDocument"))
  (setq PrefDoc (vlax-get aecDoc "preferences"))
  (setq Hscale (vlax-get PrefDoc "DatabaseScale"))

 or through Dictionaries:

Code: [Select]


(defun getscale ( / dicts aecdict aec1 aecEnt)
  (setq dicts (vla-get-dictionaries *doc*))a
  (setq aecdict (vla-item dicts "AEC_VARS"))
  (setq aec1 (vla-item aecdict "AEC_VARS_DWG_SETUP"))
  (setq aecEnt (entget (vlax-vla-object->ename aec1)))
  (cdr (assoc 40 aecEnt))
  )


[DanB]

This looks useful too, Thanks Jeff_M.

PS. I put together some of the code for the other lisp we were discussing, some parts are working, and err some I'm still troubleshooting, will try to keep you posted you've been a big help to me.

Dan