去评论
距米网-精简版

使用Inventor iLogic自动将二维图转换成dwg格式的AutoCAD文件

JUMU
2022/05/05 22:01:55
使用Inventor iLogic自动将二维图转换成dwg格式的AutoCAD文件，代码如下：
  1. Dim oDoc As Document
  2. oDoc = ThisApplication.ActiveDocument
  3. Dim DWGAddIn As TranslatorAddIn
  4. DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
  5. Dim oDocument As Document
  6. oDocument = ThisApplication.ActiveDocument

  8. Dim oContext As TranslationContext
  9. oContext = ThisApplication.TransientObjects.CreateTranslationContext
  10. oContext.Type = kFileBrowseIOMechanism

  12. ' Create a NameValueMap object
  13. Dim oOptions As NameValueMap
  14. oOptions = ThisApplication.TransientObjects.CreateNameValueMap

  16. ' Create a DataMedium object
  17. Dim oDataMediumDWG As DataMedium
  18. oDataMediumDWG = ThisApplication.TransientObjects.CreateDataMedium
  19. '---
  20. oPath = ThisDoc.Path
  21. oFileName = ThisDoc.FileName(False) 'without extension
  22. 'oRevNum = iProperties.Value("Project", "Revision Number")
  23. oDocument = ThisApplication.ActiveDocument
  24. 'oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

  26. Dim strIniFile As String
  27. strIniFile = "C:\XX\XX\inventor2dwgconfig.ini"
  28. oOptions.Value("Export_Acad_IniFile") = strIniFile

  30. oFolder = "C:\Users\zgten\Desktop\PDF"
  31. oDataMediumDWG.FileName = oFolder + "" + oFileName & ".dwg"
  32. If System.IO.File.Exists(oDataMediumDWG.FileName) Then
  33.         oChoice = MessageBox.Show(oDataMediumDWG.FileName & " Already Exists - Overwrite?", "Title", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
  34.         If oChoice = 7
  35.                 'MessageBox.Show("exit", "Title")
  36.                 Return
  37.         Else
  38.                 'MessageBox.Show("Overwrite", "Title")
  39.         End If
  40. End If

  42. 'Publish document.
  43. DWGAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMediumDWG)
  44. Beep
  45. 'MessageBox.Show("Done!", "Title")
进入原文