Hi Kalle,
mal so ganz ins Unreine geschrieben, sollte es etwa so funktionuckeln:
Dim swApp As Object
Dim ModelDoc As Object
Dim numConfigs As Long
Dim Names As Variant
Dim i As Integer
Set ModelDoc = Nothing
Set swApp = Nothing
Set swApp = CreateObject("SldWorks.Application")
Set ModelDoc = swApp.ActiveDoc
If Not ModelDoc Is Nothing Then
numConfigs = ModelDoc.GetConfigurationCount()
Names = ModelDoc.GetConfigurationNames()
For i = 0 To (numConfigs - 1)
ModelDoc.GetConfigurationByName(Names(i)). _
UseAlternateNameInBOM = False
Next
End If
So und jetzt noch ein Hinweis zum VB-SetProperty. Das bedeutet für Dich nichts weiter, als dass Du im Code ganz einfach schreiben kannst:
Objekt.Eigenschaft = Wert
oder eben:
Configuration.UseAlternateNameInBOM = False
Das ist schon alles.
Gruß,
Armin
P.S.: Übrigens der Unterstrich "_" im Code ist ein Zeilenfortsetzungszeichen. Kannst Du also weglassen und stattdessen die nächste Zeile hinten anhängen.
[Diese Nachricht wurde von Armin B am 10. September 2001 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP