[求助]：一个关于外部参照问题的疑问

xqyll · 发表于 2004-6-14 19:22:12

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

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

×

*-*6 我听说CAD里外部参照很有用，但在一张图中如果已经参照好了固定路径的cad图形，现在想用同路径下的另外一张cad图形取代刚才图中已经参照好的图形，不知能否用VBA表达出来，谢谢了！

雪山飞狐(lzh) · 发表于 2004-6-14 19:53:17

Public Sub TestL()
Dim pnt(2) As Double
Dim a As AcadExternalReference
Set a = ThisDrawing.ModelSpace.AttachExternalReference("D:\1.dwg", "abc", pnt, 1, 1, 1, 0, False)
MsgBox "Click me to ReLoad"
ThisDrawing.Blocks("abc").Path = "d:\2.dwg"
ThisDrawing.Blocks("abc").Reload
a.Update
End Sub

xqyll · 发表于 2004-6-14 19:58:18

这能更换外部参照的位置吗？

雪山飞狐(lzh) · 发表于 2004-6-14 20:02:35

把
ThisDrawing.Blocks("abc").Path = "d:\2.dwg"
换成
ThisDrawing.Blocks("abc").Path = "d:\vpc\1.dwg"

xqyll · 发表于 2004-6-14 20:09:49

那我试试看，谢谢你了，你很厉害，不知这位仁兄是程序员吗？

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

[求助]：一个关于外部参照问题的疑问

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

相关帖子