ThisDrawing.Blocks.Item(ExternalBlock).Bind False

torch

ThisDrawing.Blocks.Item(ExternalBlock).Bind False


< class=MsoNormal style="MARGIN: 0cm 0cm 0pt">为甚么会出现"Invalid procedure call or argument"的错误提示


< class=MsoNormal style="MARGIN: 0cm 0cm 0pt">请高手帮我解答为谢<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

efan2000

ThisDrawing.Blocks.Item(ExternalBlock).Bind False


ExternalBlock必须是一个字符串，而且必须是块的名称，这个块必须是外部引用块。

torch

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

ExternalBlock是个实体，不是字符串

torch

ThisDrawing.Blocks.Item(ExternalBlock1.name).Bind False


ThisDrawing.Blocks.Item(ExternalBlock2.name).Bind False



< class=MsoNormal style="MARGIN: 0cm 0cm 0pt">为甚么不能两次采用Bind,也不能运行两次<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

efan2000

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

torch

有


But files access error!