Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Join, Extract usw. ist Fläche oder Draht?

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:  Join, Extract usw. ist Fläche oder Draht? (1251 mal gelesen)
torstnm
Mitglied


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

Beiträge: 8
Registriert: 03.09.2007

Dell Precision M6500
12GB Ram
Win 7
Catia V5 R18-24
VB6, .NET

erstellt am: 07. Mai. 2008 08: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

Hallo zusammen,

Wie kann Ich im Makro herausfinden ob ein Join, extract oder ähnliches Flächen oder Draht Geometrie ist?
Bzw. bei Translate/Rotate könnte ja auch eine Achse drinstecken.
Ich filtere die Eingabe mit:

Code:
    Dim InputObjectType1(10) 'Surface
      InputObjectType1(0) = "HybridShapeSurfaceExplicit"
      InputObjectType1(1) = "HybridShapeAssemble"
      InputObjectType1(2) = "HybridShapeHealing"
      InputObjectType1(3) = "HybridShapeTranslate"
      InputObjectType1(4) = "HybridShapeSplit"
      InputObjectType1(5) = "HybridShapeOffset"
      InputObjectType1(6) = "HybridShapeTrim"
      InputObjectType1(7) = "HybridShapeInverse"
      InputObjectType1(8) = "HybridShapeNear"
      InputObjectType1(9) = "HybridShapeRotate"
      InputObjectType1(10) = "HybridShapeExtrude"
     
    Dim InputObjectType3(4) 'Achse
      InputObjectType3(0) = "AxisSystem"
      InputObjectType3(2) = "HybridShapeRotate"
      InputObjectType3(3) = "HybridShapeTranslate"

und möchte dann nur den zulässigen Typ erlauben

------------------
mfg
Torsten

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

noir333
Mitglied
Ingenieur


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

Beiträge: 148
Registriert: 27.01.2004

Dell Precision 450 Dual Xeon, 2MB RAM,
XP SP2, NX3
V5R17SP3

erstellt am: 07. Mai. 2008 09:49    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 torstnm 10 Unities + Antwort hilfreich

Hallo Torsten,
vielleicht hilft Dir die Funktion TypeName(Object) weiter?

Man müsste dann allerdings erst eine unparametrische Kopie erzeugen, damit die Abfrage sinnvoll ist.

 

------------------
-----------

[Diese Nachricht wurde von noir333 am 07. Mai. 2008 editiert.]

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

torstnm
Mitglied


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

Beiträge: 8
Registriert: 03.09.2007

Dell Precision M6500
12GB Ram
Win 7
Catia V5 R18-24
VB6, .NET

erstellt am: 07. Mai. 2008 10:42    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 passt.
Scheinbar auch ohne eine Kopie zu erzeugen, vielleicht wegen SelectElement2?
Jedenfalls reagiert das Makro jetzt auf Translate/Rotate
Code:
Status = sel.SelectElement2(InputObjectType3, "Select Axis,Click 'Esc' to Cancel Selection", True)
If Status <> "Cancel" Then
  Set SCAchsenObj = sel.Item(1).Value
    If TypeName(SCAchsenObj) = "HybridShapeRotate" Or TypeName(SCAchsenObj) = "HybridShapeTranslate" Then
      Set SCAchsenObj = Nothing
    End If

Jetzt werde Ich mir mal den Join vornehmen und schauen ob Ich Flächen und Drähte unterscheiden kann......

------------------
mfg Torsten
---------------------------------
Mein "Hobby"  C-CON Tools für Catia V5

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

torstnm
Mitglied


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

Beiträge: 8
Registriert: 03.09.2007

Dell Precision M6500
12GB Ram
Win 7
Catia V5 R18-24
VB6, .NET

erstellt am: 07. Mai. 2008 10:55    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

OK, bei Flächen komm Ich nicht an der Kopie vorbei mit Typename,
Join ist natürlich immer "HybridShapeAssemble", und wenn das Makro mit einem
Draht statt der geforderten Fläche gefüttert wird gibts reichlich Fehler :-D

Oder hat jemand noch eine andere Idee?

------------------
mfg Torsten
---------------------------------
Mein "Hobby"  C-CON Tools für Catia V5

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



Techniker Elektrotechnik (m/w/d)
Die besten Köpfe für die unterschiedlichsten Aufgaben zu finden sowie Menschen und Technologien zu verbinden, und zwar täglich aufs Neue - dafür schätzen unsere Kunden FERCHAU. Unterstütze uns: als ambitionierte:r Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren spannende Projekte für namhafte Kunden in allen Technologiebereichen und für alle Branchen und sorgen für sichere und nachhaltige Technologielösungen....
Anzeige ansehenElektrotechnik, Elektronik
Lusilnie
Mitglied



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

Beiträge: 1486
Registriert: 13.07.2005

erstellt am: 07. Mai. 2008 23: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 Nur für torstnm 10 Unities + Antwort hilfreich

Hallo torstnm,

da es nur um eine Idee geht, wie wäre es mit:

Code:
HybridShapeFactory.GetGeometricalFeatureType(Reference_von_Deinem_Join)
da sollte laut Hilfe eine Zahl für den Elementtype heraus kommen...

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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