|
CATIA V5 Programmierung : Copy Paste Part zu Part
bgrittmann am 05.03.2019 um 17:31 Uhr (1)
ServusHast du dir den von mir verlinkten Code mal angesehen?Ich hab diese mal auf den Maibody angepasst:Code:Sub CATMain() Dim oActiveDoc As ProductDocument Set oActiveDoc = CATIA.ActiveDocument Dim oPart1Doc As PartDocument Dim oPart2Doc As PartDocument Set oPart1Doc = oActiveDoc.Product.Products.Item(1).ReferenceProduct.Parent Set oPart2Doc = oActiveDoc.Product.Products.Item(2).ReferenceProduct.Parent Dim oCopyObject As Body Dim oPasteObject As Body Set oCopyObject = oPart1Doc.Part.Mainbody ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro: Intersect 3D Elements in Skizzierer
bgrittmann am 08.10.2012 um 12:16 Uhr (0)
ServusAnbei ein Beispiel (CATSCript) (Makrorekorderaufzeichnung mit geringer Nacharbeit) zum Verschneiden einer Ebene mit der Skizze:Code:Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")Dim sketches1 As SketchesSet sketches1 = hybridBody1.HybridSketchesDim reference1 As ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro Producte ein - ausblenden Schleife
bgrittmann am 07.03.2009 um 18:02 Uhr (0)
ServusAnbei ein Beispiel, bei dem erst alle Teile ausgeblendet werden, dann einzeln eingeblendet und zum Schluss alleCode:Sub CATMain() Set oRoot = Catia.ActiveDocument Set oProducts = oRoot.Product.Products Set selection2 = oRoot.SelectionAlle ausblenden For i = 1 to oProducts.Count selection2.add (oProducts.Item(i)) selection2.VisProperties.SetShow catVisPropertyNoShowAttr selection2.Clear Nexteinzeln einblenden For i = 1 to oProducts.Count selection2.add (oProducts.Item(i)) selection2.Vi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linien aus geometrischen Set auslesen
bgrittmann am 09.11.2012 um 12:50 Uhr (1)
ServusWillkommen im Forum.Anbei ein Code-Schnippsel der dir den Namen der Linie ("Linie.1" in "Geometrisches Set.1") und der Punkt ausgibt.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("Geometrisches Set.1")Dim hybridShapes1 As HybridshapesSet hybridShapes1 = hybridBody1.Hybridshap ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Allgemein : Material und Güte
bgrittmann am 15.04.2026 um 08:44 Uhr (1)
ServusIch vermute dass sich dass Material und die Güte über die Materialbibliothek StructureMaterials.CATMaterial erzeugen lassen (beachte die Sonderbare Struktur der Familien und Benennungen der Material)Warum die Workbench nicht so funktioniert wie du es erwartest: Frag Dassault was die da verzapft haben.Warum es dazu wenig Informationen gibt es und es kaum einer einsetzt: ist vermutlich wieder sehr teuer (fünfstelliger Betrag pro Jahr?) hat nicht die Funktionen die den Preis rechtfertigen für Stahlbau g ...
|
| In das Form CATIA V5 Allgemein 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 Allgemein : Axis Center Point - Auswahl filter
bgrittmann am 07.10.2011 um 15:41 Uhr (0)
ServusDu könntest dir auch ein Makro schreiben:- eine Schleife über alle Achsensysteme laufen lassen- für jedes Achsensystem die Koordinaten auslesen und ein Punkt mit diesen erstellen.Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")Dim hybridShap ...
|
| In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Programmierung : Formeln mit Makro erstellen
bgrittmann am 24.05.2011 um 21:50 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Das geht mit dem Befehl CreateFormula . Ein Beispiel aus der Doku:Code:...Dim CATDocs As DocumentsSet CATDocs = CATIA.DocumentsDim part1 As DocumentSet part1 = CATDocs.Add("CATPart")Dim width As RealParamSet width = part1.Part.Parameters.CreateReal("width", 1.) Dim height As RealParamSet height = part1.Part.Parameters.CreateReal("height", 2.) Dim depth As RealParamSet depth = part1.Part.Parameters.CreateReal("depth", 3.) Dim density As RealParamSet dens ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElement2
bgrittmann am 18.03.2019 um 11:59 Uhr (1)
Servus DennisWas HybridShapeFactory siehe V5Automation, ein Hybridshape zu einem geoSet hinzufügen geht über AppendHybridShape.So könnten die beiden Codes zusammengefasst werden:Code: If TypeName(oSelElement.Parent.Parent) = "Body" Then Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim hybridBody1 As HybridBody ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse aktivieren/inaktivieren per Makro
bgrittmann am 07.11.2015 um 15:47 Uhr (1)
Servus WeberknechtaHier ein Code zum die "Technologischen Ergebnisse" in einem Part aktivieren (Vorraumsetzung: deutsche Umgebung)Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As Documentdim oFeature as Objectdim oPart as PartDim selection1 As Selectiondim i as integerSet partDocument1 = CATIA.ActiveDocumentSet selection1 = partDocument1.SelectionSet oPart = partDocument1.partselection1.Search "CATPrtSearch.MechanicalFeature.Name=Technologische*,all"if selection1.count 0 then for i = 1 to selecti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selbst erstellte Parameter aus Part auslesen
bgrittmann am 06.09.2013 um 15:46 Uhr (1)
ServusFolgende Fehler hatte dein Code:- du hast die Fehlbehandlung nicht wieder angeschaltet deshalb hat der Degugger auch keinen Fehler gebracht- die Funktion "getUserProperty" fehlt in deinem Code- "getUserProperty" liefert dir den Parameter zurück nicht den WertCode:Sub CATMain()Dim oProduct As ProductOn Error Resume NextSet oProduct = CATIA.ActiveDocument.Product If (oProduct Is Nothing) Then MsgBox "Source Part document not found!", vbCritical Exit SubEnd IfOn Error GoTo 0Dim ParamWorks As Paramete ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schwerpunkt über Formel
bgrittmann am 21.05.2012 um 12:33 Uhr (1)
ServusDu musst zunächst einen HybridPointExplicite anlegen (also einen isolierten Punkt). Diesen kannst du dann bei der Erstellung der Formel angeben.zB (zusammengebastelter Code)Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As HybridShapeFactorySet hybridShapeFactory1 = part1.HybridShapeFactoryDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBod ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Veröffentlichte Skizze Einfügen über VB.Net
bgrittmann am 27.11.2018 um 10:19 Uhr (15)
ServusDieser (CATScript) Code läuft bei mir.Bei dir auch? (aus 1. GeoSet des 1. Products, in das 1. GeoSet des 2. Products)Code:Sub CATMain() Dim oActiveDoc As ProductDocument Set oActiveDoc = CATIA.ActiveDocument Dim oPart1Doc As PartDocument Dim oPart2Doc As PartDocument Set oPart1Doc = oActiveDoc.Product.Products.Item(1).ReferenceProduct.Parent Set oPart2Doc = oActiveDoc.Product.Products.Item(2).ReferenceProduct.Parent Dim oCopyObject As Sketch Dim oPasteObject As HybridBody ...
|
| In das Form CATIA V5 Programmierung wechseln |
