h1. Inventor

Alles zum Thema Inventor

h1. Interessantes in der API

h2. Dokumenten SubType ermitteln

'Check to see if part is a sheetmetal part If (oDoc.SubType <> „{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}“) Then Return

https://adndevblog.typepad.com/manufacturing/2013/01/inventor-document-sub-types.html

h1. Inventor 2014

h2. Lizenzierung ändern

Umstellen der Lizenzierung

 HKEY_LOCAL_MACHINE\
    SOFTWARE\
       Autodesk\
          Inventor\
             RegistryVersion18.0 
 LicenseMode REGDWORD    1 = Netzwerk
                         2 = Einzelplatz

Eine LICPATH.LIC

 C:\Program Files\Autodesk\Inventor 2014
 
  SERVER 192.168.2.104 000000000000
  USE_SERVER
  

oder mit der ADSKFLEX_LICENSE_FILE

 HKEY_CURRENT_USER\
    Software\
        FLEXlm License Manager]
 ADSKFLEX_LICENSE_FILE    RE_SZ  @192.168.2.104;

—

h1. Inventor 2015

h2. Lizenzierung ändern

Umstellen der Lizenzierung

 HKEY_LOCAL_MACHINE\
    SOFTWARE\
       Autodesk\
          Inventor\
             RegistryVersion19.0 
 LicenseMode REGDWORD    1 = Netzwerk
                         2 = Einzelplatz

Eine LICPATH.LIC

 C:\Program Files\Autodesk\Inventor 2015
 
  SERVER 192.168.2.104 000000000000
  USE_SERVER
  

oder mit der ADSKFLEX_LICENSE_FILE

 HKEY_CURRENT_USER\
    Software\
        FLEXlm License Manager]
 ADSKFLEX_LICENSE_FILE    RE_SZ  @192.168.2.104;

h2. Gewinde in Zeichnungsableitung

Die Gewinde Darstellung soll als Vorgabe aktive sein !

 HKEY_CURRENT_USER\
     Software\
         Autodesk\
             Inventor\
                RegistryVersion19.0\
                    Applets\
                        DrawingLayout\
                              Preferences\
                                   DrawingFormat
 BaseViewDefAssy   REGDWORD   von 101400  auf 1111501
 BaseViewDefPart   REGDWORD   von 101400  auf 1111501
 BaseViewDefPres   REGDWORD   von 101400  auf 1111501

h2. Blatt in ISO Ansicht setzen

So gehts in die ISO

Sub DrawingIsoView()
    Dim v As View
    Set v = ThisApplication.ActiveView
    Dim c As Camera
    Set c = v.Camera
    c.ViewOrientationType = kIsoTopRightViewOrientation
    c.ApplyWithoutTransition
End Sub

und so wieder zurück

Sub DrawingNormalView()
    Dim v As View
    Set v = ThisApplication.ActiveView
    Dim c As Camera
    Set c = v.Camera
    c.ViewOrientationType = kFrontViewOrientation
    c.ApplyWithoutTransition
End Sub

Quelle

h1. Inventor 2016

h2. Lizenzierung ändern

Umstellen der Lizenzierung

 HKEY_LOCAL_MACHINE\
    SOFTWARE\
       Autodesk\
          Inventor\
             RegistryVersion20.0 
 LicenseMode REGDWORD    1 = Netzwerk
                         2 = Einzelplatz

Eine LICPATH.LIC

 C:\Program Files\Autodesk\Inventor 2016
 
  SERVER 192.168.2.104 000000000000
  USE_SERVER
  

oder mit der ADSKFLEX_LICENSE_FILE

 HKEY_CURRENT_USER\
    Software\
        FLEXlm License Manager]
 ADSKFLEX_LICENSE_FILE    RE_SZ  @192.168.2.104;

IDW

Gewinde in Zeichnungsableitung

 HKEY_CURRENT_USER\
     Software\
         Autodesk\
             Inventor\
                RegistryVersion20.0\
                    Applets\
                        DrawingLayout\
                              Preferences\
                                   DrawingFormat
 BaseViewDefAssy   REGDWORD   von 101400  auf 1111501
 BaseViewDefPart   REGDWORD   von 101400  auf 1111501
 BaseViewDefPres   REGDWORD   von 101400  auf 1111501
         

Blatt in ISO Ansicht setzen

Sub DrawingIsoView()
    Dim v As View
    Set v = ThisApplication.ActiveView
    Dim c As Camera
    Set c = v.Camera
    c.ViewOrientationType = kIsoTopRightViewOrientation
    c.ApplyWithoutTransition
End Sub

Sub DrawingNormalView()
    Dim v As View
    Set v = ThisApplication.ActiveView
    Dim c As Camera
    Set c = v.Camera
    c.ViewOrientationType = kFrontViewOrientation
    c.ApplyWithoutTransition
End Sub