| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | Schnell, effizient und günstig: Mit der Kisters 3DViewStation 3D Arbeits- und Reparaturanleitungen einfach erstellen und pflegen, eine Pressemitteilung
|
|
Autor
|
Thema: Hilfe bei Parent einer Skizze (858 mal gelesen)
|
runio
Mitglied
   Beiträge: 25
Registriert: 15.06.2010 Intel Core 2 4400, 4gb Ram
Windows 7 Professional
Catia V5R19
|
erstellt am: 02. Sep. 2011 18:30  <-- editieren / zitieren -->   Unities abgeben:          
Guten Tag, ich verzweifle gerade an einem Bauteil bei dem das Parent einer Skizze nicht erkannt werden kann... Ich weiß leider nicht warum?! Ich habe das Part angehangen. Hier mal ein Beispielcode:
Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set bodies1 = part1.Bodies Set body1 = bodies1.Item("Hauptkörper") Set sketches1 = body1.Sketches Set sketch1 = sketches1.Item("Skizze.1") msgbox(sketch1.Value.Parent.Name) <--- Da passiert nichts! Wenn ich mir das das Objekt sketch1 im VB-Editor anschaue, verfügt es über kein Parent. Hat jemand eine Idee? [Diese Nachricht wurde von runio am 02. Sep. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann
Moderator
Konstrukteur
    
Beiträge: 12054
Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 02. Sep. 2011 18:35 <-- editieren / zitieren --> Unities abgeben: Nur für runio 
Servus Deine Datei kann ich nicht öffnen (bitte umbenennen oder zippen) Versuch es mal mit: msgbox(sketch1.Parent.Name) (Dann sollte "Sketches" kommen) Gruß
Bernd ------------------
Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
meisterlumpi
Mitglied
Beiträge: 118
Registriert: 15.04.2011 Intel Core2 Quad Q6600 2.40 GHz | 4 GB RAM | Win7x64
|
erstellt am: 02. Sep. 2011 18:36 <-- editieren / zitieren --> Unities abgeben: Nur für runio
|
runio
Mitglied
Beiträge: 25
Registriert: 15.06.2010 Intel Core 2 4400, 4gb Ram
Windows 7 Professional
Catia V5R19
|
erstellt am: 02. Sep. 2011 18:44 <-- editieren / zitieren --> Unities abgeben:
|
bgrittmann
Moderator
Konstrukteur
Beiträge: 12054
Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 02. Sep. 2011 18:52 <-- editieren / zitieren --> Unities abgeben: Nur für runio
Servus IMHO  weiß die Skizze nicht von ihrem Glück dass sie in einem Feature verwendet wurde (obwohl es im Baum so dargestellt wird). Du musst vom Shape (zb Block.1) aus suchen, ob die entsprechende Skizze verwendet wird. Gruß
Bernd ------------------
Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
meisterlumpi
Mitglied
Beiträge: 118
Registriert: 15.04.2011 Intel Core2 Quad Q6600 2.40 GHz | 4 GB RAM | Win7x64
|
erstellt am: 02. Sep. 2011 19:14 <-- editieren / zitieren --> Unities abgeben: Nur für runio
Du könntest deinen code mit sowas ergänzen. gruß Code:
' ...
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim pad1 As Pad
Dim i As Integer
For i = 1 To shapes1.Count
If TypeName(shapes1.Item(i)) = "Pad" Then
Set pad1 = shapes1.Item(i)
If pad1.Sketch Is sketch1 Then Exit For
End If
Next i If pad1 Is Nothing Then
MsgBox "Block nicht gefunden"
Else
MsgBox "Block gefunden: " & pad1.Name
End If
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runio
Mitglied
Beiträge: 25
Registriert: 15.06.2010 Intel Core 2 4400, 4gb Ram
Windows 7 Professional
Catia V5R19
|
erstellt am: 02. Sep. 2011 19:16 <-- editieren / zitieren --> Unities abgeben:
"weiß die Skizze nicht von ihrem Glück dass sie in einem Feature verwendet wurde" Davon höre ich aber auch zum ersten Mal  wie so etwas wohl zu Stande kommt? Jetzt kann ich beruhigt weiterarbeiten... ich dachte ich hätte etwas übersehen. Danke für die Hilfe.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
