|
CATIA V5 Programmierung : Linien im GeoSet löschen
Tweety79 am 14.07.2016 um 12:32 Uhr (1)
Servus,ich habe es nun mit einer Schleife versucht.Irgend was ist aber falsch dran. Private Sub deleteCopy(myCatiaDoc As MECMOD.PartDocument, prefix As String, mySearchValue As String) Dim myHybBody As MECMOD.HybridBody Dim myHybShape As MECMOD.HybridShape = Nothing myHybBody = myCatiaDoc.Part.HybridBodies.Item(1).HybridBodies.Item(prefix) myHybShape = myHybBody.HybridShapes.Item(prefix & mySearchValue) If myHybShape IsNot Nothing Then For Each myHybShape In myCatiaDoc.Part.HybridBodies. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Section in ein Part exportieren
Tweety79 am 12.11.2016 um 19:40 Uhr (1)
Hallo zusammen,ich versuche auch Schnitte zu exportieren.Code ist ähnlich wie beim Johnny, ich bekomme aber eien Fehlermeldung in der Zeile ...Copy() Dim myPart As MECMOD.PartDocument mySection = myCatiaApp.ActiveDocument.Product.GetTechnologicalObject("Sections") myPart = myCatiaApp.Documents.Add("Part") Dim mySelection As INFITF.Selection myPart = mySection.Item(1).Export() mySelection = myPart.Selection mySelection.Copy() mySelection.Paste()Was ist bei mir falsch?Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Name eines Parameters nach Excel
Tweety79 am 12.05.2016 um 10:36 Uhr (1)
Servus,ich habe jetzt folgendes als Code: Dim myCatiaApp As INFITF.Application Dim myCatiaDoc As MECMOD.PartDocument Dim myPart As MECMOD.Part Dim xlsApp As Excel.Application Dim xlsWB As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim xlsCell As Excel.Range Dim xlsDatei As String xlsApp = New Excel.Application xlsApp.Visible = True xlsWB = xlsApp.Workbooks.Open("F:PFDMacros_ToolsCATIA_to_ExcelParameter_To_ExcelParameter_CATIA.xlsx") xlsSheet = xlsWB.Worksheets(1) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GeoSet eines Parts im Product kopieren
Tweety79 am 25.04.2016 um 10:23 Uhr (1)
Hi Bernd,für vb.NET musste ich das ein wenig anpassen ( set ... entfällt ). Dim myPartDocument As MECMOD.PartDocument Dim oSel As INFITF.Selection Dim myPart As MECMOD.Part Dim myHybridBody As MECMOD.HybridBodies myPartDocument = myCatiaApp.Documents.Item("Name = Keine Ahnung, all") myPart = myPartDocument.Part oSel = myPartDocument.Selection myHybridBody = myPart.HybridBodies.Item("TOLL") oSel.Clear oSel.Add(myHybridBody) oSel.copy oSel.Clear oSel.Add(myPart) oSel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part Properties (Mass) auslesen
Tweety79 am 20.05.2019 um 11:00 Uhr (1)
Hallo Zoltan,wenn ich innerhalb einer Assembly nach einem Part suche mit:Code:myProductDocK.Selection.Search("(Name= & a & ),all")Wie kann ich direkt von diesem Selektierten Part Center of Gravity abgreifen, ohne es im neuen Fenster zu öffnen?Ich würde es so schreiben, bräuchte dann aber vorher die Information an welcher Stelle im Assembly sich das Part befindet.Die Zahl würde ich anstelle des Fragezeichens schreiben.Code:myProduct2 = myProduct.Products.Item(?)Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Copy Paste Part zu Part
Tweety79 am 05.03.2019 um 12:31 Uhr (1)
Servus,ich habe im Product ein Part mit dem Namen myPart.Darin ist ein Body mit dem Namen myCopyBodyNeu; dieses kopiere ich.Dann gibt es das Part im Product - myPart2.Dort soll das Body aus Part 1 rein.Gruß
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Linien im GeoSet löschen
Tweety79 am 13.07.2016 um 13:49 Uhr (15)
Hallo zusammen,ich habe in einem GeoSet nur Linien und Punkte.Nur bestimmte Punkte und besstimmte Linien müssen gelöscht werden.Ich kann mit unterem Code die gesuchten Punkte löschen aber Linien mit demselben Namen wie der Punkt werden nicht gefunden.Anbei menine Funktion: Private Sub deleteCopy(myCatiaDoc As MECMOD.PartDocument, prefix As String, mySearchValue As String) Dim myHybBody As MECMOD.HybridBody Dim myHybShape As MECMOD.HybridShape = Nothing myHybBody = myCatiaDoc.Part.HybridBodies ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterwerte bei Single values abgreifen
Tweety79 am 13.05.2016 um 11:33 Uhr (1)
Servus,ich habe inzwischen ein anderes Konstrukt: Dim MyArrayWert() As String myCatiaDoc.Selection.Search("(Name=Irgendwas* & CATKnowledgeSearch.InternalParameter),all") ReDim MyArrayWert(myCatiaDoc.Selection.Count) For k = 1 To myCatiaDoc.Selection.Count MyArrayWert(k) = myPart.Parameters.Item(k).Value xlsApp.Cells(4 + k, 3).Value = MyArrayWert(k) NextEs werden 5 Parameter gefunden, mit dem Namen, die alle einen Wert 0 haben.Was ich abr als Ergebnis bekomme:Für die erste ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Name eines Parameters nach Excel
Tweety79 am 11.05.2016 um 20:11 Uhr (1)
Hallo,wie kann ich die Namen aller Parameter eines ParameterSets, die mit "Fall" anfangen, kopieren und in Excel in die Zellen schreiben?vb.NETEs sind zum Beispiel 5 Parameter, deren Name mit "Fall" anfangen ( unter insgesamt 12 ).Der erste Name kommt in Excel nach B2, der zweite nach C2, der dritte nach D2 ...Ich habe dies als Ansatz:Dim myParamSet As parameterset Dim ModelEl As INFITF.ModelElementmyParamSet = myCatiaDoc.Selection.Item("Fall*").NameModelEl = myParamSet.GetItem("ModelElement")ModelEl.Selec ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GeoSet eines Parts im Product kopieren
Tweety79 am 22.04.2016 um 15:39 Uhr (1)
Hallo zusammen,ich möchte folgendes machen in vb.NET:-in einem Product habe ich x Parts-in einem Part mit dem Namen (keine Ahnung)befindet sich ein GeoSet mit dem Namen ("TOLL")- dieses Geoset möchte ich innerhalb des Parts in dem es sich befindet, kopieren und nochmal einfügenMein Code: Dim Sel = myProductDoc.Selection Sel.Clear() Dim Docs As MECMOD.PartDocument Docs = Sel.Item("keine Ahnung") myModell = Sel.Part myGeoSet = myAdaptermodell.HybridBodies myGeoSet1 = myGeoSet.Item("TOLL" ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Copy Paste Part zu Part
Tweety79 am 15.03.2019 um 14:32 Uhr (14)
Danke!Irgendwo hatte ich einen Knoten drin.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umbenennen Products auf allen Ebenen
Tweety79 am 25.11.2016 um 17:17 Uhr (1)
Hallo,ich möchte in einem PRoduct ALLE darin enthaltenen Products auf ALLEN Ebenen so umbenennen, dass der ursprüngliche Name duch Datum erweitert wird.Mit meinem Code werden ALLE Products gefunden, in der Schleife auch deren Namen, aber umbenannt wird zum Schluss nur der Name des obersten Products.Was ist in meinem Code falsch?Hier mein Code: Dim myCatiaApp As INFITF.Application Dim myProduct As ProductStructureTypeLib.Product Dim myProductDoc As ProductStructureTypeLib.ProductDocument Dim myP ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part Properties (Mass) auslesen
Tweety79 am 20.05.2019 um 11:43 Uhr (1)
Servus,danke, der Suchname ist abgesichert. Es kann niemals was anderes genauso heißen in diesem Fall.Mit der Zeile myPart = ... funktioniert jetzt der Rest für das Abgreifen von Inertia nicht mehr.Bisher hieß es, weil ich das Part im neuen Fenster geöffnet habe:Code:oProduct = myCatiaApp.ActiveDocument.Product Dim myInertia myInertia = myProduct.GetTechnologicalObject("Inertia") Mit der letzten Zeile:Code:myInertia = myPartK.GetTechnologicalObject("Inertia")Kommt die Fehlermeldung: Kein Ge ...
|
| In das Form CATIA V5 Programmierung wechseln |
