CNC Freesbank
De ontwikkeling van een CNC freesbank met grote tafelafmetingen is in volle gang, dit wordt een goed betaalbaar concept voor de veeleisende hobbyist. Houdt de ontwikkelingen op deze site dus goed in de gaten. Hieronder ziet u al enkele 3D tekeningen welke met Autodesk Inventor zijn getekend.
Inventor script ChangeColor
Onderstaand VBA script voor Autodesk Inventor kan gebruikt worden om de "Color scheme" te schakelen naar wit, dit is erg handig voor een printscreen.
Public Sub ChangeColor()
If ThisApplication.ColorSchemes.BackgroundType = 52737 Then
ThisApplication.ColorSchemes.BackgroundType = GetSetting("InventorColorScheme", "ChangeColor", "BackgroundType")
ThisApplication.ColorSchemes.Item("" & GetSetting("InventorColorScheme", "ChangeColor", "BackgroundItem") & "").Activate
Else
SaveSetting "InventorColorScheme", "ChangeColor", "BackgroundType", ThisApplication.ColorSchemes.BackgroundType
SaveSetting "InventorColorScheme", "ChangeColor", "BackgroundItem", ThisApplication.ActiveColorScheme.Name
ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType
ThisApplication.ColorSchemes.Item(7).Activate
End If
End Sub