Programatically Export DWG to IGS in 2016?

mtwohig — Tue, 15 Sep 2015 21:22:41 GMT

Is there any way to programatically export a DWG to IGS? We have AutoCAD 2016 and I'm developing in VB.Net.

I've seen a couple other article using older Acad versions and Aruba.exe, but they didnt work for me... namely because Aruba.exe apparently doesnt come with Acad 2016.

Re : Programatically Export DWG to IGS in 2016?

FRFR1426 — Wed, 16 Sep 2015 07:12:47 GMT

aruba.exe has been replaced by acTranslators.exe. Here is some code for 2014/2015:

Dim cultureName As String = Thread.CurrentThread.CurrentCulture.Name
Dim acadVersion As String = HostApplicationServices.Current.releaseMarketVersion & ".0.0.F"
#If ACAD2014 Then
  Const PRODUCT_KEY As String = "001F1"
#ElseIf ACAD2015 Then
  Const PRODUCT_KEY As String = "001G1"
#End If
Dim licenseTypeAsString As String = "SA" ' Stand Alone
Dim productGlobalRootKey As String = HostApplicationServices.Current.MachineRegistryProductRootKey.Substring(0, _
  HostApplicationServices.Current.MachineRegistryProductRootKey.Length - 4)
Dim licenseTypeAsInt As Integer = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\" & productGlobalRootKey & "AdlM", "Type", 2)
' 1 - Network
' 2 - Standalone
' 3 - Multiseat Standalone
If licenseTypeAsInt = 1 Then
    Dim acadLocation As String = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\" & _
      HostApplicationServices.Current.MachineRegistryProductRootKey, "AcadLocation", "")
    If "" = acadLocation Then
        Throw New ApplicationException("Read of acad location failed")
    End If
    licenseTypeAsString = "NW -productLicensePath """ & acadLocation & """"
End If

Dim startInfo As New ProcessStartInfo(translatorFullPath, String.Format("-productKey {0} -productVersion {1} -productLicenseType {2}" & _
  " -productResourcePath ""{3}"" -productLicenseLocale {4} -i ""{5}"" -o ""{6}""", PRODUCT_KEY, acadVersion, licenseTypeAsString, _
  Path.Combine(acadDir, "AdlmRes\" & cultureName), cultureName.Replace("-", "_"), inputFullPath, outputFullPath))
startInfo.CreateNoWindow = True
startInfo.RedirectStandardOutput = True
startInfo.UseShellExecute = False

Dim proc As Process
Try
    proc = Process.Start(startInfo)
Catch ex As Win32Exception
  If ex.ErrorCode = &H80004005 Then
    Throw New ApplicationException(String.Format("Program {0} not found.", translatorFullPath))
  Else
    Throw
  End If
End Try

proc.WaitForExit()

Dim errors As String = proc.StandardOutput.ReadToEnd()

If Not String.IsNullOrEmpty(errors) Then
  Throw New ApplicationException(errors)
End If

If proc.ExitCode <> 0 Then
  Throw New ApplicationException(String.Format(Extension.StringResources("ImportFailed"), inputFullPath))
End If

Re : Programatically Export DWG to IGS in 2016?

mtwohig — Wed, 16 Sep 2015 14:08:14 GMT

Thank you, sir.

I will try this when I get a chance... hopefully by tomorrow night.

Re: Re : Programatically Export DWG to IGS in 2016?

Anonymous — Thu, 06 May 2021 06:46:55 GMT

Re: Re : Programatically Export DWG to IGS in 2016?

Anonymous — Thu, 06 May 2021 06:50:56 GMT

I am having a problem like above but i read your cmt i don't understand

Can you give me the code of a program that outputs the igs file from the dwg file?

I thank you very much

topic Programatically Export DWG to IGS in 2016? in .NET Forum

Programatically Export DWG to IGS in 2016?

Re : Programatically Export DWG to IGS in 2016?

Re : Programatically Export DWG to IGS in 2016?

Re: Re : Programatically Export DWG to IGS in 2016?

Re: Re : Programatically Export DWG to IGS in 2016?