Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Bemaßung mit Maus auswählen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Bemaßung mit Maus auswählen (590 mal gelesen)
KlausXP
Mitglied
Dipl.-Ing.


Sehen Sie sich das Profil von KlausXP an!   Senden Sie eine Private Message an KlausXP  Schreiben Sie einen Gästebucheintrag für KlausXP

Beiträge: 70
Registriert: 17.09.2004

CATIA V5 R19 SP9 HF78
Ansys Mechanical WB14.5 /Cadnexus 3.15
WIN XP64 SP2

erstellt am: 01. Aug. 2013 16:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Forum,

per Maus möchte ich eine Bemaßung auswählen. Das Makro übergeht "selectelement2" und ich kann nichts auswählen.
Was mache ich falsch? Muß ich mit Indicate2d arbeiten?

Vielen Dank im voraus
Klaus


Hier ist mein Code:
Dim ActiveDoc As DrawingDocument
Dim drawingSheets1 As DrawingSheets
Dim drawingSheet1 As DrawingSheet

On Error Resume Next
Set ActiveDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
    MsgBox "Fehler"
End If

Dim Filter(1)
Filter(1) = "AnyObject"

Dim UserSel 'As Selection
UserSel.Clear

Dim Ergebnis
Ergebnis = UserSel.SelectElement2(Filter, "Objekt auswählen", True)
If Ergebnis = "Normal" Then
    MsgBox (UserSel.Item(1).Value.Name)
Else
    MsgBox "Abbruch"
End If

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 01. Aug. 2013 18:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KlausXP 10 Unities + Antwort hilfreich

Servus
Bei dir hatte es sich gerächt, das du die Fehlerbehandlung ausgeschaltet hattest, deswegen hast dich gemerkt das die Selektion nicht der Variabel/Objekt UserSel zugewiesen war:
Code:
Sub CATMain()

Dim ActiveDoc As DrawingDocument
Dim drawingSheets1 As DrawingSheets
Dim drawingSheet1 As DrawingSheet

On Error Resume Next
Set ActiveDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
    MsgBox "Fehler"
    Exit Sub
End If

On Error GoTo 0 'Fehlerbehandlung wieder einschalten

Dim Filter(0)
Filter(0) = "AnyObject"

Dim UserSel 'As Selection
Set UserSel = ActiveDoc.Selection
UserSel.Clear

Dim Ergebnis
Ergebnis = UserSel.SelectElement2(Filter, "Objekt auswählen", True)
If Ergebnis = "Normal" Then
    MsgBox (UserSel.Item2(1).Value.Name)
Else
    MsgBox "Abbruch"
End If
End Sub


Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlausXP
Mitglied
Dipl.-Ing.


Sehen Sie sich das Profil von KlausXP an!   Senden Sie eine Private Message an KlausXP  Schreiben Sie einen Gästebucheintrag für KlausXP

Beiträge: 70
Registriert: 17.09.2004

CATIA V5 R19 SP9 HF78
Ansys Mechanical WB14.5 /Cadnexus 3.15
WIN XP64 SP2

erstellt am: 02. Aug. 2013 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernd,

vielen Dank für die Hilfe!

Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz