---

Vermutlich ist es ganz einfach, aber ich kriege es einfach nicht hin 

Kann mir mal jemand folgendes VBA-Schnippselchen in Lisp übersetzen:

  Dim dwgSetup As AecArchBaseDatabasePreferences
  Set dwgSetup = AecArchBaseApplication.ActiveDocument.Preferences

Ich kann mir zwar das AecArchBaseApplication Interface besorgen und der liefert mir auch artig ein ActiveDocument, aber beim Zugriff auf Preferences fliegt mir das Zeug um die Ohren.

Alternativ fummel ich schon im aec_vars_dwg_setup-Dictionary rum, was auch klappt, aber die obige Variante würde mich schon noch interessieren...

Any hints?

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Halllo Torsten ,

Zitat:

---

Original erstellt von tmoehlenhoff:

Kann mir mal jemand folgendes VBA-Schnippselchen in Lisp übersetzen:

  Dim dwgSetup As AecArchBaseDatabasePreferences
  Set dwgSetup = AecArchBaseApplication.ActiveDocument.Preferences

---

ich habe hier im Forum Folgendes gefunden:
(vla-get-Preferences(vla-get-application(vlax-get-acad-object)))
Da ich aber von VBA keine Ahnung habe, kann ich auch nicht beurteilen, ob das der richtige Hinweis ist.

Gruß Bernd

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

---

Hi Bernd,

das hilft leider nicht, denn dann bekomme ich ein IAcadPreferences VLA-Object und ich brauche ein IAecArchBaseDatabasePreferences.

Momentan sieht es so aus und scheint zunächst mal zu funktionieren:

  (vl-load-com)
  (setq
    acadapp (vlax-get-acad-object)
    actdoc (vlax-get acadapp "ActiveDocument")
    archbasedoc (vlax-invoke acadapp "getinterfaceobject" "AecX.AecArchBaseDocument.4.7")
  )
  (vlax-invoke archbasedoc "init" actdoc)
  (setq archbasedbpref (vla-get-preferences archbasedoc))
  (vlax-get archbasedbpref "LinearUnit")

Aber sexy finde ich das so nicht ;-)

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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