去评论
距米网-精简版

Inventor iLogic 批量导出pdf文件程序设计

JUMU
2025/12/12 17:26:15
本规则将会为当前文档和所有下层工程图创建 PDF文档，运行本规则需保证工程图与三维文档存在同一文件夹。
  1. '定义当前文档为顶层文档
  2. Dim oAsmDoc As Document
  3. oAsmDoc = ThisApplication.ActiveDocument
  4. oAsmName = ThisDoc.FileName(False) 'without extension

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

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

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

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


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

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

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

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

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

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

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

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



进入原文