Witam
Jestem początkujący w makro, zacząłem robić makro przeznaczone do szkicowania, udało mi się zrobić 2 widoki (przód i rignt riews), ale to makro jest dla kota
Ustaw drawingView1 = drawingViews1.Add("Automatyczne nazewnictwo")
Ustaw drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Ustaw drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior1.SetGPSNam nazwy "DefaultGenerativeStyle.xml"
Ustaw dokumenty1 = CATIA. Dokumentów
'===============
strFilePath = CATIA. FileSelectionBox("Wybierz część", "*. CATPart", 0)
Jeśli strFilePath = "" Następnie wyjdź z sub
Ustaw partDocument1 = CATIA. Documents.open(strFilePath)
'===============
Ustaw product1 = partDocument1.GetItem("Part1")
drawingViewGenerativeBehavior1.Document = produkt1
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0,000000, 0,000000, 0,0000000, 0,0000000, 1,0000000
drawingView1.x = 1500
drawingView1.y = 420.500000
drawingView1.Scale = 1.000000
Ustaw drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior1.Update
drawingView1.Activate (rysunek)1.Activate (rysunk)
Ustaw drawingDocument1 = CATIA. Aktywny dokument
Ustaw drawingSheet1 = drawingSheets1.ActiveSheet
Ustaw drawingViews1 = drawingSheet1.Views
Ustaw drawingView1 = drawingViews1.ActiveView
Ustaw drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
Ustaw drawingView2 = drawingViews1.Add("Automatyczne nazewnictwo")
Ustaw drawingViewGenerativeBehavior2 = drawingView2.GenerativeBehavior
drawingViewGenerativeBehavior2.DefineProjectionView drawingViewGenerativeBehavior1, catfrontView
Ustaw drawingViewGenerativeLinks2 = drawingView2.GenerativeLinks
Ustaw drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
drawingViewGenerativeLinks1.CopyLinksTo drawingViewGenerativeLinks2
drawingView2.x = 594,500000
drawingView2.y = 420,500000
Podwójne przyciemnienie 1
double1 = drawingView1.Skala
drawingView2.Scale = 1,000000
Ustaw drawingViewGenerativeBehavior2 = drawingView2.GenerativeBehavior
drawingViewGenerativeBehavior2.Update
drawingView2.ReferenceView = drawingView1
drawingView2.AlignedWithReferenceView
Ustaw specsAndGeomWindow1 = CATIA. ActiveWindow (Aktywne okno)
Ustaw specsViewer1 = specsAndGeomWindow1.ActiveViewer
specsViewer1.Reframe
specsViewer1.Reframe
Koniec subwoofera
Chcę go dostosować do produktu dla kotów, więc zmieniam to stwierdzenie, które jest przez to podkreślone , ale to nie działa
Ustaw product1 = productDocument1.GetItem("Produkt")
Z jednej strony z drugiej chcę zrobić przecięcie widoku z przodu, muszę zadeklarować współrzędne linii w następujący sposób
Profil przekroju przyciemnianego
Profil sekcji ReDim(3)
SectionProfile(0) = -480.
SectionProfile(1) = 450.
SectionProfile(2) = 70.
SectionProfile(3) = 450.
ale nie mogłem użyć tego polecenia:
MyView.GenerativeBehavior. DefineSectionView SectionProfile, SectionView, Offset, 0, MyParentViewGB
Czy ktoś może mi pomóc?
Z góry dziękuję