Redifene block definition?

The VBA forum deals with IntelliCAD 2000 VBA (Visual Basic for Applications) issues.

Moderator: CMS Inc

Post Reply
Posts: 1
Joined: Thu Nov 24, 2005 12:01 am
Location: Norway

Redifene block definition?

Post by Raggi » Thu Nov 24, 2005 4:30 am

How can we redifine a block in the same manner as we do manually with the command "insert blockname=".

I tried this:
InsPt=Library.CreatePoint(0, 0, 0)
DwgName = "C:\BlockTest.dwg"
Dwg.ModelSpace.InsertBlock InsPt, DwgName

If the block with name DwgName (without the path) allready exists it's not redfined.

However, this works:
(blk=existing block reference)
RunCommand "insert " & blk.Name & "=" & blk.Name
RunCommand "0,0"
RunCommand "1"
RunCommand "1"
RunCommand "0"
Now the block is redifned, but it's not very elegant....

Any ideas?
Post Reply