---

Hallo,

ich möchte mit einem Makro die Bemaßungen eines Bauteils ändern.
Hierfür verwende ich z.B. den Code

Code:

---

...
Dim MyDimension As Object
Set MyDimension = Part.Parameter("D1@Skizze2@MyPart.Part")
MyDimension.SystemValue = 1.5

---

Jetzt möchte ich aber den Ausdruck "D1@Skizze2@MyPart.Part" durch eine Variable definieren.
Also

Code:

---

MyParName = "D1@Skizze2@MyPart.Part"
...
Dim MyDimension As Object
Set MyDimension = Part.Parameter(MyParName)
MyDimension.SystemValue = 1.5

---

Dabei bekomme ich aber einen Laufzeitfehler 91
"Objektvariable oder WithBlock Variable nicht festgelegt.

Was läuft da falsch ?

Viele Grüße
Bolle

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

---

Zitat:

---

Original erstellt von Bolle:
Was läuft da falsch ?

---

Gegenfrage:
Was hat Dich denn auf diesen wirren Code gebracht?

Sorry, ich hab' den Sinn erst jetzt verstanden.
Als was hast Du MyParName deklariert?

Gruß, Torsten

[Diese Nachricht wurde von Torsten Niemeier am 15. Mrz. 2014 editiert.]

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

---

Der Code ist ein Auszug aus dem Makro-Rekorder.

Ich konnte es inzwischen lösen. Anscheinend war die String-Variable nicht richtig zuammengesetzt. Da saß das Problem wohl vor dem Rechner 

Habe es noch einmal anhand des Beispiels aus der Online Doku aufgebaut.

"Modify Plane by Changing System Value Example (VBA)"

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