Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Manuelle Selektion und einfärben

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:  Manuelle Selektion und einfärben (1892 mal gelesen)
DMaier
Mitglied
Key-User CAD/PLM/ERP


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

Beiträge: 182
Registriert: 09.04.2008

Catia V5 R22SP5
Anbindung an SAP ERP 6.0 und PartSolutions 8.1.08
WinXP 64

erstellt am: 28. Mrz. 2008 09:15    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

 
Zitat:
Sub CATMain()

CATIA.Caption=theCATTitle
On Error Resume Next


Set productDocument1 = CATIA.ActiveDocument

CATIA.Caption = "Gewinde+Bohrungen"


Set selection1 = productDocument1.Selection

selection1.Search "'Part Design'.Bohrung.Gewinde=TRUE"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 102,153,255,0
        selection1.Clear 

Set selection2 = productDocument1.Selection

selection2.Search "'Part Design'.Gewinde"
Set visPropertySet2 = selection2.VisProperties
visPropertySet2.SetRealColor 102,153,255,0
  selection2.Clear

Set selection3 = productDocument1.Selection

selection3.Search "'Part Design'.Bohrung.Gewinde=FALSE"
Set visPropertySet3 = selection2.VisProperties
visPropertySet3.SetRealColor 102,204,102,0
  selection3.Clear

CATIA.Caption=theCATTitle

Func MsgBox ("Bohrungen und Gewinde eingefärbt.",64)

End Sub


Dieses Macro möchte ich so erweitern, dass

a) am Anfang abgefragt wird, ob die oben programmierte automatische Einfärbung oder die
b) manuelle Selektion der einzufärbenden Gewinde und Bohrungen
ausgeführt wird.

für den Punkt b) habe ich keinerlei Vorstellungen, wie man dies realisieren kann.
Im Kopf habe ich eine Dialogbox, die die manuelle Selektion anordnet und nach der manuellen Selektion fragt, ob die Elemente mit der Farbe für Gewinde oder Bohrungen gefärbt werden sollen.

Ich hoffe auf Unterstützung 


------------------
~~~ There are 10 types of people in the world: Those who understand binary, and those who don't... ~~~

[Diese Nachricht wurde von DMaier am 28. Mrz. 2008 editiert.]

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

chung
Mitglied



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

Beiträge: 23
Registriert: 25.04.2007

MS Windows XP SP2; x86 3,72 GHz; 4GB RAM; NVIDIA Quadro FX 1400; CATIA V5 R17 SP7

erstellt am: 28. Mrz. 2008 12:29    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 DMaier 10 Unities + Antwort hilfreich

Hallo DMaier,

zu a) kann ich dir evtl. helfen.

Versuch mal:

Status = MsgBox("Automatik verwenden?" , 4)
If Status = 6 Then
'Automatik-Code
Else
'Manuell-Code
End If

Zu b) habe ich nur einen Verdacht. Schau mal bei der Hilfe unter Selection.SelectElement3.
Im 2D-Bereich haben wir das erfolgreich eingesetzt um Elemente auszuwählen. In 3D musst du noch den richtigen inputObjectType rausfinden.

Gruß

Jürgen

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

DMaier
Mitglied
Key-User CAD/PLM/ERP


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

Beiträge: 182
Registriert: 09.04.2008

erstellt am: 28. Mrz. 2008 15:38    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

Danke, das klappt soweit.
Nun hänge ich am Code für die Userselektion fest und erreiche da nichts.
Gibt es irgendwo im Net eine Anleitung für UserSelection?

------------------
~~~ There are 10 types of people in the world: Those who understand binary, and those who don't... ~~~

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

KlausJ
Mitglied



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

Beiträge: 1336
Registriert: 17.03.2003

CATIA V4.2.4 Ref 2
CATIA V5R16SP7
AIX 5.3
Windows 2000 und XP

erstellt am: 28. Mrz. 2008 16:31    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 DMaier 10 Unities + Antwort hilfreich

Hallo,
ich kann Dir zwar nicht direkt helfen aber versuchs mal mit der Suche nach Selection !

------------------
Nichts ändern ist langweilig !!

Klaus

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

DMaier
Mitglied
Key-User CAD/PLM/ERP


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

Beiträge: 182
Registriert: 09.04.2008

erstellt am: 28. Mrz. 2008 17:07    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

hab ich getan, leider finde ich sehr wenig nutzbare Doku für R16

------------------
~~~ There are 10 types of people in the world: Those who understand binary, and those who don't... ~~~

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

ogard1
Mitglied
Verfahrenstechniker


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

Beiträge: 442
Registriert: 12.09.2004

R19 SP2

erstellt am: 01. Apr. 2008 10:11    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 DMaier 10 Unities + Antwort hilfreich

DMaier
Mitglied
Key-User CAD/PLM/ERP


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

Beiträge: 182
Registriert: 09.04.2008

erstellt am: 01. Apr. 2008 10:21    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

Dankeschön 
Hab das Macro inzwischen schon fast fertig.

------------------
~~~ There are 10 types of people in the world: Those who understand binary, and those who don't... ~~~

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



Werkstudent*in Konstruktion mit Erfahrung in SolidWorks und Schnittstellen zu ERP/PDM-Systemen

TWK im Überblick:

Im Wachstumsmarkt der Mess- und Automatisierungstechnik entwickeln und produzieren wir anwendungsspezifische Sensoren für den Anlagen- und Maschinenbau. Unser wachsendes Sensorik-Programm dient als Basis für technologische Innovationsprodukte unserer Kunden. Mehr als 60 Jahre Erfahrung in der Entwicklung, Fertigung und dem Vertrieb von Sensoren sind unser Motor für neue technologische Ansätze....

Anzeige ansehenMaschinenbau
RealGeizt
Mitglied
Ing.

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

Beiträge: 3
Registriert: 28.02.2013

Catia V5 R19 SP9
Windows 7 Professional x64

erstellt am: 10. Sep. 2013 16:12    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 DMaier 10 Unities + Antwort hilfreich

Hi!

Bin gerade auf deinen Beitrag gestoßen.
Kannst du das Makro zur Verfügung stellen?

Besten Dank!

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