---

Hallo!

Ich habe das Problem, dass wenn ich die Methode SetByPlaneAndOffset anwende, ich immer einen Fehlermeldung bekommen.Der Grund dafür ist mir leider nicht bekannt.

Ich will den Versatz einer bereits erstellten Arbeitsebene ändern.Das sieht bei mir folgendermaßen aus:

Call oWorkplane(2).SetByPlaneAndOffset(oWorkplane(1), Text1.Text)

Vielleicht weiß jemand, was ich ändern muss, damit ich keinen Fehler zurückbekomme.

FROHES NEUES JAHR!

MFG
Basti

---

Hallo Basti,

hast Du ein Beispiel-file mit dem ganzen code dazu ? Spiels mal auf, dann schau ich rein.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

WorkplaneOffset.txt

Die Datei ist im Anhang.

Hoffe Sie kommen damit klar.

MFG
Basti

---

setPlanes.txt

Hallo Sebastian,

also zum ersten einmal 'Du' - ich heisse Paul.

Zum zewiten: wenn ich Dich richtig verstehe, willst Du 2 WP's setzen. Die erste in einem bestimmten Winkel um ene Linie zur Skizzenebene, die (Linie) sich in dieser Skizzenebene befindet. Dann erzeugst Du parallel zur ersten WP eine weitere WP. Anschliessend moechtest Du den Abstand aendern.
So weit so gut. Auch bei mir schmiert 'SetByPlaneAndOffset' ab...

Wenn Du aber den Abstand verändern willst, dann ist dieser als Parameter greifbar in diesem Fall ist's der zuletzt erzeugte Parameter. Du kannst dann folgendes tun anstelle von 'SetByPlaneAndOffset':

Dim oParam As Parameter
Set oParam = oDoc.ComponentDefinition.Parameters(oDoc.ComponentDefinition.Parameters.Count)
 
oParam.Value = 2

Ich hoffe, dass es Dir hilft. der komplette code im Anhang.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

NewPlane.ivb.txt NewPlane.txt

Hallo Paul,
ich habe versucht das Beispiel nachzuvollziehen, bekomme aber immer eine Fehlermeldung.
Vielleicht kannst Du mir helfen.
Ich möchte eine neue AE parallel zur XY-Ebene mit einem Offset erzeugen (siehe Anhang).

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

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

---

SetByPlaneAndOffsetTest1.txt

Hallo Forum,
hat bei irgendjemand die "SetByPlaneAndOffset"-Methode schon einmal funktioniert?

Bitte melden.

Ich habe ein Beispiel angehängt, vielleicht gibt es doch eine Lösung.

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

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

---

Hallo Hans-Peter,

Setzen einer WorkPlane (wieso hast Du die WorkPlane as Objekt definiert und nicht als WorkPlane ? ) und den dazugehoerenden Offse-Parameter sichern:

Private Sub SetByPlaneAndOffsetTest()
    ' Testen ob aktives Dokument ein Part ist
    If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        MsgBox "Only Part document", vbCritical
        Exit Sub
    End If
       
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
   
    ' Ausgangsebene für Offset definieren
    Dim RefPlane As Object
    Set RefPlane = oPartDoc.ComponentDefinition.WorkPlanes.Item(2)
           
    ' Offsetabfrage für neue AE
    Dim Offset As String
    Offset = InputBox("Offsetwert für neue Geometriebezugsebene") + "mm"

    ' Erstellung der neuen Arbeitsebene
    Dim NewPlane As WorkPlane
    Set NewPlane = oPartDoc.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset(RefPlane, Offset)
   
    ' der zuletzt erzeugte Parameter ist der gesuchte Parameter
    Dim oWPlaneParam As Parameter
    Set oWPlaneParam = oPartDoc.ComponentDefinition.Parameters(oPartDoc.ComponentDefinition.Parameters.Count)

MsgBox oWPlaneParam.Name, , oWPlaneParam.Value

End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

1Basisebene.ivb.txt

Hallo Paul, ich hab es so gelöst (siehe Anhang).

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

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