Inventor Tips

Unsichtbare Linien:

Im Inventor-11/12 werden standardmäßig verdeckte Linien als Volllinien dargestellt. Möchte man diese aber als Strich-Strich-Linien darstellen so ist in der Registry für Inventor-11

HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion11.0\...
...\System\Preferences\Display

der Wert von 'Hidden Line Pattern' = ffff in 0fff zu ändern und bei Inventor-12 (2008)

HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion12.0\...
...\System\Preferences\Display

sollte der Wert von 'Hidden Line Pattern' = 3ff in fff geändert werden. Beim Inventor-2008 funktioniert es mit dem Wert fff bei mir so nicht. Vielleicht hat jemand einen Tip?

Weitere Informationen siehe => http://mfgcommunity.autodesk.com/blog/ und http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5788

Zu langer Dateiname eines i-Parts:

Da in einem Standard-i-Part alle Parameter im Dateinamen auftauchen ist dieses oft der Grund, dass die Fehlermeldung "Dateiname zu lang" erscheint. Um dieses zu verhindern sollte in der Variantentabelle unter sonstiges eine Spalte "Dateinname" angelegt werden und dort der für die entspr. Variante zu verwendende Dateiname eingetragen werden.

VBA-Macro für Massenangabe:

Mit der Visual Basic for Applications (VBA) Subroutine wird die Masse (kg) des Parts bestimmt und in den iProperties unter dem Folder 'Benutzerdefiniert' abgelegt. Hier der Programmcode:

' Masse eines Parts bestimmen und in iProperties eintragen
' by KB Gathmann, 02.07.2007
Sub Mass_Props()
   ' Set a reference to the part document.
   ' This assumes a part document is active.
   Dim oPartDoc As PartDocument
   Set oPartDoc = ThisApplication.ActiveDocument

   ' Set a reference to the mass properties object.
   Dim oMassProps As MassProperties
   Set oMassProps = oPartDoc.ComponentDefinition.MassProperties

   ' Set the accuracy to medium.
   oMassProps.Accuracy = k_Medium

   ' Set own Property
   Dim oPropSet As PropertySet
   Set oPropSet = oPartDoc.PropertySets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")

   On Error Resume Next
   ' Try to obtain the PropertySet to see if it already exists
   Set oPropSet = oPropSet.Item("Masse")

   ' If PropertySet does not exist then add the new PropertySet
   If Err Then
   ' Add the new PropertySet
   Set oPropSet = oPropsets.Add("Masse")
   ' Adding the new Property to the new PropertySet
   Call oPropSet.Add("A Value", "Masse", 2)
   End If

   ' Set Mass-Value to own Property Masse
   Dim oProp As Property
   Set oProp = oPropSet.Item("Masse")
   oProp.Value = Round(oMassProps.Mass, 3) & " kg"
End Sub

Im Part unter Extras/Macro den VisualBasicEditor starten, von Devault.ivb das Formular selektieren und den oben kopierten Code einfügen oder das File iprop_mass.bas importieren. Mit dem Klicken auf den Speicher-Button wird das VBA-Macro in Default.ivb gespeichert und ist für alle weitere Konstruktionen verfügbar. Wird nun im Modelbaum des Teils Platte.ipt selektiert und mit rechter Mousetaste iProperties ausgewählt, so wird unter Benutzerdefiniert die Masse des Parts angezeigt.