Hallo weer allemaal,
sorry dat ik publiceer zonder te testen, dus ik volg het op
Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
Sub Beheer()
assignmentPrincipalObjects
Beheer van de bodemhoogte
Als de test ("D1@Esq1", "500") dan
boolstatus = swModel.EditRebuild3()
Anders
MsgBox "Probleem"
Einde als
'Breedte...
'Diepte...
'Dikte...
Einde Sub
Sub AssignmentPrincipalObjects() 'Kan in een andere module worden geplaatst zonder PB
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
'Set= .....
Einde Sub
Functietest (NomVar als string, ValVar als string) als boolean 'Kan zonder PB in een andere module worden geplaatst
Dim swEquationMgr als SldWorks.EquationMgr
Dim vSplit als variant
Stel swEquationMgr in = swModel.GetEquationMgr
Test = Onwaar
Voor i = 0 To swEquationMgr.GetCount - 1
vSplit = Splitsen(swEquationMgr.vergelijking(i), "=")
vSplit(0) = Vervangen(vSplit(0), Chr(34), leeg)
vSplit(0) = Vervangen(vSplit(0), Chr(32), leeg)
Als vSplit(0) = VarName, dan
swEquationMgr.equation(i) = Vervangen(swEquationMgr.equation(i), vSplit(1), ValVar)
Test = Waar
Exit-functie
Einde als
volgende i
Functie beëindigen
Ik heb deze code net getest en snel herwerkt, het is aan jou JB om 'het op je eigen manier te zetten'.
Door gebruik te maken van functies (hier Test) met doorgevende argumenten (hier NomVar en ValVar) kunt u uw dingen in verschillende modules ordenen. Wat betreft de sub met de titel Beheer, ik kan het zien in een module van uw UserForm, om gezien te worden.
Groeten MC