|
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: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 : Deklarieren von Skizzenausgaben in VBA
cyzed am 04.12.2009 um 11:43 Uhr (0)
danke für die Tipps, ich habe das jetzt so weit geschaft, dass ich die Ausgabekomponenten inaktivieren kann...Was müsste ich in meiner Syntax ändern damit die Ausgabekomponente umbenannt wird???Dim partdocument1Dim selection1Dim ausgabeSet partdocument1 = CATIA.ActiveDocumentSet selection1 = partdocument1.Selectionselection1.Clearselection1.Search "CATSketchSearch.2DOutput,all"Set ausgabe = selection1.item(1).Valueselection1.Clearselection1.Add ausgabeCATIA.StartCommand ("inaktivieren")grußAlex
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Deklarieren von Skizzenausgaben in VBA
cyzed am 04.12.2009 um 12:12 Uhr (0)
also irgendwas mache ich da falsch, weil mit ausgabe.name habe ich bereits ausprobiertDim partdocument1Dim selection1Dim ausgabeSet partdocument1 = CATIA.ActiveDocumentSet selection1 = partdocument1.Selectionselection1.Clearselection1.Search "CATSketchSearch.2DOutput,all"Set ausgabe = selection1.item(1).Valueselection1.Clearausgabe.Name = "test"
|
| 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 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 |
|
CATIA V5 Programmierung : Kleine Linien löschen
cyzed am 30.11.2009 um 17:22 Uhr (0)
Vielen Dank für deine Mühe, ich werde mir die Kritik zu Herzen legen. ich habe hier noch ein AnliegenMit dem Makro verfolge ich eigentlich das Ziel eine DXF Datei ins Catia zu importieren. Wenn man ein Profil aus der DXF Datei in den Sketcher kopiert und zerlegt, entstehen sehr viele kleine Linien, die ein Radius darstellen(eine Annäherung sozusagen). Ich möchte diese mit einem Bogen ersetzen.Daher die allgemeine Frage an dieser Stelle:Gibt es ein Makro oder ein Programm für sowas???Gruß Alex
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Existenz der Datei prüfen
cyzed am 08.12.2009 um 13:13 Uhr (0)
Dim Exists As BooleanExists = CATIA.FileSystem.FileExists(datei)If Exists = True ThenMsgBox "ersetzen"ElseMsgBox "nicht ersetzen"End Ifobwohl Exists immer den richtigen Wert annimmt wird kommt immer die zweite MsgBox
|
| In das Form CATIA V5 Programmierung wechseln |
