ThisDrawing.Blocks.Item(ExternalBlock).Bind False

torch · 发表于 2004-2-27 13:38:00

ThisDrawing.Blocks.Item(ExternalBlock).Bind False
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt">为甚么会出现"Invalid procedure call or argument"的错误提示
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt">请高手帮我解答为谢

efan2000 · 发表于 2004-2-27 13:52:00

ThisDrawing.Blocks.Item(ExternalBlock).Bind False
ExternalBlock必须是一个字符串，而且必须是块的名称，这个块必须是外部引用块。

torch · 发表于 2004-2-27 14:17:00

Dim InsertPoint(0 To 2) As Double
Dim ExternalBlock As AcadExternalReference
Dim TempBlock As AcadBlock
Dim MsgStr As String
For I = 1 To 10
Dim J As Integer
J = 10 * I
InsertPoint(0) = 1 + J
InsertPoint(1) = 1 + J
InsertPoint(2) = 0
FileName = "E:\lgs\4052.dwg"
Set ExternalBlock = ThisDrawing.ModelSpace.AttachExternalReference(FileName, "ExternalReference", InsertPoint, 1, 1, 1, 0, False)
ThisDrawing.Blocks.Item(ExternalBlock).Bind False
Next
请帮我看看这些代码有甚么问题吗?

subtlation · 发表于 2004-2-27 15:00:00

ExternalBlock是个实体，不是字符串

torch · 发表于 2004-2-27 15:37:00

ThisDrawing.Blocks.Item(ExternalBlock1.name).Bind False
ThisDrawing.Blocks.Item(ExternalBlock2.name).Bind False&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt">为甚么不能两次采用Bind,也不能运行两次

efan2000 · 发表于 2004-2-27 16:31:00

ExternalBlock1？ExternalBlock2？有没有指向有效的块引用对象。

torch · 发表于 2004-2-27 16:40:00

有
But files access error!

ThisDrawing.Blocks.Item(ExternalBlock).Bind False

发表回复

精选推荐