---

Kann mir jemand sagen, wie man bei ADT die aktuell genutzte Zeichnungseinheit auslesen kann. Definiert ist diese im Befehl _units

Danke im voraus.

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

---

denke mal   (getvar "LUNITs")

Schau mal in die Hilfe zum Befehl Einheit  (Lunits / Luprec ...)

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 13. Mai. 2004 editiert.]

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

---

Hallo, erst mal Danke dass du darüber nachdenkst!
Aber ich möchte von der CAD-Zeichnung die Zeicheneinheit wissen.

Designcenter nutzt die Variablen
(setq i0 (getvar "INSUNITS"))
(setq i1 (getvar "INSUNITSDEFSOURCE"))
(setq i2 (getvar "INSUNITSDEFTARGET")) 
INSUNITS
Legt einen Zeicheneinheitswert für Blöcke oder Bilder fest, die aus DesignCenter eingefügt werden

INSUNITSDEFSOURCE
Legt den Einheitenwert für die Quellinhalte fest

INSUNITSDEFTARGET
Legt den Einheitenwert für die Zielzeichnung fest

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

---

...nicht das du (getvar "measurement") meinst ..?

etwas verwirrt

------------------
- Thomas -

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

---

Ich habs nur auf die Schnelle zusammengehauen, aber es sollte eigentlich so funktionieren:

(defun AecInitDocument (doc / acadapp activedoc product aec-database ret)
  (setq
    acadapp (vlax-get-acad-object)
    product (vl-registry-read (strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key)) "ProductName")
  )
  (cond
    ((= product "Autodesk Architectural Desktop 2005")
      (setq aecdoc "AecX.AecArchBaseDocument.4.5")
    )
    ((= product "Autodesk Architectural Desktop 2004")
      (setq aecdoc "AecX.AecArchBaseDocument.4")
    )
    ((= product "Autodesk Architectural Desktop 3.3")
      (setq aecdoc "AecX.AecArchBaseDocument.3")
    )
    ((= product "Autodesk Architectural Desktop 3")
      (setq aecdoc "AecX.AecArchBaseDocument")
    )
  )
  (if (not doc)
    (setq doc (vlax-get acadapp "ActiveDocument"))
  )
  (setq ret (vlax-invoke acadapp "getinterfaceobject" aecdoc))
  (vlax-invoke ret "init" doc)
  ret
)

(defun GetAdtUnits ( / prefs doc aecunits)
  (setq
    doc (AecInitDocument nil)
    prefs (vlax-get doc "Preferences")
  )
  (setq aecunits (vlax-get prefs "LinearUnit"))
  (cond
    ((= aecunits 2) (print "Meter"))
    ((= aecunits 23) (print "Dezimeter"))
    ((= aecunits 24) (print "Zentimeter"))
    ((= aecunits 25) (print "Millimeter"))
    ((= aecunits 30) (print "Feet"))
    ((= aecunits 31) (print "Inch"))
    (T (print aecunits))
  )
  (if doc (vlax-release-object doc))
  (if prefs (vlax-release-object prefs))
  aecunits
)

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

[Diese Nachricht wurde von tmoehlenhoff am 13. Mai. 2004 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