---

hallo ihr Freaks
ich möchte in einem VBA-Macro eimen block "A" (im aktuellen layout) welcher ein Attribut "B" besitz, einen neuen wert "C" zuweisen (den block gibts jeweils nur einmal in iedem layout).
ich hab zwar schon etwas rumprobiert, jedoch erzeuge ich nur jedesmal ein attribut (hab leider kein VBA-handbuch).

wer kann mir helfen und evtl. den quelltext liefern.
ich möchte "macro" nutzen weil ich es bei einem bestimmten acad befehl, automatisch ausführen lassen kann, und danach die acad routine weiter ausgeführt wird.

Option Explicit
Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
frmPlotdaten.Show (kann ich hier auch eine *.LSP ausführen?)
End Sub

ich danke euch schon mal im voraus für eure mühen und gedanken

mario

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

---

Hi Mario,

Falls Dein Block eine Blockreferenz (ein eingefügter Block) ist, dann hilft Dir vielleicht das hier weiter:
___________________________________________________________________

Public Sub setAttribut(blk As AcadBlockReference, wert As String)

Dim attribs As Variant

attribs = blk.GetAttributes

If UBound(attribs) < 0 Then
MsgBox ("Object hat keine Attribute!")
exit sub
End If

For i = UBound(attribs) To LBound(attribs)
If attribs(i).TagString = "B" Then
attribs(i).TextString = wert
blk.update
Exit Sub
End If
Next

End Sub

___________________________________________________________________
' und dann der Aufruf der Sub:

Call setAttribut(deineBlockReferenz, "C")

___________________________________________________________________

Versuch' mal den COM-Browser im VBA-Editor aufzurufen mit der F2-Taste. (so geht das wenigstens im Visual Studio)

Jan

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