Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Punktenamen und Layerbelegung auslesen

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:  Punktenamen und Layerbelegung auslesen (1203 mal gelesen)
Tonga
Mitglied
CADM Prozesskommunikation, CAD Konstrukteur, Admin


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

Beiträge: 214
Registriert: 23.01.2004

erstellt am: 07. Mai. 2009 09:18    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,

ich will in CATIA Messpunkte auslesen. Aber nur den Punktenamen und die Layerbelegung des Punktes. Die Namen der Punkte bekomme ich schon ausgelesen, aber die Layerbelegung nicht.
Kann mir bitte einer sagen wie das geht.

Danke euch im vorraus!

Gruß Tonga

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: 07. Mai. 2009 09:23    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 Tonga 10 Unities + Antwort hilfreich

Servus
Gemäß Doku könnte es mit den "VisPropertySet" gehen. Dabei gibt es die Methode "GetLayer" (AFAIKAs far as i know (So viel ich weiss) Punkt in eine Selektion packen und "GetLayer" der Selektion auslesen)

Gruß
Bernd

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

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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 07. Mai. 2009 10:04    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 Tonga 10 Unities + Antwort hilfreich

Hallo,

ich habe ergänzend zu den Antwort von Bernd einen kleinen Codeschnipsel für dich.

Code:

Sub CATMain()

    Dim oDoc As PartDocument
    Dim oPart As Part
    Dim oSel As Selection
    Dim oHybBodies As hybridBodies
    Dim oHybShapes As HybridShapes
    Dim oHybBody As HybridBody
    Dim oPoint As HybridShapePointCoord
    Dim myVisProp
    Dim myName As New Collection
    Dim layer
    layer = CLng(0)
    Dim layertype As CatVisLayerType
    Dim myLayer As New Collection
    Dim myLayerString As String
   
    myLayerString = "Kein Layer zugewiesen"
   
   
    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Clear
    Set oPart = oDoc.Part
    Set oHybBodies = oPart.hybridBodies
    Set oHybBody = oHybBodies.Item(1)
    Set oHybShapes = oHybBody.HybridShapes
    For i = 1 To oHybShapes.Count
        Set oPoint = oHybShapes.Item(i)
        myName.Add oPoint.Name
        oSel.Add oPoint
        Set myVisProp = oSel.VisProperties
        myVisProp.GetLayer layertype, layer
        If layertype = catVisLayerNone Then
            myLayer.Add myLayerString
        Else
            myLayer.Add layer
        End If
        oSel.Clear
    Next
       
End Sub


Die Punktenamen werden in der Collection myName gespeichert und die Layer simultan in der Collection myLayer.
Die beiden Collection´s kannst du im Anschluss auswerten und weiter verarbeiten

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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