快捷导航

我的收藏

搜索
登陆 注册
距米网 › 技术协作 › 软件学习 › iLogic编程自动将工程图图纸导出pdf格式文件到某文件夹
返回列表 发布

[Inventor] iLogic编程自动将工程图图纸导出pdf格式文件到某文件夹

JUMU实名认证 发表于 2026-01-07 17:37 | 显示全部楼层 | 复制链接分享      上一主题  翻页  下一主题
iLogic编程自动将工程图图纸导出pdf格式文件到某文件夹:
  1. '定义当前文档为顶层文档
  2. Dim oAsmDoc As Document
  3. oAsmDoc = ThisApplication.ActiveDocument
  4. oAsmName = ThisDoc.FileName(False) 'without extension


  7. Dim drawingformat As String
  8. drawingformat = "idw"

  10. '- - - - - - - - - - - - -PDF setup - - - - - - - - - - - -
  11. oPath = ThisDoc.Path
  12. PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
  13. DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
  14. DWFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}")
  15. oContext = ThisApplication.TransientObjects.CreateTranslationContext
  16. oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
  17. oOptions = ThisApplication.TransientObjects.CreateNameValueMap

  19. xOptions = ThisApplication.TransientObjects.CreateNameValueMap
  20. oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
  21. oDocument = ThisApplication.ActiveDocument

  23. '定义PDF导出属性
  24. oOptions.Value("All_Color_AS_Black") = 1
  25. oOptions.Value("Remove_Line_Weights") = 0
  26. oOptions.Value("Vector_Resolution") = 400
  27. oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets


  30. '定义导出文档路径
  31. oFolder = "C:\export"

  33. '根据检测结果创建导出文件夹
  34. If Not System.IO.Directory.Exists(oFolder) Then
  35. System.IO.Directory.CreateDirectory(oFolder)
  36. End If
  37. '- - - - - - - - - - - - -

  39. '- - - - - - - - - - - - -下层工程图 - - - - - - - - - - - -
  40. '循环引用当前文档所有下层零件
  41. Dim oRefDocs As DocumentsEnumerator
  42. oRefDocs = oAsmDoc.AllReferencedDocuments
  43. Dim oRefDoc As Document

  45. '打开与零件存在同一路径的工程图
  46. For Each oRefDoc In oRefDocs
  47. idwPathName = Left(oRefDoc.FullDocumentName, Len(oRefDoc.FullDocumentName) - 3) & drawingformat
  48. '检测当前下层零件是否有工程图
  49. If(System.IO.File.Exists(idwPathName)) Then
  50. Dim oDrawDoc As DrawingDocument
  51. oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
  52. oFileName = IO.Path.GetFileNameWithoutExtension(oRefDoc.FullDocumentName)

  54. On Error Resume Next ' 如果目标PDF已存在并被打开或处于只读属性，跳过当前文档
  55. '设置PDF名字与保存路径
  56. oDataMedium.FileName = oFolder & "" & oFileName & ".pdf"
  57. '创建PDF
  58. Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)

  60. '关闭工程图
  61. oDrawDoc.Close
  62. Else
  63. '无操作，如同一文件夹不存在相应工程图
  64. End If
  65. Next
  66. '- - - - - - - - - - - - -

  68. '- - - - - - - - - - - - -顶层工程图 - - - - - - - - - - - -
  69. oAsmDrawing = ThisDoc.ChangeExtension(drawingformat)
  70. oAsmDrawingDoc = ThisApplication.Documents.Open(oAsmDrawing, True)
  71. oAsmDrawingName = ThisDoc.FileName(False) 'Without extension

  73. On Error Resume Next ' 如果目标PDF已存在并被打开或处于只读属性，跳过当前文档
  74. '设置PDF名字与保存路径
  75. oDataMedium.FileName = oFolder & "" & oAsmDrawingName & ".pdf"
  76. '创建PDF
  77. Call PDFAddIn.SaveCopyAs(oAsmDrawingDoc, oContext, oOptions, oDataMedium)


  80. drawingformat = "dwg"

  82. '- - - - - - - - - - - - -PDF setup - - - - - - - - - - - -
  83. oPath = ThisDoc.Path
  84. PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
  85. DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
  86. DWFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}")
  87. oContext = ThisApplication.TransientObjects.CreateTranslationContext
  88. oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
  89. oOptions = ThisApplication.TransientObjects.CreateNameValueMap

  91. xOptions = ThisApplication.TransientObjects.CreateNameValueMap
  92. oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
  93. oDocument = ThisApplication.ActiveDocument

  95. '定义PDF导出属性
  96. oOptions.Value("All_Color_AS_Black") = 1
  97. oOptions.Value("Remove_Line_Weights") = 0
  98. oOptions.Value("Vector_Resolution") = 400
  99. oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets


  102. '定义导出文档路径
  103. oFolder = "C:\export"

  105. '根据检测结果创建导出文件夹
  106. If Not System.IO.Directory.Exists(oFolder) Then
  107. System.IO.Directory.CreateDirectory(oFolder)
  108. End If
  109. '- - - - - - - - - - - - -

  111. '- - - - - - - - - - - - -下层工程图 - - - - - - - - - - - -
  112. '循环引用当前文档所有下层零件

  114. oRefDocs = oAsmDoc.AllReferencedDocuments


  117. '打开与零件存在同一路径的工程图
  118. For Each oRefDoc In oRefDocs
  119. idwPathName = Left(oRefDoc.FullDocumentName, Len(oRefDoc.FullDocumentName) - 3) & drawingformat
  120. '检测当前下层零件是否有工程图
  121. If(System.IO.File.Exists(idwPathName)) Then
  122. Dim oDrawDoc As DrawingDocument
  123. oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
  124. oFileName = IO.Path.GetFileNameWithoutExtension(oRefDoc.FullDocumentName)

  126. On Error Resume Next ' 如果目标PDF已存在并被打开或处于只读属性，跳过当前文档
  127. '设置PDF名字与保存路径
  128. oDataMedium.FileName = oFolder & "" & oFileName & ".pdf"
  129. '创建PDF
  130. Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)

  132. '关闭工程图
  133. oDrawDoc.Close
  134. Else
  135. '无操作，如同一文件夹不存在相应工程图
  136. End If
  137. Next
  138. '- - - - - - - - - - - - -

  140. '- - - - - - - - - - - - -顶层工程图 - - - - - - - - - - - -
  141. oAsmDrawing = ThisDoc.ChangeExtension(drawingformat)
  142. oAsmDrawingDoc = ThisApplication.Documents.Open(oAsmDrawing, True)
  143. oAsmDrawingName = ThisDoc.FileName(False) 'Without extension

  145. On Error Resume Next ' 如果目标PDF已存在并被打开或处于只读属性，跳过当前文档
  146. '设置PDF名字与保存路径
  147. oDataMedium.FileName = oFolder & "" & oAsmDrawingName & ".pdf"
  148. '创建PDF
  149. Call PDFAddIn.SaveCopyAs(oAsmDrawingDoc, oContext, oOptions, oDataMedium)
复制代码


iLogic

相关主题

举报

返回列表
JUMU实名认证

关注0

粉丝14

图纸3530

推荐素材更多+

0

切书机（切纸机）三维模型设计

  距米网  

找到您想要的设计

工程师、学生在线交流学习平台
关注我们

手机版- 距米网 |苏公网安备32041102000587号

©2017-2025 苏ICP备18040927号-1