[求助]：ThisDrawing.ModelSpace

xqyll · 发表于 2004-7-2 10:18:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Dim a As AcadExternalReference
Set a = ThisDrawing.ModelSpace.AttachExternalReference("D:\ht\w.dwg", "abc", pnt, 1, 1, 1, 0, False)
MsgBox "Click me to ReLoad"
ThisDrawing.Blocks("abc").Path = "d:\sgt\2w.dwg"
ThisDrawing.Blocks("abc").Reload
这段语句运行到Set a = ThisDrawing.ModelSpace.AttachExternalReference("D:\ht\w.dwg", "abc", pnt, 1, 1, 1, 0, False)，老是提示说要求对象，不知怎么回事！请各位大哥指点一下*-*4

雪山飞狐(lzh) · 发表于 2004-7-2 11:11:48

你是在VB还是VBA里编写的？

efan2000 · 发表于 2004-7-2 13:56:17

那句是没有错的，但ThisDrawing.Blocks("abc").Path = "d:\sgt\2w.dwg"却错了，Path只能对外部引用，而不能对块。

账号		自动登录	找回密码
密码			立即注册

[求助]：ThisDrawing.ModelSpace

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子