---

Hallo Forum,

Ich habe in einem meiner Makros den Befehle:

Code:

---

Set Farbe = AcadApplication.GetInterfaceObject("Autocad.accmcolor.17")

---

verwendet. Nun habe ich festgestellt, daß der nur in den 17er Versionen von ACAD funktioniert.
Um Versionsunabhängig zu sein, muß ich wohl erst mal die Version feststellen, und dann die für die Verison passende Funktion wählen.

Ist das so? Oder gibt es einen eleganteren Weg?
Ich möchte unnötige if´s vermeiden. In der Hilfe und im Web konnte ich leider nichts brauchbares finden.

lg
Didi

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

---

Hi Didi,

Dann kannst du statt fixer Texte eine Funktion definieren, die Dir die richtigen ActiveX-ObjectNames evaluiert und diesen retourniert.

Code:

---

'...folgendes kann in eigenen Modulen stehen, die Du Dir als allgemeine Library erzeugst
Private Function getAcadVersionMain as string
  getAcadVersionMain = left(ThisDrawing.Application.Version,2)
End Function

Private Function getColorInterfaceString() as String
  getColorInterfaceString = "Autocad.accmcolor." & getAcadVersionMain
End Function

'...und in Deiner Funktion schreibst Du dann:
Set Farbe = AcadApplication.GetInterfaceObject(getColorInterfaceString)

---

Noch schöner ist natürlich, wenn Du beim Start Deiner Applikation den Versionsstring von AutoCAD mal in eine Variable speicherst, dann muss nicht immer auf das Application-Objekt hingegriffen werden, zusätzlich fängst Du damit auch das Problem im obigen Code ab, der abfliegen würde, wenn gerade keine Zeichnung offen wäre.

- alfred -

------------------
www.hollaus.at

---

Hallo Alfred,

danke für deine Inspirationen. Da ich auch schon über etwas in der Art nachgedacht habe, fühle ich mich jetzt bestätigt und werd mich frischen Mutes an die Arbeit machen.

lg
Didi

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

---

Hallo Alfred,

ich hab deinen Vorschlag jetzt so umgesezt.

Code:

---

...
Dim AcFarbe As String
Dim Version As String
Dim Farbe As AcadAcCmColor         
...
Version = Left(ThisDrawing.Application.Version, 2)
AcFarbe = "Autocad.accmcolor." & Version
Set Farbe = AcadApplication.GetInterfaceObject(AcFarbe)
...

---

Abschmieren ohne Zeichnung scheint mir nicht gefährlich zu seine, weil man ohne Zeichnung das Makro gar nicht starten kann.

nochmals Danke und
liebe Grüße
Didi

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

---

Hallo Didi,

es geht auch ohne "Versionszauber" 

Code:

---

    Set Farbe = New AcadAcCmColor
    Farbe.ColorMethod = acColorMethodByACI
    Farbe.ColorIndex = acCyan

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Wilfried,

Danke für deinen Beitrag.
Kannst du mir auch noch kurz erklären, was da dann der Unterschied ist?

lg
Didi

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