---

Guten Morgen VBA Forum
Möchte eine Skizze mit einem bestimmten Namen in idw erzeugen. Jedoch funzt dat nicht mit
oSketch.Name = "My New Sketch"
wie es bei einem sketch im part funktionniert. Wie muß ich das in der idw anstellen??

Gruß
Seher

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

---

Hi,

das geht so leider nicht, die Funktion steht zwar in der Doku, ist aber intern nicht implementiert. Du kannst nur der SketchedSymbolDefinition, die deinen Sketch enthält einen Namen verpassen. Geht glaube ich automatisch beim anlegen, dass du einen Namen mit übergeben musst.

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

---

Thanx...

...schade

Gruß
Seher

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

---

Hallo Forum,

da die Beiträge schon etwas älter sind hätte ich noch eine Frage:

Kann man auch die Skizzen "Skizze1", "Skizze2" usw. eindeutig benennen und somit gezielt ansprechen?

Z.B. wie man auch die Bauteile im Assembly-Browser umbenennen kann?

Habe mal Doppelkick und so probiert, doch leider ohne Erfolg!:-(

Meine Programmierung von unten läuft zwar, hat jedoch den kleinen aber feinen Nachteil, dass dann alle Skizzen in allen Zeichnungen in der gleichen Reihenfolge sein müssten.

Public Sub Skizzen()

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
     
    Debug.Print oSheet.Name
       
    Dim oDrViews As DrawingViews
    Set oDrViews = oSheet.DrawingViews
   
    Dim oAnsicht1 As DrawingView
    Set oAnsicht1 = oDrViews.Item(1)
   
    Dim oAnsicht2 As DrawingView
    Set oAnsicht2 = oDrViews.Item(2)
   
   
    Debug.Print oAnsicht1.Name
    Debug.Print oAnsicht2.Name
   
    Dim oSketches As DrawingSketches
    Set oSketches = oAnsicht2.Sketches
   
    Debug.Print oSketches.Count
   
    Dim oSketchMax As DrawingSketch
    Set oSketchMax = oSketches.Item(1)
   
    Debug.Print oSketchMax.Name
   
End Sub

Vielen Dank im Voraus für eine kurze Rückantwort.

Gruß Arne

------------------
AIS 9.0 SP2, OSDD 11.65, Win2K SP4.x, HP XW4000, 2.4GHz, 1GB RAM, Q4 980XGL mit NV67.22 Treiber

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