John
Guest
|
 Posted:
Wed Jan 05, 2005 12:42 am Post subject:
InsertBlock method |
|
|
When I use Insertblock method i'm getting this
Command: Duplicate definition of block ADCADD_ZZ ignored.
Duplicate definition of block _ArchTick ignored.
At command line. I dont want to show above text at command line. is any
code that not show above text when you run this code?
Sub Example_InsertBlock()
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
' Insert the block
Dim blockRefObj As AcadBlockReference
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt,
"p:\drivename\test.dwg", 1#, 1#, 1#, 0)
End Sub
Thank you for you help.
|
|
Alfred NESWADBA
Guest
|
| Posted:
Thu Jan 06, 2005 1:59 am Post subject:
Re: InsertBlock method |
|
|
In article <41daf1d1$1_1@newsprd01>, hendnoemail@aol.com says...
| Quote: | When I use Insertblock method i'm getting this
Command: Duplicate definition of block ADCADD_ZZ ignored.
Duplicate definition of block _ArchTick ignored.
At command line. I dont want to show above text at command line. is any
code that not show above text when you run this code?
Sub Example_InsertBlock()
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
' Insert the block
Dim blockRefObj As AcadBlockReference
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt,
"p:\drivename\test.dwg", 1#, 1#, 1#, 0)
End Sub
Thank you for you help.
hi, |
not beautiful, but set the variable "NOMUTT" to 1 and, after your inserted the block, back to 0, be careful that during 1 the user will not see any
message and also if your function fails at any point before setting it back to 0, the user will not see anything within the command area anymore
(until he restarts acad or sets the variable back while typing it blind), so make sure to have an "emergency exit" in which you set this variable
back to 0.
- alfred - |
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in