Hallo
Ich bin ein Anfänger in Makros, ich habe angefangen, ein Makro für das Zeichnen zu erstellen, ich konnte 2 Ansichten erstellen (Vorder- und Rechtsansichten), aber dieses Makro ist für einen Catpart
Festlegen von drawingView1 = drawingViews1.Add("Automatisches Benennen")
Festlegen von drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Legen Sie drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior fest
drawingViewGenerativeBehavior1.SetGPSName "DefaultGenerativeStyle.xml"
Legen Sie Dokumente1 = CATIA fest. Urkunden
'===============
strFilePath = CATIA. FileSelectionBox("Teil auswählen", "*. CATPart", 0)
Wenn strFilePath = "" dann sub beenden
Legen Sie partDocument1 = CATIA fest. Dokumente.open(strFilePath)
'===============
Set product1 = partDocument1.GetItem("Teil1")
drawingViewGenerativeBehavior1.Dokument = Produkt1
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 0.0000000, 1.0000000
drawingView1.x = 1500
drawingView1.y = 420.500000
drawingView1.Maßstab = 1.000000
Legen Sie drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior fest
drawingViewGenerativeBehavior1.Aktualisieren
drawingView1.Aktivieren
Legen Sie drawingDocument1 = CATIA fest. Aktives Dokument
Festlegen von drawingSheet1 = drawingSheets1.ActiveSheet
Legen Sie drawingViews1 = drawingSheet1.Views fest
Festlegen von drawingView1 = drawingViews1.ActiveView
Legen Sie drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior fest
Set drawingView2 = drawingViews1.Add("AutomaticNaming")
Legen Sie drawingViewGenerativeBehavior2 = drawingView2.GenerativeBehavior fest
drawingViewGenerativeBehavior2.DefineProjectionView drawingViewGenerativeBehavior1, catfrontView
Festlegen von drawingViewGenerativeLinks2 = drawingView2.GenerativeLinks
Festlegen von drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
drawingViewGenerativeLinks1.CopyLinksTo drawingViewGenerativeLinks2
drawingView2.x = 594.500000
drawingView2.y = 420.500000
Doppelzimmer Dim1
double1 = drawingView1.Scale
drawingView2.Maßstab = 1.000000
Legen Sie drawingViewGenerativeBehavior2 = drawingView2.GenerativeBehavior fest
drawingViewGenerativeBehavior2.Aktualisieren
drawingView2.ReferenceView = drawingView1
drawingView2.AlignedWithReferenceView
Legen Sie specsAndGeomWindow1 = CATIA fest. ActiveWindow (Englisch)
Set specsViewer1 = specsAndGeomWindow1.ActiveViewer
specsViewer1.Reframe
specsViewer1.Reframe
Ende Sub
Ich möchte es an ein Catproduct anpassen, also ändere ich diese Aussage, die dadurch unterstrichen wird, aber es funktioniert nicht
Set product1 = productDocument1.GetItem("Produkt")
Auf der einen Seite der anderen möchte ich einen Schnitt der Vorderansicht machen, ich muss die Koordinaten der Linie wie folgt deklarieren
Dim-AbschnittProfil
ReDim-BereichProfil(3)
AbschnittProfil(0) = -480.
SectionProfile(1) = 450.
AbschnittProfil(2) = 70.
SectionProfile(3) = 450.
aber ich konnte diesen Befehl nicht verwenden:
MyView.GenerativeBehavior. DefineSectionView SectionProfile, SectionView, Offset, 0, MyParentViewGB
Kann mir jemand helfen?
Vielen Dank im Voraus