---

Hallo,

mit dem folgenden code lad ich die Attribute eines Zeichnungkopfes in eine Form. Ich möchte das aber so anpassen dass ich nach diversen Blocknamen suchen kann nicht nur "Kopf",  ist das möglich?

Code:

---

Private Sub userform_Initialize()
Dim EntGrp(1) As Integer
Dim EntPrp(1) As Variant
EntGrp(0) = 0
EntPrp(0) = "INSERT"
EntGrp(1) = 2
EntPrp(1) = "Kopf"

  'define error function
  On Error GoTo Err_Control
 
  'create a selection set
  Set ssnew = ThisDrawing.SelectionSets.Add("TBLK")
   
  ' finde den Block
  ssnew.Select acSelectionSetAll, , , EntGrp, EntPrp
 
  'If a block is found
  If ssnew.Count >= 1 Then
    MsgBox "Es sind " & ssnew.Count & " Blöcke in der Zeichnung vorhanden.", vbInformation, "Gefundene Blöcke..."
       
    Else
      'no attribute block, inform the user
      MsgBox "Kein Blöcke in dieser Zeichnung vorhanden...", vbCritical, "Schriftfeld..."
      Unload frmEditAttr
    Exit Sub
  End If
     
  'Get the block's attributes
    Tatts = ssnew.Item(0).GetAttributes
    SF = ssnew.Item(0).Name
   
' Show message
    Select Case SF
        Case "KOPF", "ABC_A", "GHF", "MMM", "LLLP"    'möchte auch Blocknamen wie ABC_A usw im selection set haben
            MsgBox "Einer der genannten Blöcke ist vorhanden.", vbInformation, "Name des Schriftfeldes: " & SF
    End Select
   
       
'display the attributes in frmEditAttr

Select Case SF

    Case "Kopf", "MMM", "LLLP"
        MsgBox "einen der Blocks erkannt", vbInformation, "Schriftfeldname: " & SF
       
        frmEditAttr.F4.Text = (LTrim(Tatts(0).TextString))
        frmEditAttr.F6.Text = (LTrim(Tatts(1).TextString))
        frmEditAttr.F7.Text = (LTrim(Tatts(2).TextString))
        frmEditAttr.F5.Text = (LTrim(Tatts(3).TextString))
        frmEditAttr.F42.Text = (LTrim(Tatts(4).TextString))
        frmEditAttr.F46.Text = (LTrim(Tatts(5).TextString)
usw.

---

Danke für Eure Hilfe

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

---

Hi,

diese Zeile im vorderen Bereich Deines Codes ändern (Blocknamen mit Beistrich getrennt, keine Leerzeichen) und fertig!

Code:

---

EntPrp(1) = "KOPF,ABC_A,GHF,MMM,LLLP"

---

- alfred -

------------------
www.hollaus.at

---

habs probiert, funktioniert, herzlichen Dank!

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