---

Fehlermeldung.JPG

Guten Morgen Zusammen

sitz mal wieder vor einem kleinen Problem.
Ich habe per Makro (catvba) eine 3D-Linie erzeugt und möchte jetzt die Länge der Linie über einen Parameter steuern.

....
    Dim hybridShapeDirection1 As HybridShapeDirection
    Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirectionByCoord(0#, 0#, 1#)
   
    Dim reference4 As Reference
    Set reference4 = part1.CreateReferenceFromBRepName("...Referenz funktioniert......")
   
    Dim hybridShapeLinePtDir1 As HybridShapeLinePtDir
    Set hybridShapeLinePtDir1 = hybridShapeFactory1.AddNewLinePtDir
    (reference4, hybridShapeDirection1, 0#, 40#, False)
       
   
    Dim Limit1 As Length
    Limit1 = hybridShapeLinePtDir1.EndOffset.Value
(hier kommt dann die Fehlermeldung siehe Bild)

    Dim Formel1 As Formula
    Set Formel1 = Rels.CreateFormula("Formel.1", "",
    Limit1, "Welle_Hoehe")

Welle_Hoehe ist mein Parameter.

Vielleicht kan jemand von euch mir weiterhelfen.

Merci
Grüsse Jules

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

---

Hallo
Mir ist nicht ganz klar warum Du noch .Value an die Zeile:
Limit1 = hybridShapeLinePtDir1.EndOffset.Value

hängst.
Um den Wert abzufragen reicht doch eigenlich:
Limit1 = hybridShapeLinePtDir1.EndOffset
und hier wird auch ein Object vom Typ Length zurückgegeben.

------------------
Grüße TStone
  "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

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

---

Hallo TStone

mit dem .value habe ich aus dem Buch von Ziethen (S.300).
Ich hab es auch bereits ohne .value versucht aber dann erhalte ich die gleiche Fehlermeldung.
Kann es mir nicht erklären warum es nicht geht.

Hilfe Hilfe

Grüsse Jules

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

---

Nimm alles zurück das Problem saß vor dem Rechner.
Ich hab das Set... vergessen und dann muß man das .value weg lassen.

Aber wenn wir schon bei Parametern sind:
"Wie kann man per Makro einen Parameter in einem Part veröffentlichen um von anderen Parts darauf zugreifen zu können.

Bei geometrischen Elementen geht das so:
    Dim reference1 As Reference
    Set reference1 = product1.CreateReferenceFromName("Skelett/!E3")
   
    Dim publications1 As Publications
    Set publications1 = product1.Publications
   
    Dim publication1 As Publication
    Set publication1 = publications1.Add("E3")
   
    publications1.SetDirect "E3", reference1

für Parameter funzt die Aufzeichnung nicht.

Merci und Grüsse
Jules

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