|
SolidWorks : Makro Einheiten - Dezimale
Stephan 85 am 10.10.2012 um 09:52 Uhr (0)
Hallo uc,hier nochmals das komplete Makro:Public swApp As SldWorks.SldWorksPublic ModelDoc As SldWorks.ModelDoc2Public swDocExt As SldWorks.ModelDocExtensionPublic swMass As SldWorks.MassPropertyDim parttype As VariantDim test As Variant Sub E()Set swApp = CreateObject("SldWorks.Application") Set ModelDoc = swApp.ActiveDoc Set swDocExt = ModelDoc.Extension Prüfen, ob es sich um ein Part handelt / check, if the doc is a part parttype = ModelDoc.GetType() If parttype 1 Then MsgBox "Tut mir lei ...
| | In das Form SolidWorks wechseln |
|
SolidWorks : Makro Einheiten - Dezimale
Stephan 85 am 09.10.2012 um 18:16 Uhr (0)
Hallo ans Forum,meine erster Beitrag - gleiche eine Frage.Ich habe bereits ein Makro zum Setzen der Einheiten auf mm, gr und cm³ - leider finde ich den entsprechendenParamter zum Setzen der Dezimalen nicht.Kann mir jemand weiterhelfen?Mein bisheriger Code:Public swApp As SldWorks.SldWorksPublic ModelDoc As SldWorks.ModelDoc2Public swDocExt As SldWorks.ModelDocExtensionPublic swMass As SldWorks.MassPropertyDim parttype As VariantDim test As Variant Sub E()Set swApp = CreateObject("SldWorks.Application") S ...
| | In das Form SolidWorks wechseln |
|
SolidWorks : Makro Einheiten - Dezimale
Stephan 85 am 10.10.2012 um 10:31 Uhr (0)
Ich habe es gelöst, hier das komplette Makro zum Setzen der Einheiten in mm, g und cm³ mit 2 Dezimalen.UC hat mir den entscheidenen Hinweis gegeben - Unities sind unterwegs!Public swApp As SldWorks.SldWorksPublic ModelDoc As SldWorks.ModelDoc2Public swDocExt As SldWorks.ModelDocExtensionPublic swMass As SldWorks.MassPropertyDim parttype As VariantDim userPref As IntegerDim userPrefOption As IntegerDim value As IntegerDim test As Variant Sub E()Set swApp = CreateObject("SldWorks.Application") Set ModelDoc ...
| | In das Form SolidWorks wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
