Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Element einfäreben ohne selection

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:  Element einfäreben ohne selection (871 mal gelesen)
nikibert
Mitglied
entwickler


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

Beiträge: 40
Registriert: 19.05.2008

Windows 7 Pro 64bit
DeLL T5500
NVIDIA Quadro 2000
CATIAV5 V19 SP9

erstellt am: 01. Jul. 2009 15:47    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 würde gerne einfache eine besimmte fläche die ich über ein makro offsettiere vorher einfärben...habe auch schon viel gelesen finde allerdings immer nur beispiele mit einer selection und wenn ich des auf meinen fall anwende funktioniert es leider nicht:

Hier mein bisheriger code:

For i = 1 To zahl
       
       
          Dim hybridShapeExtract1
          'Set hybridShapeExtract1 = hybridBody1.HybridShapes.Item(i)
            Set hybridShapeExtract1 = GeoSet.HybridShapes.Item(i)
           
           
   
           
         
           
            Dim UserSelection As Selection

          ' UserSelection = CATIA.activeDocument.Selection
            UserSelection = CATIA.activeDocument.hybridShapeExtract1

           
            Dim visPropertySet1 As VisPropertySet
   
Set visPropertySet1 = userSelection.VisProperties.SetRealColor 255, 128, 0, 0

       

           
            Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeExtract1)
           
           

           
            Dim hybridShapeFactory1 As HybridShapeFactory
            Set hybridShapeFactory1 = part1.HybridShapeFactory
           
            Dim hybridShapeOffset1 As HybridShapeOffset
            Set hybridShapeOffset1 = hybridShapeFactory1.AddNewOffset(reference1, OffsetWert, Richtung, 0.01)
           
            hybridBody2.AppendHybridShape hybridShapeOffset1
            hybridShapeOffset1.name = "offset" & i
            part1.InWorkObject = hybridShapeOffset1

           
            On Error Resume Next
           
            part1.Update
       
            If Err.Number <> 0 Then
           
           
           
               
                Dim selection1 As Selection
                Set selection1 = partDocument1.Selection

                selection1.Clear
               
                selection1.Add hybridShapeOffset1
               
                selection1.Delete
           
            End If
           
            On Error GoTo 0
        Next


wäre klasse wenn mir jemand helfen könnte...


Gruss Niko

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

zoltan.bekesi
Mitglied



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

Beiträge: 321
Registriert: 22.10.2006

Job:
CATIA V5R19 / XP 32bit
MS Office 2003
Microstation V8 2004 Edition
DELL Precision M6300

erstellt am: 01. Jul. 2009 20:09    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 nikibert 10 Unities + Antwort hilfreich

Hallo Niko,

einfärben geht leider nur durch Selection.
Anbei aber die Lösung (Code nicht getestet):

Code:

möglichst noch außerhalb der Schleife. Reicht einmal irgendwo ganz am Anfang:
dim userSelection as Selection
set userSelection = CATIA.Activedocument.Selection
Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = userSelection.VisProperties

'Codeteil, wie du an deine Fläche zum Offsettieren kommst
Set oSurfaceToOffset = dein Code

'Einfärben
userSelection.Clear
userSelection.Add oSurfaceToOffset
visPropertySet1.SetRealColor 255, 128, 0, 0
userSelection.Clear

'hier kannst du mit deinen Offset und sonstiges weitermachen



Gruß,
Zoltan

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