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

ThisDrawing.Blocks.Item(ExternalBlock).Bind False

ThisDrawing.Blocks.Item(ExternalBlock).Bind False


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


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

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<BR>Dim ExternalBlock As AcadExternalReference<BR>Dim TempBlock As AcadBlock<BR>Dim MsgStr As String<BR>For I = 1 To 10


Dim J As Integer<BR>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


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3>请帮我看看这些代码有甚么问题吗<FONT face="Times New Roman">?</FONT></FONT><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

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



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

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

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

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

有


But files access error!
页: [1]
查看完整版本: ThisDrawing.Blocks.Item(ExternalBlock).Bind False