|
CATIA V5 Programmierung : Referenz von Flächenkante
bgrittmann am 05.05.2015 um 21:00 Uhr (1)
ServusWenn die Fläche "nur" eine Kante hat die verrundet werden kannst du diese über den Typ "TriDimFeatEdge" herausfiltern.Oder was ist bei dir die "richtige" Kante? GrußBerndEDIT: Kurzes Beispiel dazu (nur geschlampter Code)Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometris ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
bgrittmann am 06.05.2015 um 15:36 Uhr (1)
ServusDu kannst leider den Parameter nicht direkt per Namen ansprechen.Entweder musst du den Pfad zum Parameter zusammensetzen (zb "DrawingSet2meinTestParameter") oder per Schleife die letzten Ziechen vergleichen:Code:Sub CatMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim parameters1 As ParametersSet parameters1 = drawingDocument1.ParametersDim parameterSet1 As ParameterSetSet parameterSet1 = parameters1.RootParameterSetDim parameterSets1 As ParameterSetsSet para ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 06.05.2015 um 19:39 Uhr (1)
Megaaaaa. Vielen Dank.Also ich ändere die untergeordneten Parameter jetzt so:------------------------------------------Set oDraw = CATIA.ActiveDocumentSet oPara = oDraw.Parameters....Set TextPara = oPara.Item("DrawingDetailsFertigungsauftrag")TextPara.Value = "Production Order" da das Set in der Vorlage fix ist, ist der feste Pfad für michin diesem Fall kein Problem------------------------------------------Ok gleich noch eine Frage xD. Damit habe ich mich noch nicht befasst,da ich noch nicht so weit bin, a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Offene Parts in einem Produkt zusammenfügen
moppesle am 07.05.2015 um 13:35 Uhr (1)
Hallo Tropby182,wenn ich ein Produkt geöffnet habe, kann ich über "Existing Component" in einem Verzeichnis eine Mehrfachselektion machen.Vielleich reicht dir das schon.------------------Gruß UweAuch Catia ist nur ein Mensch!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 11:45 Uhr (1)
ich stell mich zu blöd an oOich suche so nach den Textfeldern und nichts passiert?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentCATIA.HSOSynchronized=FalseSet oSel = oDraw.SelectionFor i = 1 To oSel.CountoDrawText = oSel.Item(i)If oDrawText.Name = Kanten ThenoDrawText.Text = ("Edges Broken")End IfNextCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
bgrittmann am 08.05.2015 um 13:06 Uhr (1)
Servuswas willst du jetzt: über die Selektion Suchen oder per Schleife alle Textfelder abarbeiten.Dein Code ist ein Mischmasch von beidem.zB alle Texte deren Namen nicht mit "Text" beginnen im Hintergrund selektierenCode:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.Clearselection1.Add drawingDocument1.Sheets.ActiveSheet.Views.Item(2)selection1.Search "(Name!=Text* & CATDrwSearc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 14:12 Uhr (1)
Soooo jetzt funzt es xDSub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSel = oDraw.SelectionCATIA.HSOSynchronized=FalseoSel.Search "CATDrwSearch.DrwText.Name=Kanten, all"For n = 1 to oSel.CountSet oText = oSel.Item(n).ValueoText.Text = "Edges Broken"NextoSel.ClearCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 17:02 Uhr (1)
Jetzt versuche ich die Blattendung anzupassen, falls sich aufdem Sheet im Backround das entsprechende Deteil befindet.Das Makro erwartet aber einen weiteren Befehl und kein End Sub?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oPara = oDraw.ParametersSet oSheets = oDraw.SheetsqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = qSheets.Item(i).IsDetailIf IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch.DrwDetail.N ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 22:35 Uhr (1)
Hi habe ich bei mir auch immer nur hier muss man es immer manuellnochmal machen. Also ich find den Fehler einfach nicht...Vielleicht habe ich auch wieder was vermischt oder so oOSub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For i = 1 To oSel.Count IsDetail = oSel.Item(i).IsDetail If IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 09.05.2015 um 10:35 Uhr (1)
Oh ja des is eindeutig n schnitzer gewesen xDAlso ich rate mich grad nur durch ka. Habe es jetzt umgestellt und jetztkommt ständig eine Fehlermeldung bei If oSel 0 Then oOIst der Suchbefehl vllt falsch?!Code:Sub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For s = 1 to oSheets.Count IsDetail = oSheets.Item(s).IsDetail If IsDetail = False Then Set active_sheet = oSheets.Item(s) ac ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 10.05.2015 um 18:33 Uhr (1)
Also ich habe jetzt viele Versionen ausprobiert und das Ergebnis ist immer das selbe. Das Makro läuft eindeutig über die normalen Sheetsdrüber aber es passiert rein gar nichts mit dem Namen.Die Makroaufzeichnung liefert absolut nichts außer wenn ich z.B. inden Backround gehe...Der VB-Editor läuft ohne zu meckern durch...so der Stand:Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSheets = oDraw.SheetsSet oSel = oDraw.SelectionqSheets = oSheets.Count For i = 1 To qSheets IsDetail = oSheets.Item(i).I ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen egal ob CatPart oder Product
Jürgen W am 11.05.2015 um 08:55 Uhr (1)
Hallo zusammenich möchte mir eine einfache Routine (VB.Net) schreiben, die die Parameter aus dem aktiven Objekt ausliest. Dabei soll es egal sein, ób es ein CatPart, Product oder auch eine DrawingDocument ist.Bisher habe ich immer den Type ermittelt und dann die Parameter ausgelesen.Kann ich das Ganze auch so schreiben, dass egal was vorliegt - also ohne diese Fallunterscheidung - die Parameter ausgelesen werden.SO ist das aktuell Public globPartDocument As PartDocument Public globCurPart As Part Public gl ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 11.05.2015 um 16:09 Uhr (1)
Ich habe es jetzt mal so geprüft und es wird definitiv keinekomponente gefunden...Code:Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSheets = oDraw.SheetsSet oSel = oDraw.SelectionqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = oSheets.Item(i).IsDetailIf IsDetail = False Then Set active_sheet = oSheets.Item(i) oSel.Clear osel.add active_sheetoSel.Search "CATDrwSearch.DrwDitto.Name=A0-Brennteil-Stempel*, sel"If oSel.Count 0 ThenRetCode = MsgBox( "Fund")End IfoSel.Search "CATD ...
|
| In das Form CATIA V5 Programmierung wechseln |
