|
CATIA V5 Programmierung : Kleine Linien löschen
cyzed am 30.11.2009 um 09:53 Uhr (0)
ich habe jetzt ein Makro mit dem ich die Länge einer 3D Linie messen kann:Sub Messung3DLine() Dim InputObjectType(0) Dim ref1 Dim status InputObjectType(0) = "Line" Set Selection = CATIA.ActiveDocument.Selection Selection.Clear status = Selection.SelectElement2(InputObjectType, "Fläche auswählen", True) Set ref1 = Selection.Item(1).Reference Dim thespaworkbench Set thespaworkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Dim themeasurable Set themeasurable = thespaworkbenc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kleine Linien löschen
cyzed am 30.11.2009 um 09:52 Uhr (0)
ich habe jetzt ein Makro mit dem ich die Länge einer 3D Linie messen kann:Sub Messung3DLine() Dim InputObjectType(0) Dim ref1 Dim status InputObjectType(0) = "Line" Set Selection = CATIA.ActiveDocument.Selection Selection.Clear status = Selection.SelectElement2(InputObjectType, "Fläche auswählen", True) Set ref1 = Selection.Item(1).Reference Dim thespaworkbench Set thespaworkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Dim themeasurable Set themeasurable = thespaworkbenc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kleine Linien löschen
cyzed am 30.11.2009 um 09:52 Uhr (0)
ich habe jetzt ein Makro mit dem ich die Länge einer 3D Linie messen kann:Sub Messung3DLine() Dim InputObjectType(0) Dim ref1 Dim status InputObjectType(0) = "Line" Set Selection = CATIA.ActiveDocument.Selection Selection.Clear status = Selection.SelectElement2(InputObjectType, "Fläche auswählen", True) Set ref1 = Selection.Item(1).Reference Dim thespaworkbench Set thespaworkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Dim themeasurable Set themeasurable = thespaworkbenc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Existenz der Datei prüfen
cyzed am 08.12.2009 um 11:47 Uhr (0)
Hallo,und zwar möchte ich in einem Produkt eine Komponente ersetzen mit folgendem Befehl:Set oNeuKomp = oMasterProd.ReplaceComponent(oAltKomp, "C:KomponenteKomponente.CATPart", False)Das gehts schon soweit, mir fehlt da noch, dass es geprüft wird ob die neue Komponente, also die Datei: Komponente.CATPart überhaupt vorhanden istgrußAlex
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : als neues Dokument speichern
cyzed am 02.12.2009 um 14:03 Uhr (0)
hallo,haben folgendes Problem:Es gibt die Möglichkeit beim Sichern Unter das Häckchen "Als neues Dokument sichern". Wenn es aktiviert wird, kann die Komponente so gespeichert werden, dass kein Bezug mehr zu vorhandenen Komponenten gibt.Mein Fall: ich habe ein Produkt mit mehreren Komponenten. Eins davon ist meine Ausgabe, die ich separat abspeichern will, so dass diese kein Bezug mehr zu der Baugruppe hat und die bereits vorhandene erhalten bleibt.ich kenne Leider das Befehl nicht. habe schon alles abgesuc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Isolieren von externen Verweisen
cyzed am 03.12.2009 um 13:25 Uhr (0)
damit wird doch das Objekt gelöscht oder nicht? ich wollte nur isolieren, damit es keine Referenz mehr zum anderen Part gibt
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Isolieren von externen Verweisen
cyzed am 03.12.2009 um 12:53 Uhr (0)
Hallo,ich bräuchte mal wieder einen Rat und zwar möchte ich die externen Verweise(in meinem Fall sind es Skizzen, die auf ein anderes Part verwiesen sind) in einem CATPart über ein Makro isolieren.habe mit der der Makroaufzeichnung probiert und es wird nichts aufgezeichnetKennt jemand die richtige Syntax für sowasgrußalex
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kleine Linien löschen
cyzed am 30.11.2009 um 13:55 Uhr (0)
habe hier die Syntax nochmal zusammengestellt und irgendwie gibts da wieder ein Problem mit der ReferenzSub CATMain()Anzahl der Linien und Punkte in der SkizzeDim Linien, Punkte As SelectionSet Linien = CATIA.ActiveDocument.SelectionLinien.ClearLinien.Search "Type=Linie*;all"Set Punkte = CATIA.ActiveDocument.SelectionPunkte.ClearPunkte.Search "Type=Punkt*;all"Dim zaehler, zaehler2, zaehler3 As Integerzaehler1 = Linien.Countzaehler2 = Punkte.Countzaehler3 = zaehler1 + zaehler2Linien.ClearPunkte.ClearDim bau ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kleine Linien löschen
cyzed am 30.11.2009 um 16:04 Uhr (0)
YAHOOOOOOOO!!!!!!!! Ich habs komplett...Danke für eure Hilfehier nochmal die gesamte Syntax für alle Sub CATMain()maximale Linienlänge eingebenDim Laengemax As DoubleLaengemax = InputBox("Bitte die maximale Linienlänge eingeben")Anzahl der Linien und Punkte in der SkizzeDim zaehler, zaehler2, zaehler3 As IntegerDim Linien, Punkte As SelectionSet Linien = CATIA.ActiveDocument.SelectionLinien.ClearLinien.Search "Type=Linie*;all"zaehler1 = Linien.CountSet Punkte = CATIA.ActiveDocument.SelectionPunkte.ClearPun ...
|
| In das Form CATIA V5 Programmierung wechseln |
