|
CATIA V5 Programmierung : selection aktives sheet
joerneman am 21.04.2015 um 08:54 Uhr (1)
Hallo Bernd,vielen Dank für die Antwort, so klappt es.Stehe jetzt aber vor dem nächsten Problem.Möchte das selektierte Element umbenennen, dass klappt bei mir bis jetzt aber nur bei normal erstellten Textfeldern, nicht wenn ich eins aus einem Detailblatt einfüge, da kommt es zu einem Fehler.Code:Set drwdocument = CATIA.ActiveDocumentSet DrwSheets = drwdocument.SheetsSet DrwSheet = DrwSheets.ActiveSheetDim selection1 As SelectionSet selection1 = drwdocument.Selectionselection1.clearselection1.add DrwSheetx= ...
| | In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : selection aktives sheet
joerneman am 17.04.2015 um 19:34 Uhr (15)
Naben zusammen,wie muss ich den Code anpassen das die selection.search nur im Aktiven Sheet des Drawings sucht und nicht im gesamten.Da das gesamte aus mehreren Sheets besteht.Code: Set drwdocument = CATIA.ActiveDocument Set DrwSheets = drwdocument.Sheets Set DrwSheet = DrwSheets.ActiveSheet Dim selection1 As Selection Set selection1 = drwdocument.Selection selection1.Search ("Name=*Test*")
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro Fehlermedlung
joerneman am 25.03.2014 um 09:24 Uhr (1)
Hi Also bei der Netzwerkumgebung bin ich mir sicher, dass diese gleich ist.Bei der Catia Umgebung bin ich mir auch sicher das es die selbe ist.Bei den Referenzen bin ich mir nicht sicher, dass müsste ich mal vergleichen. Aber auf die kann ich doch auch nur mit dem Passwort zugreifen, oder ?
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code läuft nicht in CommandButton
joerneman am 07.11.2019 um 06:35 Uhr (1)
Hallo Uwe,ich habe so ein ähnliches Makro.Mein Hauptteil sieht so aus:Code:Sub CATMain()Dim USel As SelectionSet USel = CATIA.ActiveDocument.Selection If USel.Count 1 Then Fehleranzeige.Show Else Farbgebung.Show End IfEnd SubDas Private Sub für z.B Gewinde so:Code:Private Sub Gewinde_Click()Set USel = CATIA.ActiveDocument.SelectionUSel.VisProperties.SetRealColor 255, 255, 0, 1USel.VisProperties.SetRealOpacity 255, 1Unload FarbgebungEnd Sub
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
