Guten Morgen Zusammen,
ich habe follgendes Problem, mit dem ich mich jetzt schon ein paar Stunden herum Schlage
Ich versuche mit Hilfe der SelectElement2 Methode entweder Bemaßungen oder Textfelder in einer Drawing auswählen zulassen. (Das ganze soll später in ein Indexierungs Makro implementiert werden).
Leider kommt beim Debuggen immer ein "Run-time-error" (genaue Fehlermeldung im Anhang). Mittlerweile frage ich mich ob die SelectElement2 Methode überhaupt bei DRWs funktioniert???
Ich habe nachfollgend meinen aktuellen Programmcode. Vllt. findet ja von euch jemand den Fehler im Allgorythmus...Ich wäre euch sehr dankbar
Grüße an Alle
Code (language ist Visual Basic):
Sub CATMain()
'Auswahl des Aktiven DRW Dokuments
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
'Auswahl aller Seiten des Aktiven DRW Dokuments
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
'Auswahl der ersten Seite des Aktiven DRW Dokuments
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
'Erzeugen einer Liste aller Drawing Views
Dim drwViews1 As DrawingViews
Set drwViews1 = drawingSheet1.Views
'Auswahl der ersten DrawingView
Dim drwView1 As DrawingView
Set drwView1 = drwViews1.Item(1)
'Selektion der Indexierung-----------------------------------------------------------------------------------------------------
'Auswahlmöglichkeiten festlegen
Dim Was(1)
Was(0) = Dimension
Was(1) = Text
'Selektion definieren und leeren
Dim UserSel
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear
'Selektion vornehmen lassen
Dim Sel
Sel = UserSel.SelectElement2(Was, "Bemaßung oder Textfeld auswählen", True)
MsgBox (Sel)
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP