---

Hi

Habe folgendes Problem:
Ich habe einen Block in meine Zeichnug eingefügt, so weit ist auch noch  alles gut, nun würde ich gerne den Namen des Block per AutoCAD API ändern. Ist das irgendwie möglich????

Ich habe versucht den Name des Block zu ändern mit:

' einfügen des Blocks
Set MyBlockRef = oDoc.ModelSpace.InsertBlock(insertionPnt,BlockName, 1#, 1#, 1#, 0)

' umbenennen des Block
MyBlockRef.Name = "TEST"

könnt ihr mir vielleicht helfen und vorallem sagen was ich hier falsch mache.

Danke im Vorraus

Gruß Chef0000

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

---

Hallo,

das habe ich dafür gefunden...

Dim BlkDef as AcadBlock
Set BlkDef = ThisDrawing.Blocks(Blockname)
BlkDef.Name = NeuerName
If UCase(BlkDef.Name) <> UCase(NeuerName) Then
  MsgBox Err.Description
  Cancel = True
End if

Versuchs mal so... 

------------------

cu
Heiko

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

---

Hi,

du vermischst da zwei Sachen.

Die Block hat in der BlockCollection einen Namen.

Blocks(0) => "*Modelspace"
...
Blocks(x) => "MeinBlock"
Blocks(Y) => "AndererBlock"

Wenn du einen Block einfügst gibts du einen Namen an um auf
einen Block in der BlockCollection zu verweisen. Würdest du
den Namen beim eingefügten Block ändern würdest du auf einen
völlig anderen Block verweisen. Das ist dann sinnvoll wenn
an die gleiche Position ein anderer Block soll.
Willst du ihn umbennenen musst du das in der BlockCollection tun.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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