Hallo
Ik ben een beginner in macro, ben ik begonnen met het maken van een macro bestemd voor het opstellen, was ik in staat om 2 weergaven te maken (front en rignt riews), maar deze macro is voor een catpart
Set drawingView1 = drawingViews1.Add("AutomatischeNaamgeving")
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Set drawingViewGenerativeBehavior1 = tekeningView1.GenerativeBehavior
drawingViewGenerativeBehavior1.SetGPSNaam "DefaultGenerativeStyle.xml"
Documenten instellen1 = CATIA. Documenten
'===============
strFilePath = CATIA. FileSelectionBox("Selecteer onderdeel", "*. CATPart", 0)
Als strFilePath = "" sluit dan Sub af
Stel partDocument1 in = CATIA. Documents.open(strFilePath)
'===============
Stel product1 in = partDocument1.GetItem("Part1")
drawingViewGenerativeBehavior1.Document = product1
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.0000000, 0.00000000, 1.0000000
drawingView1.x = 1500
drawingView1.y = 420,500000
drawingView1.Schaal = 1.000000
Set drawingViewGenerativeBehavior1 = tekeningView1.GenerativeBehavior
drawingViewGenerativeBehavior1.Update
drawingView1.Activeren
Set tekeningDocument1 = CATIA. ActiveDocument (ActiveDocument)
Set drawingSheet1 = drawingSheets1.ActiveSheet
Set drawingViews1 = drawingSheet1.Views
TekeningWeergave1 instellen = tekeningAanzichten1.ActiveView
Set drawingViewGenerativeBehavior1 = tekeningView1.GenerativeBehavior
Set drawingView2 = drawingViews1.Add("AutomatischeNaamgeving")
Set drawingViewGenerativeBehavior2 = tekeningView2.GenerativeBehavior
drawingViewGenerativeBehavior2.DefineProjectionView drawingViewGenerativeBehavior1, catfrontView
Set drawingViewGenerativeLinks2 = drawingView2.GenerativeLinks
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
drawingViewGenerativeLinks1.CopyLinksTo drawingViewGenerativeLinks2
drawingView2.x = 594,500000
drawingView2.y = 420,500000
Dubbele Dim1
dubbel1 = tekeningWeergave1.Schaal
drawingView2.Schaal = 1.000000
Set drawingViewGenerativeBehavior2 = tekeningView2.GenerativeBehavior
drawingViewGenerativeBehavior2.Update
drawingView2.ReferenceView = tekeningWeergave1
drawingView2.AlignedWithReferenceView
Stel specificaties inAndGeomWindow1 = CATIA. Actief venster
Stel specsViewer1 = specsAndGeomWindow1.ActiveViewer in
specsViewer1.Reframe
specsViewer1.Reframe
Einde Sub
Ik wil het aanpassen aan een kattenproduct, dus ik verander deze verklaring die daardoor wordt onderstreept , maar het werkt niet
Set product1 = productDocument1.GetItem("Product") instellen
Aan de ene kant van de andere wil ik een snede maken van het vooraanzicht, ik moet de coördinaten van de lijn als volgt declareren
Dim SectionProfile
ReDim SectieProfiel(3)
SectieProfiel(0) = -480.
SectieProfiel(1) = 450.
SectieProfiel(2) = 70.
SectieProfiel(3) = 450.
maar ik kon deze opdracht niet gebruiken:
MyView.GeneratiefGedrag. DefineSectionView SectionProfile, SectionView, Offset, 0, MyParentViewGB
Kan iemand mij helpen?
Bij voorbaat dank