Tim Robben
Guest
|
 Posted:
Sat Jan 29, 2005 1:37 am Post subject:
VBA Insert a block |
|
|
I have to make a VBA routine, for inserting a block:
I made this, but it doesn't work.
Does anybody knows how I could fix it?
Sub InsertBlock()
' Insert the block
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(, , "vkb.dwg", 1,
1, 1, 0)
End Sub
|
|
Jeff
Guest
|
| Posted:
Mon Jan 31, 2005 1:42 am Post subject:
Re: VBA Insert a block |
|
|
Sub blocktest()
Dim oBlkRef As AcadBlockReference
Dim dPt(2) As Double
Dim sName As String
sName = "c:\testblock.dwg"
Set oBlkRef = ThisDrawing.ModelSpace.InsertBlock(dPt, sName, 1#, 1#, 1#, 0#)
End Sub
--
Jeff
check out www.cadvault.com
"Tim Robben" <timrobben@wanadoo.nl> wrote in message
news:41faa266$0$35317$b83b6cc0@news.wanadoo.nl...
| Quote: | I have to make a VBA routine, for inserting a block:
I made this, but it doesn't work.
Does anybody knows how I could fix it?
Sub InsertBlock()
' Insert the block
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(, , "vkb.dwg",
1, 1, 1, 0)
End Sub
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in