|
DXFReader Control - AddBlock Method
Kadmos DXFReader ActiveX Control
DXFReader Control
AddBlock Method 
|
|
Description
|
Adds a new block to the drawing.
|
|
|
Syntax
|
[form.]DXFReader.AddBlock (BlockName As String)
|
|
|
Remarks
|
If the block indicated by the BlockName parameter exists the Error event is fired with ErrorCode = 701.
The following code will add to the drawing a new block containg a line with insertion point at (0,0):
Dim EntityNum as Integer
With DXFReader
.AddBlock "TESTLINE"
.Blocks.Item("TESTLINE").X0 = 0
.Blocks.Item("TESTLINE").Y0 = 0
.AddBlockEntity "TESTLINE"
EntityNum = .Blocks("TESTLINE").Entities.Count
.Blocks.Item("TESTLINE").Entities.Item(EntityNum).EntityType = "LINE"
.Blocks.Item("TESTLINE").Entities.Item(EntityNum).X0 = 0
.Blocks.Item("TESTLINE").Entities.Item(EntityNum).Y0 = 0
.Blocks.Item("TESTLINE").Entities.Item(EntityNum).X1 = 200
.Blocks.Item("TESTLINE").Entities.Item(EntityNum).Y1 = 200
End With
See the Entities and the Blocks properties and the Autodesk DXF Reference for more information.
The parameter for the AddBlock method is described below:
| BlockName | The name of the block to add |
|
Copyright © 2008/2011 Kadmos.com - All rights reserved. Privacy Policy
|
