iLogic编程自动将三维导出igs格式文件到某文件夹
2026/01/07 17:35:33
iLogic编程自动将三维导出igs格式文件到某文件夹：
- ' Get the IGES translator Add-In.
- Dim oIGESTranslator As TranslatorAddIn
- oIGESTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F44-0C01-11D5-8E83-0010B541CD80}")
- Dim oContext As TranslationContext
- oContext = ThisApplication.TransientObjects.CreateTranslationContext
- Dim oOptions As NameValueMap
- oOptions = ThisApplication.TransientObjects.CreateNameValueMap
- If oIGESTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, oContext, oOptions) Then
- ' Set geometry type for wireframe.
- ' 0 = Surfaces, 1 = Solids, 2 = Wireframe
- oOptions.Value("GeometryType") = 1
- ' To set other translator values:
- ' oOptions.Value("SolidFaceType") = n
- ' 0 = NURBS, 1 = Analytic
- ' oOptions.Value("SurfaceType") = n
- ' 0 = 143(Bounded), 1 = 144(Trimmed)
- oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
- Dim oData As DataMedium
- oData = ThisApplication.TransientObjects.CreateDataMedium
- oData.FileName = "C:\pdf" & ThisDoc.FileName(False) & ".igs"
- oIGESTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
- End If