；设置fso=New FileSystemObject ；如果Len（Dir（“E:\Temp\*.pdf”）<&燃气轮机；然后为0  ' 检查E:Temp中是否有任何PDF   ；fso。删除文件；E： \温度\*。pdf“；，真实 ' 如果有，请将其删除 ；如果结束 
 ；对于本图纸中的每个对象。模型空间   ；如果对象的类型是AcadBlockReference，则     ；设置objBlock=objEnt     ；设置colHyps=objBlock。超链接     ；出错时继续下一步'；如果我们遇到任何不'；T有超链接     ；fso。CopyFile colHyps。项（0）。URL，"；E： \ Temp \“quot；，（我将如何放置此？ThisDrawing.Path“Cut\u Sheets”，True）' 将E:\Temp\替换为项目目录                               ' TRUE选项将自动覆盖具有相同名称的任何现有文件   ；如果结束 ；下一个目标 
 ；设置fso=Nothing 嗯哼 ； Matt这不起作用，我有打字问题吗
标记---------------------------------------------------------------------------------------
&039；模块 ；：模块get_hyperlink_cut_sheets
&039；日期时间：2009年1月5日13:21；作者 ；：标记；目的 ；：该程序将对当前图形模型空格块进行排序      ；：并找到PDF剪切表的任何相关超链接，然后移动该剪切      ；：将图纸复制到路径v:\Current\u Project\Cut Sheets\ Directory
&039---------------------------------------------------------------------------------------
选项显式 ；Dim objBlock As AcadBlockReference作为对象块参考 ；模糊对象作为身份 ；暗colHyps作为AcadHyperlinks ；将fso设置为文件系统对象 
 
 ；设置fso=New FileSystemObject 
 ；If Len（Dir（ThisDrawing.Path.\Cut Sheets\*.pdf））<&燃气轮机；然后为0 ' 检查当前项目剪切表中是否有任何PDF   ；fso。删除此绘图文件。路径（&P）&引用；\剪切纸张\*。pdf“；，正确   ' 如果有，请将其删除 ；如果结束 
 ；对于本图纸中的每个对象。模型空间   ；如果对象的类型是AcadBlockReference，则     ；设置objBlock=objEnt     ；设置colHyps=objBlock。超链接     ；出错时继续下一步     ' 如果我们遇到任何不'；T有超链接     ；fso。CopyFile colHyps。项（0）。URL，ThisDrawing。路径（&P）&引用；\剪切纸张\*。pdf“；，正确     ' TRUE选项将自动覆盖具有相同名称的任何现有文件   ；如果结束 ；下一个目标 
 ；设置fso=Nothing 什么'；你的画的路径是什么 ；他们在哪里？ Matt当前工作图纸可以来自多个路径，即V:\Control Projects-09\09-431-Casino\current\u图纸，或V:\Control Projects-2009\09-4391-Casion\As\u Build\current\ u图纸或；五： \控制项目-089\08-405-Car-Park\current\u图纸等。这一切都取决于我目前从事的项目；我想能够运行这个VBA应用程序从任何现行的工作图纸，它会知道从它的目录路径 ；当前工作图形所在的目录也包含一个名为“剪切图纸”的目录。这就是我想要的块超链接。pdf剪切工作表
标记 Matt我通过ACAD 2009块编辑器中的Properties dialoag附加了一个超链接
页:
1
[2]