超链接文件操作

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

Matt再次感谢您，请原谅我在这里的心理障碍，请参阅红色代码，标记Option Explicit（公共Sub Main（））&nbsp；Dim objBlock As AcadBlockReference作为对象块参考&nbsp；模糊对象作为身份&nbsp；暗colHyps作为AcadHyperlinks&nbsp；将fso设置为文件系统对象&nbsp
&nbsp；设置fso=New FileSystemObject&nbsp；如果Len（Dir（“E:\Temp\*.pdf”）&lt&燃气轮机；然后为0&nbsp&nbsp' 检查E:Temp中是否有任何PDF&nbsp&nbsp&nbsp；fso。删除文件；E： \温度\*。pdf“；，真实&nbsp' 如果有，请将其删除&nbsp；如果结束&nbsp
&nbsp；对于本图纸中的每个对象。模型空间&nbsp&nbsp&nbsp；如果对象的类型是AcadBlockReference，则&nbsp&nbsp&nbsp&nbsp&nbsp；设置objBlock=objEnt&nbsp&nbsp&nbsp&nbsp&nbsp；设置colHyps=objBlock。超链接&nbsp&nbsp&nbsp&nbsp&nbsp；出错时继续下一步&#039；如果我们遇到任何不&#039；T有超链接&nbsp&nbsp&nbsp&nbsp&nbsp；fso。CopyFile colHyps。项（0）。URL，&quot；E： \ Temp \“quot；，（我将如何放置此？ThisDrawing.Path“Cut\u Sheets”，True）' 将E:\Temp\替换为项目目录&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp' TRUE选项将自动覆盖具有相同名称的任何现有文件&nbsp&nbsp&nbsp；如果结束&nbsp；下一个目标&nbsp
&nbsp；设置fso=Nothing

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

嗯哼&nbsp；

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

Matt这不起作用，我有打字问题吗
标记---------------------------------------------------------------------------------------
&039；模块&nbsp；：模块get_hyperlink_cut_sheets
&039；日期时间：2009年1月5日13:21；作者&nbsp；：标记；目的&nbsp；：该程序将对当前图形模型空格块进行排序&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；：并找到PDF剪切表的任何相关超链接，然后移动该剪切&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；：将图纸复制到路径v:\Current\u Project\Cut Sheets\ Directory
&039---------------------------------------------------------------------------------------
选项显式&nbsp；Dim objBlock As AcadBlockReference作为对象块参考&nbsp；模糊对象作为身份&nbsp；暗colHyps作为AcadHyperlinks&nbsp；将fso设置为文件系统对象&nbsp
&nbsp
&nbsp；设置fso=New FileSystemObject&nbsp
&nbsp；If Len（Dir（ThisDrawing.Path.\Cut Sheets\*.pdf））&lt&燃气轮机；然后为0&nbsp' 检查当前项目剪切表中是否有任何PDF&nbsp&nbsp&nbsp；fso。删除此绘图文件。路径（&P）&引用；\剪切纸张\*。pdf“；，正确&nbsp&nbsp&nbsp' 如果有，请将其删除&nbsp；如果结束&nbsp
&nbsp；对于本图纸中的每个对象。模型空间&nbsp&nbsp&nbsp；如果对象的类型是AcadBlockReference，则&nbsp&nbsp&nbsp&nbsp&nbsp；设置objBlock=objEnt&nbsp&nbsp&nbsp&nbsp&nbsp；设置colHyps=objBlock。超链接&nbsp&nbsp&nbsp&nbsp&nbsp；出错时继续下一步&nbsp&nbsp&nbsp&nbsp&nbsp' 如果我们遇到任何不&#039；T有超链接&nbsp&nbsp&nbsp&nbsp&nbsp；fso。CopyFile colHyps。项（0）。URL，ThisDrawing。路径（&P）&引用；\剪切纸张\*。pdf“；，正确&nbsp&nbsp&nbsp&nbsp&nbsp' TRUE选项将自动覆盖具有相同名称的任何现有文件&nbsp&nbsp&nbsp；如果结束&nbsp；下一个目标&nbsp
&nbsp；设置fso=Nothing

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

什么&#039；你的画的路径是什么&nbsp；他们在哪里？

krampaul82 · 发表于 2009-5-4 16:16:36

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应用程序从任何现行的工作图纸，它会知道从它的目录路径&nbsp；当前工作图形所在的目录也包含一个名为“剪切图纸”的目录。这就是我想要的块超链接。pdf剪切工作表
标记

Matt__W · 发表于 2009-5-4 16:36:03

Matt我通过ACAD 2009块编辑器中的Properties dialoag附加了一个超链接

超链接文件操作

发表回复

精选推荐