|
CATIA V5 Programmierung : Catia v5 automatisieren
bgrittmann am 28.05.2013 um 17:05 Uhr (1)
ServusGemäß einer Erfahrung: bei VB6 kann man den Code komplett übernehmen (kleiner Modifikationen sind nötig), bei VB.net sind größer Modifikationen notwendig (manche Methode in VB haben sich geändert)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrical Set erzeugen
bgrittmann am 10.04.2013 um 22:43 Uhr (0)
ServusBitte Systeminfo ausfüllen.Im Groben geht es so:Code:Sub CATMain()Dim partDocument1 As partDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As partSet part1 = partDocument1.partDim osel As ObjectSet osel = partDocument1.SelectionDim hybridBody1 As hybridBodySet hybridBody1 = osel.Item2(1).ValueDim hybridBodies2 As hybridBodiesSet hybridBodies2 = hybridBody1.hybridBodiesDim hybridBody2 As hybridBodySet hybridBody2 = hybridBodies2.Add()hybridBody2.Name = "Work"part1.UpdateEnd SubAllerdings feh ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehlermeldung beim Aufrufen eines Makros (.catvba)
bgrittmann am 10.04.2013 um 13:51 Uhr (0)
ServusWelche Fehlermeldungen kommen?kannst du auf dem entsprechenden Rechner den VBA-Editor öffnen?ggf hilft es alle Referenzen zu den CATIA-Bibiliotheken löschen, und alle CATIA-Objekte als "Object" zu deklarieren.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit Makro zur Umbenennung
bgrittmann am 24.04.2013 um 12:35 Uhr (0)
ServusIch welchem Format liegt das Teil (aus Type3) vor? (Dateiendung)ggf kann könnte man einfach über Abfrage eine den Typ des Dokuments bestimmen: (ungetestet)Code:FOR EACH oDoc IN CATIA.Documents if TypeName(oDoc) = ("PartDocument" or "ProductDocument") then tmp = SPLIT(oDoc.FullName, FileSeparator) tmpString = tmp(UBOUND(tmp)) tmp = SPLIT(tmpString,".") FileName = tmp(0) oDoc.Product.PartNumber = FileName end ifNEXTgrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatenpunkte auslesen
bgrittmann am 26.04.2013 um 12:18 Uhr (0)
ServuszB Punkte im GSD auf Kurve erzeugen ("Wiederholen der Punkt und Ebenenerzeugung") - Makro hier im Forum zum Export der Koordinaten suchen - Makro startenGrußBerndPS: Bitte Catia Release in der Systeminfo ergänzen.------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
bgrittmann am 29.04.2013 um 08:54 Uhr (0)
ServusEs geht sogar noch einfacher: nur mit der Suche kann man schon die entsprechenden Bohrungen (mit dem passenden Durchmesser) selektieren:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.Search "CATPrtSearch.Hole.Diameter=4,3mm,all"selection1.VisProperties.SetRealColor 255, 0, 0, 0End SubJetzt noch eine Inputbox für den Durchmesser einbauen, und fertig.GrußBernd------------------Warum ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position von Achse auslesen
bgrittmann am 10.05.2013 um 15:38 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Falls es sich bei der Achse um eine Linie handelt (mit der hab ich es getestet) geht es über eine Messung (SPA-Workbench). Für eine Linie kannst du die Richtung sowie die Koordinaten des Start-, Mittel- und Endpunktes ermitteln:Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim constraints1 As ConstraintsSet constraints1 = product1.Connecti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Baugruppe mit Makro in Szene setzen
bgrittmann am 14.05.2013 um 21:13 Uhr (0)
ServusIch würde es so pobieren (ungtestet) ggf mit Watch-Fenster verfolgen ob das richtige Product übergeben wird:Code:Sub CATMain()dim selection1 as Selection in VBA as Objectdim i as integerset selection1 =catia.activedocument.selectionselection1.search".product.name=G08 Spanner.,all"for i =1 to selection1.countDim product1 As ProductSet product1 = selection1.item2(i).value.ReferenceProductDim constraints1 As CollectionSet constraints1 = product1.Connections("CATIAConstraints")Dim constraint1 As Constra ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Baugruppe mit Makro in Szene setzen
bgrittmann am 16.05.2013 um 14:31 Uhr (0)
Servuswelche Fehlermeldung kommt den? Gibt es den Spanner?Schon mal probiert den Integer i zu einem String zu konvertieren (Set product2 = products1.Item("G08 Spanner."&CStr(i)))Ich hab mal meinen Code etwas angepasst, dass er laufen sollte:Code:Sub CATMain()Dim selection1 As ObjectDim i As IntegerSet selection1 = CATIA.ActiveDocument.Selectionselection1.Search "(Name=G08 Spanner.* & CATAsmSearch.Assembly),all"For i = 1 To selection1.CountDim product1 As ProductSet product1 = selection1.Item2(i).Value.Refe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Material nach Combobox zuweisen
bgrittmann am 17.05.2013 um 12:23 Uhr (0)
ServusIch hab mal den Code komplett überarbeitet (ohne Sortierung), der vorherige ist sehr unübersichtlich:Code:Sub CATMain() Dim sFilePath As String Dim oMaterial_document As Document Dim cFamilies_list As MaterialFamilies Dim oFamily As MaterialFamily Dim sFamilie As String Dim Inputtext As String Dim i As Integer Dim cMaterial_list As Materials Dim oMaterial As Material Dim sMaterial As String Dim Antwort As String Dim oDocument As Document Dim oMainBody As Body Dim oManager As MaterialM ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Orientierung der Part-Ursprünge im Product
bgrittmann am 23.05.2013 um 10:31 Uhr (0)
ServusIMHO ist es am einfachsten über "GetComponents" die Position des Parts im Product zu bestimmen, dabei erhältst du die Position und die Ausrichtung (Vektorkomponenten der X-, Y- und Z-Achse. zBCode:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim RootProduct As ProductSet RootProduct = productDocument1.ProductDim RootProducts As ProductsSet RootProducts = RootProduct.ProductsDim PartProduct As ProductSet PartProduct = RootProducts.Item("Part1.1")Dim iA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parts einer starren Vebindung auslesen
bgrittmann am 24.05.2013 um 16:27 Uhr (0)
ServusEntweder musst über die Kinematic Workbench auf die Joints zugreifen und den Typ überprüfen:Code:Sub CATMain()Dim oMechanisms As MechanismsDim oRootProduct As ProductDim oJoints As JointsDim oJoint As JointSet oRootProduct = CATIA.ActiveDocument.ProductSet oMechanisms = oRootProduct.GetTechnologicalObject("Mechanisms")Set oJoints = oMechanisms.Item(1).JointsSet oJoint = oJoints.Item(1)MsgBox oJoint.TypeEnd Suboder auf die Fixtogeters direkt (in den Constrains):Code:Sub CATMain()Dim productDocument1 A ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia v5 automatisieren
bgrittmann am 09.04.2013 um 18:01 Uhr (1)
ServusWie du schon festgestellt hast ist die NC-Schnittstelle nicht besonders gut dokumentiert. Erste Informationsquelle ist sicher die V5Automation, teilweise kann man über den (VBA) Objektbrowser noch an weitere Methoden kommen.Wenn diese Information nicht das richtige liefern hast du IMHO nur sehr schlechte Chancen das Problem zu lösen (ggf Workaround oder StartCommand)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
