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

[[http://adndevblog.typepad.com/manufacturing/2014/11/set-drawing-view-back-to-normal.html|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 =====

Die Gewinde Darstellung soll als Vorgabe aktive sein ! \\ \\

   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 =====
  
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

[[http://adndevblog.typepad.com/manufacturing/2014/11/set-drawing-view-back-to-normal.html|Quelle]]


----


h1. Inventor 2017

Umstellen Netzwerk Einzelplatz o.ä.

"HIER":https://knowledge.autodesk.com/de/search-result/caas/sfdcarticles/sfdcarticles/DEU/How-to-change-or-reset-licensing-on-your-Autodesk-software.html

---