Sub CATMain() ' Dokument öffnen und zuweisen --------------------------------------------------------------------- Dim Dokument As Document Set Dokument = CATIA.Documents.Add ("Part") Dim Bauteil As Part Set Bauteil = Dokument.Part ' Refenzen wählen und zuweisen ------------------------------------------------------------------- Dim Was(0) Was (0) = "Plane" Dim Auswahl As Selection Set Auswahl = CATIA.ActiveDocument.Selection Auswahl.Clear MsgBox ("Bitte die Refernz-Ebene auswählen") Dim E As CATBSTR E=Auswahl.SelectElement (Was, "Bitte Ebene wählen!", true) If E = "Normal" Then MsgBox (Auswahl.Item(1).Value.Name) Else MsgBox ("Abbruch") End if ' Skizze deklarieren, zuweisen und öffnen ------------------------------------------------------ Dim UrsprungsElemente, Ebene Set UrsprungsEleemente = Bauteil.OriginElements Set Ebene = Auswahl.Item(1).Value Dim Skizzen As Sketchers Set Skizzen = Bauteil.MainBody.Sketches Dim Skizze1 As Sketch Set Skizze1 = Skizzen.Add (Ebene) Dim Wzk As Factory2D Dim Wzk3D As Factory3D Set Wzk = Skizze1.OpenEdition ' Punkte erzeugen Dim Punkt (12) Set Punkt (1) = Wzk.CreatePoint (0,0) Set Punkt (2) = Wzk.CreatePoint (100,0) Set Punkt (3) = Wzk.CreatePoint (110,10) Set Punkt (4) = Wzk.CreatePoint (110,110) Dim Linie(2) As Line Set Linie(1) = Wzk.CreateLine (0,0,100,0) Linie(1).StartPoint = Punkt(1) Linie(1).EndPoint = Punkt (2) Set Linie(2) = Wzk.CreateLine (110,10,110,110) Linie(2).StartPoint = Punkt(3) Linie(2).EndPoint = Punkt (4) Dim RefLinie(4) As Reference Set RefLinie(1) = Bauteil.CreateReferenceFromObject (Linie(1)) Set RefLinie(2) = Bauteil.CreateReferenceFromObject (Linie(2)) Dim RefPunkt(4) As Reference Set RefPunkt(1) = Bauteil.CreateReferenceFromObject(Punkt(1)) Set RefPunkt(2) = Bauteil.CreateReferenceFromObject (Punkt(2)) Set RefPunkt(3) = Bauteil.CreateReferenceFromObject (Punkt(3)) Set RefPunkt(4) = Bauteil.CreateReferenceFromObject (Punkt(4)) Dim Kreis As Circle2D Dim Pi As Constant Pi = 3.141 Set Kreis = Wzk.CreateCircle(100,10,10,1.5*Pi,2*Pi) Set Reflinie(3) = Bauteil.CreateReferenceFromObject(Kreis) Dim Bedingungen As Constraints Dim Bedingung(7) As Constraint Set Bedingungen = Skizze1.Constraints Set Bedingung (1) = Bedingungen.AddBiEltCst (4, RefLinie(1), RefLinie(3)) Set Bedingung (2) = Bedingungen.AddBiEltCst (4, RefLinie(2), RefLinie(3)) Set Bedingung (3) = Bedingungen.AddBiEltCst (22, RefPunkt(3),RefLinie(3)) Set Bedingung (4) = Bedingungen.AddBiEltCst (22, RefPunkt(2),RefLinie(3)) Set Bedingung (5) = Bedingungen.AddMonoEltCst (10, RefLinie(1)) Set Bedingung (6) = Bedingungen.AddMonoEltCst (13, RefLinie(2)) Set Bedingung (7) = Bedingungen.AddMonoEltCst (14, RefLinie(3)) Skizze1.CloseEdition Bauteil.Update End Sub