乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 100|回复: 6

ThisDrawing.Blocks.Item(ExternalBlock).Bind False

[复制链接]

16

主题

47

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 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">请高手帮我解答为谢
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-2-27 13:52:00 | 显示全部楼层
ThisDrawing.Blocks.Item(ExternalBlock).Bind False
ExternalBlock必须是一个字符串,而且必须是块的名称,这个块必须是外部引用块。
回复

使用道具 举报

16

主题

47

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 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
请帮我看看这些代码有甚么问题吗?
回复

使用道具 举报

26

主题

177

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
281
发表于 2004-2-27 15:00:00 | 显示全部楼层
ExternalBlock是个实体,不是字符串
回复

使用道具 举报

16

主题

47

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 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,也不能运行两次
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-2-27 16:31:00 | 显示全部楼层
ExternalBlock1?ExternalBlock2?有没有指向有效的块引用对象。
回复

使用道具 举报

16

主题

47

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2004-2-27 16:40:00 | 显示全部楼层

But files access error!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 12:42 , Processed in 2.784296 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表