---

Ich möchte mit einem Makro ermitteln, ob eine Zeichnung einen bestimmten Block enthält, und ob er verwendet wird.

Anstatt alle Ansichten zu durchlaufen, ist meine Idee, im Featuremanager zu gucken, ob der Block gelistet ist, und ob er als verwendet gelistet ist (ausgegraut).
Hintergrund: Das Makro erstellt PDFs von der Zeichnung, wenn der Block "preliminary" verwendet wird, soll an den Dateinamen auch ein "_preliminary" gehängt werden.

Ich habe noch gar keine Idee, wie ich im Featuremanager nach einem Block und dessen Eigenschaften suchen kann, kann mir jemand weiterhelfen?

Gruß,
Piet

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

---

Hallo Piet,

vielleicht kannst du dir ja aus diesem Beispiel in der SWX API Hilfe die benötigten Informationen ziehen.

Get Block Information Example (VBA)

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Das sieht schon mal vielversprechend aus, dieses Beispiel hatte ich nicht gefunden.

Vielen Dank!
Piet

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

---

Hallo,

wir haben so einen Block grundsätzlich drauf, der soll auf einem bestimmten Layer sein.
Zur Freigabe wird der Layer automatisiert ausgeblendet, für neuen Index wieder eingeblendet.

Unsere Abfrage lautet dann: ist der Layer sichtbar oder unsichtbar.
(was nicht 100% korrekt ist und auch wieder andere Verwirrungen stiften kann)

Und du musst auch ggf. über alle Blätter der Zeichnung gehen.

Gruß, Christian

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

---

Hallo,

habe jetzt folgendes gebaut:

Code:

---

Function GetBlockDef(MyBlockname As String) As Object
    Dim i
    Dim vblockdef As Variant
    vblockdef = MyDoc.SketchManager.GetSketchBlockDefinitions
    i = 0
    While i < UBound(vblockdef)
        If vblockdef(i).GetFeature.Name = MyBlockname Then
            Set GetBlockDef = vblockdef(i)
            ' hab ihn!
            Exit Function
        End If
        i = i + 1
    Wend
    ' wenn nicht bleibt es bei nothing
End Function

---

Wenns die Blockdefinition nicht gibt, kommt nothing zurück, ansonsten ein Objekt von dem man die Instances zählen kann etc
also z.b.

Code:

---

GetBlockDef("Block_Dich_suche_ich").GetInstanceCount

---

Vielleicht etwas simpel, und berücksichtigt auch nicht, ob der Block unter einem anderen Namen eingefügt bzw. umbenannt wurde.
aber vielleicht kann jemand etwas draus machen 

Gruß, Christian

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

---

Hallo,

gerade probier ich mal wieder...
und da fügt er den Block (makesketchblockfromfile) doch beim 2. mal mit anderem Namen "Block1" ein.

weiß jemand, an welcher Option das liegt?

Gruß, Christian

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

---

Dank eurer Hilfe krieg ich raus, ob der Block da ist und verwendet wird, vielen Dank!

Piet

Hier mein Code:

Dim bPreliminary As Boolean
'
Sub SuchBlockPreliminary()
Dim sPreliminaryBlockName As String
sPreliminaryBlockName = "P:\ORGA\BLÖCKE\Nicht freigegeben (Serie).SLDBLK"  'nach diesem Block wird gesucht
bPreliminary = False

Set SwSketchMgr = Model.SketchManager
vBlockDef = SwSketchMgr.GetSketchBlockDefinitions

If Not IsEmpty(vBlockDef) Then  'wenn mindestens ein Block da ist
    For i = 0 To UBound(vBlockDef)  'durch alle Blöcke
        Set swBlockDef = vBlockDef(i)  'holt die Blockeigenschaften
        vBlockInst = swBlockDef.GetInstances    ' >0, wenn der Block verwendet wird
        If sPreliminaryBlockName = swBlockDef.FileName Then  'Wenn es der gesuchte Block ist
            If Not IsEmpty(vBlockInst) Then                  'wenn der Block verwendet wird
                bPreliminary = True
            End If
        End If
    Next i
End If

End Sub

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