---

Hallo!

Ich möchte von Excel verschiedene Dateien öffnen und dort den Block "Index" (Blockname in allen Zeichnungen identisch) oder dessen Attribute verändern.
In der Excelliste liegen die Dateien als Pfad vor und es gibt eine Spalte für die einzutragenden/ abzuändernden Werte.
Z.B.

Pfad            Index
../plan01.dwg    A
../plan02.dwg    B
../plan03.dwg    C
../plan04.dwg    D

Der aktuelle Stand:

Sub Schaltfläche2_BeiKlick()
Dim ac As AcadApplication
Dim dateiname As Variant
 

 
Set ac = New AcadApplication
ac.Visible = 1

Cells(1, 1).value = dateiname

ac.Documents.Open dateiname 'z.B. Pfad "D:/test/plan1.dwg"

   
    ' Ändern des Blockes

   
    ' Speichern und schließen
 
 
 
End Sub

1. Problem:
Wenn ich den Pfad direkt eingebe, kann er die Datei öffnen. Über die Variable "Dateiname" funktioniert es nicht.

2. Problem:
Wie greife ich auf einen Block bzw. auf dort enthaltene Attribute zu. Ist es vielleich sinnvoller, lieber einen Text hineinzuschreiben?.

Könnt Ihr mir weiterhelfen?

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

---

Hi,

zu 1.:
Fast, aber eben nur fast, einmal umdrehen das Ganze;-)
dateiname = Cells(1, 1).value

zu 2.:
Nicht probiert, aber sinngemäss vielleicht in die Richtung:

Code:

---

dim b as acadblock
for each b in thisdrawing.blocks
    if b.name="Index" then
        'mach was
        exit for
    end if
next

---

Gruss Nancy 

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

---

Hallo Nancy!

Danke zuerst für Deine Antwort. Das mit dem Pfad scheint allerdings etwas komplizierter zu sein, da es leider auch mit dem "Umdrehen" nicht funktioniert. Das Problem könnte sein, daß die Anweisung den Pfad direkt benötigt und die Variable übergeht!?

Gruß Dominik

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

---

Zu Frage 2:
noch etwa unelegant, geht aber:

Set sset = thisDrawing.SelectionSets.Add("SS1") 'Auswahlsatz
sset.select acSelectionSetAll 'hier könnten schon vorab nur die Blöcke gefiltert werden

For Each Objekt In sset
  If Objekt.EntityName = "AcDbBlockReference" Then 'Block?
  if Objekt.Name="Index" then  'Blockname
  if Objekt.HasAttributes then                'Attribute?
    attrib = Objekt.GetAttributes
    For Count = LBound(attrib) To UBound(attrib)
      Select Case attrib(Count).TagString 'Name des Attributs
      case "Testattribut1"
        attrib(Count).TextString ="Attributert1" 'Inhalt des Attributs
      case "Testattribut2"
        attrib(Count).TextString ="Attributert2" 
      end select
    next count
  end if
  end if
end if
sset.delete

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