---

Hallo,

möchte gerne die adt-Planungseinheit (Meter, Zentimeter oder Millimeter) aus der DWG auslesen.

Wie geht das?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ohne ADT zu "kennen" - herausfinden wo sie gespeichert ist und
dementsprechend abfragen, praktisch würde das bedeuten:

In der Hilfe nachsehen ob zu dem Thema Planungseinheiten eine
Hilfethema zugeordnet ist, wenn ja ob es dafür eine Systemvariable
gibt, wenn ja dann abfragen wie (getvar "DIEVARIABLE")

Es gibt natürlich noch andere effektive Wege den Eintrag zu finden
falls es eine Sysvar gibt, aber fange doch mal wie beschrieben
damit an.

Manchmal kann einem das Tool DBVIEW eine große Hilfe sein bei soetwas.
Dies war oder ist bei den Expresstools dabei oder direkt von der ADesk-HP
zu ziehen.

mache nun erstmal schluß.. CU

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

isses das vielleicht?

Code:

---

((defun AECDocInit (/ aecver ret)
  (cond
    ((= (substr (getvar "ACADVER") 1 5) "15.06")
    (setq aecver "AecX.AecArchBaseDocument"
    )
    )
    ((= (substr (getvar "ACADVER") 1 4) "16.0")
    (setq aecver "AecX.AecArchBaseDocument.4"
    )
    )
    ((= (substr (getvar "ACADVER") 1 4) "16.1")
    (setq aecver "AecX.AecArchBaseDocument.4.5"
    )
    )
    ((= (substr (getvar "ACADVER") 1 4) "16.2")
    (setq aecver "AecX.AecArchBaseDocument.4.7"
    )
    )
  ) ;_ end of cond
  (if aecver
    (progn
      (setq ret (vlax-invoke-method
  (vlax-get-acad-object)
  'GetInterfaceObject
  aecver
)
      )
      (vlax-invoke-method
ret
'Init
(vlax-get-property
  (vlax-get-acad-object)
  'ActiveDocument
)
      )
    )
  )
  ret
)

(defun AECGetUnit (/ doc currunit)
  (if
    (setq doc (AECDocInit))
    (setq currunit
    (vlax-get-property
      (vlax-get-property
doc
'Preferences
      )
      'LinearUnit
    )
    )
  )
  (cond
    ((= currunit 2) (print "Meter"))
    ((= currunit 23) (print "Dezimeter"))
    ((= currunit 24) (print "Zentimeter"))
    ((= currunit 25) (print "Millimeter"))
    ((= currunit 30) (print "Feet"))
    ((= currunit 31) (print "Inch"))
    ('T currunit)
  )
  (princ)
)

---

EDIT:
Code geändert. Aufruf mit (AECGetUnit)
Siehe außerdem http://ww3.cad.de/foren/ubb/Forum145/HTML/000575.shtml#000004
Danke an tomo!

Gruß
CADchup

------------------
www.cadditions.de

[Diese Nachricht wurde von CADchup am 25. Jul. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank,

funktioniert!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP