超链接文件操作

Matt__W · 发表于 2009-5-4 09:29:31

Matt
这不起作用
我有打字错误吗？----------------------------------------------------------
选项显式
Public SubGartner_Get_Hyperlink_Main（）
Dim obEnt As AcadEntity
Dim colHyps As AcadHyperlink
Dim fso As FileSystemObject
设置fso=New FileSystemObject
如果Len（Dir（ThisDrawing.Path&"\Cut Sheets\*. pdf")) 0然后
'检查CURRENT_Project\Cut Sheets\
fso.DeleteFileThisDrawing.Path&"\Cut Sheets\*. pdf"， True
'如果有，删除它们
结束如果
对于ThisDrawing.ModelSpace
中的每个对象，如果TypeOf ObjEnt是AcadBlockResources，则
设置ObjEnt=ObjEnt
设置colHyps=objBlock.Hyperlinks
在错误恢复下一步
'如果我们遇到任何没有超链接的块
fso.CopyFilecolHyps.Item（0）。URL，ThisDrawing.Path&"\Cut Sheets\*. pdf"，True
'TRUE选项将自动覆盖任何具有相同名称的现有文件
结束如果
下一步ObjEnt
设置fso=无
结束子

krampaul82 · 发表于 2009-5-4 14:17:42

你的绘画的路径是什么？它们位于何处？

Matt__W · 发表于 2009-5-4 14:26:31

Matt
当前活动工作绘图可能来自多个路径，即 V：\Control Projects-09\09-431-Casino\current_drawing 或 V：\Control Projects-09\09-431-Casino\As_Built\current_drawing 或 V：\Control Projects-089\08-405-Car-Park\current_drawing 等，这完全取决于我当前正在处理的项目。我希望能够从任何活动的当前工作图形运行此VBA应用程序，并且它将从中知道目录路径。如果当前工作图形所在的目录还包含一个名为“剪切图纸”的目录。那就是我想要块超链接.pdf切割表去。
马克

krampaul82 · 发表于 2009-5-4 15:37:41

Matt
我从ACAD 2009块编辑器
标记中通过属性对话框附加一个超链接

超链接文件操作

发表回复

精选推荐