Hallo
Tot slot voeg ik voorwaarden toe aan het hernoemen van onderdelen op basis van een configuratie-eigenschap die SWOOD maakt.
Ik heb een macro geschetst, maar ik heb moeite om goed te begrijpen hoe de dialoog met solidworks werkt.
Het lukt me om alle verschillende kinderen te krijgen die mijn gemeente heeft.
Nu zou ik er graag in willen slagen om te verifiëren dat een eigenschap mooi is en in elk van hen bestaat, zo ja, dan hernoem ik het, zo niet, dan ga ik verder met de volgende.
Kun je me helpen? Ik post het begin van mijn code.
Bij voorbaat dank, een fijne dag verder.
Dim swApp als object
Expliciete optie
Sub hoofd()
Dim swApp als SldWorks.SldWorks
Dim swModel als ModelDoc2
Dim swAssy Als ModelDoc2
Dim swModelDocExt als ModelDocExtension
Dim swCustProp als CustomPropertyManager
Dim val als snaar
Dim valout als snaar
Dim bool als Booleaanse
Dim hout als snaar
dim name() als tekenreeks
Dimlijst als tekenreeks
Dim retval() Als String
Dim tekst als tekenreeks
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Stel swModelDocExt = swModel.Extension in
Als swModel.GetType = swDocASSEMBLY Dan
retval = swModel.GetDependencies2(Onwaar, Onwaar, Onwaar)
ReDim naam(1 TB ((UBound(retval) - 1) / 2) + 1)
Voor i = 0 TB (UBound(retval) - 1) / 2
Stel swModelDocExt = swModel.Extension in
Set swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("SWOODCP_PanelStockLength", True, val, valout)
Debug.Print "Waarde: " & val
Debug.Print "Geëvalueerde waarde: " & valout
Debug.Print "Up-to-date data: " & bool
text = tekst & retval(2 * i) & vbCr
volgende i
Einde als
MsgBox (tekst)
Einde Sub