|
CATIA V5 Programmierung : Delete Useless Elements --- Keep
rattlesnake am 07.11.2007 um 08:55 Uhr (0)
Hallo, nochmal ich,ich erstelle mir bisher immer eine Struktur über ein Makro. Da erstelle ich verschiedene Ebenen, GeometricalSets und so weiter. Wenn nun das entsprechende Bauteil entwickelt wird, wird in der Regel ein Delete Useless Elements am Ende gemacht. Hier führt er mir verschiedene Geometrien aus der erstellten Struktur an. Kann ich nun sagen, dass ich generell diese Elemente behalten möchte, ohne dass ich das mühsame Rechtsklick-- Keep machen muss. Meine Suche nach einer Lösung blieb da leider o ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehler bei Publication-Macro?
rattlesnake am 04.03.2008 um 09:50 Uhr (0)
hallo zusammen. Ich hab ein sehr seltsames Phänomen und frag mich jetzt ob ich nur zu blöd dazu bin oder was los ist...Also, ich möchte eine Publication machen von dem Hauptbauteil und das automatisieren.1. ich mir ein Makro auf, bei dem ich eine Publikation erzeuge.2. Ich erstell mit über File-New-Part ein neues Part und lass es laufen. Funktioniert3. ich erstell mir über File-New-New From ein Part aus einem ganz einfachen Part. Lass das Macro laufen. Fehlerfolgenden Code hab ich aufgenommen:Code:Language ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt als Rückgabewert
rattlesnake am 18.07.2008 um 13:51 Uhr (0)
Hallo Gemeinde,hab eine Frage. Hab ein kleines Beispielskript geschrieben, das einfach aus der aktuellen Auswahl den erstenPunkt ausliest und wenn einer gefunden wurde diesen zurückgibt.Jetzt gelingt mir es einfach nicht ein Objekt als Rückgabetyp zurück zu geben.Hat das jemand schon einmal gemacht?Code:Sub CatMain() Dim object As HybridshapePointCoord object = tryToGetFirstPointOutOfSelection MsgBox TypeName(object)End SubPublic Function tryToGetFirstPointOutOfSelection() Dim selection As selection Dim Bt ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElements
rattlesnake am 06.08.2008 um 11:30 Uhr (0)
du hast dir ja sicherlich mein Beispiel angeschaut.Ich hab mal dein Vorschlag ausprobiert und er hat natürlich nicht funtkioniert. Ich hab kein Problem bei der Zuweisung, sondern dass er die Methode SelectElement2 erst gar nicht kennt!korrigierter Code:Code: Dim selection As Object muss nicht gemacht werden Set selection = CATIA.ActiveDocument.selection Dim selectableElements(1) As String selectableElements(0) = "Plane" selectableElements(1) = "Face" Set mySel = selection.SelectElements2(s ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElements
rattlesnake am 11.08.2008 um 16:42 Uhr (0)
hallo,wenn es pampig rüber kam, war das nicht meine Absicht.Es hat jetzt dann doch noch geklappt, nachdem ich noch einige Puntke abgeändert hatte.hier der Code:Code:Private Sub CommandButton1_Click() Dialog ausbleden userForm.Hide Auswahl festlegen ----------------------------------------------- Dim selectableElements(1) selectableElements(0) = "Pad" selectableElements(1) = "Line" Selektion definieren und leeren --------------------------------- Dim userSelection As Object Set userSelection ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElements
rattlesnake am 06.08.2008 um 11:15 Uhr (0)
Der Verlauf hat jetzt ne ganz andere Richtung genommen. Mir ist klar, dass ich das als Objekt abspeichern muss.Aber ich hab allgemein ein Problem aus catvba das SelectElement aufzurufen.Es wäre immer noch hilfreich wenn ich etwas Beispielcode bekommen könnte, wenns bei euch funktioniert.Ich hab natürlich mir auch schon mal die Mühe gemacht und ein Beispiel geschrieben.Es kommt die Fehlermeldung: Object doesnt Support this Propert or MethodCode aus Beispiel:Code: Dim selection Set selection = CATIA.Active ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Messung mti Create Geometry
rattlesnake am 26.01.2009 um 09:24 Uhr (0)
So funktionierts unter vba:Code:Dim firstGeometrie As ObjectSet firstGeometrie = CATIA.activeDocument.Part.HybridBodies.Item("Flaeche.1")Dim secondGeometrie As ObjectSet secondGeometrie = CATIA.activeDocument.Part.HybridShapes.Item("Flaeche.2")Dim reference1 As ReferenceSet reference1 = CATIA.activeDocument.Part.CreateReferenceFromObject(firstGeometrie)Dim reference2 As ReferenceSet reference2 = CATIA.activeDocument.Part.CreateReferenceFromObject(secondGeometrie)Dim TheSPAWorkbench As SPAWorkbenchDim TheMe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ReplaceComponent
rattlesnake am 09.02.2009 um 09:46 Uhr (0)
Hallo,hab eine kleine Herausforderung. Ich will ein Product in einen anderen Ordner kopieren und die Dateinamen alle ändern. Also erstelle ich eine Kopie des Products und allen Parts und Products in diesem und mach ein ReplaceComponent mit dem neuen Link.Hier mal die Function, die dies machen soll:Code:Private Function moveFile(ByRef sourceFile As Product, ByVal targetDirectory As String) get old and new File name Dim sourceFullName, target, sourceDirectory, targetFileName, sourceFileName As String sour ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrisches Set einfügen
rattlesnake am 11.02.2009 um 08:37 Uhr (0)
ich hab da mal Funktionen zu geschrieben:Code:Public Function getHybridBody(nameOfHybridBody As String, Optional parent As Object, Optional createIfNotExists As Boolean) Dim userSel As selection Dim newHybridBody As HybridBody search for hybrid body Set userSel = CATIA.activeDocument.selection userSel.Clear userSel.Search "CATPrtSearch.OpenBodyFeature.Name=" & nameOfHybridBody & "*,all" If userSel.Count 0 Then Set newHybridBody = userSel.Item(1).value ElseIf createIfNotExists Then Set newH ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrisches Set einfügen
rattlesnake am 11.02.2009 um 08:37 Uhr (0)
ich hab da mal Funktionen zu geschrieben:Code:Public Function getHybridBody(nameOfHybridBody As String, Optional parent As Object, Optional createIfNotExists As Boolean) Dim userSel As selection Dim newHybridBody As HybridBody search for hybrid body Set userSel = CATIA.activeDocument.selection userSel.Clear userSel.Search "CATPrtSearch.OpenBodyFeature.Name=" & nameOfHybridBody & "*,all" If userSel.Count 0 Then Set newHybridBody = userSel.Item(1).value ElseIf createIfNotExists Then Set newH ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CreateReferenceFromObject Problem
rattlesnake am 14.06.2010 um 11:20 Uhr (0)
Hallo zusammen,ich versuche gerade mein erstes Projekt unter VB .NET zu erstellen. Hab zuvor mit VBA geschrieben und da eine spezielle Funktion erstellt, welche mit ein Body PasteSpecial As Result macht:Code:Sub CATMain() Dim tPart As Part Set tPart = CATIA.Documents.Item("Part7.CATPart").Part Dim body1 As Body Set body1 = tPart.Bodies.Item("TestBody") Dim tBody As INFITF.AnyObject Set tBody = PasteSpecial(body1, tPart) Dim tReference As INFITF.Reference Set tReference = tPart.CreateReference ...
|
| In das Form CATIA V5 Programmierung wechseln |
Testbaugruppe.zip |
CATIA V5 Programmierung : Instance Name ab 2. Baugruppenebene
rattlesnake am 03.06.2011 um 07:45 Uhr (0)
Hallo zusammen,ich versuche den Instance Name eines selektierten Products entsprechend dem PartName zu benennen. Funktioniert leider nur auf der obersten Strukturebene.Hat jemand eine Idee woran das liegen könnte? (Im Anhang befindet sich ne Testbaugruppe, zum Nachvollziehen)Vielen Dank für die HilfeCode:Sub CATMain() Dim tSelection As Selection Set tSelection = CATIA.activeDocument.Selection Dim tProduct As Product Set tProduct = tSelection.Item(1).LeafProduct tProduct.name = "Hubeldidub.2"End Su ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : swap location
rattlesnake am 04.11.2013 um 15:50 Uhr (1)
Hallo zusammen,ich muss mehrmals stundlich im Sketcher Bemaßungen umdrehen (swap location)weiß jemand wie das mit Makro funktioniert?Hab schon Constraint.Side und Constraint.Orientation versucht. Würde sicherlich auch funktionieren wenn Catia nicht jedes mal abschmieren würde.Hat jemand von euch da zufällig einen Tipp was ich noch versuchen kann. Das würde mir echt viel Clickarbeit ersparen.Vielen Dank.------------------ \|//// _ _ // ( o o )================oOOo-(_)-oOOo======== ...
|
| In das Form CATIA V5 Programmierung wechseln |
