Hallo zusammen,
Ich habe folgendes Problem:
Wir verwenden ein Makro um Dateien mit Eigenschaften zu speichern.
Nun hab ich das Makro meinem Amerikanischen Kollegen gemailt, er hat
nun das Problem dass bei einer gewissen Abfrage das Makro nicht richtig
ausgeführt wird (Er hat auch SW 2011 , aber im Gegensatz zu uns (WIN XP)
verwendet er Windows 7
Hier ein Auszug aus dem Makro:
Private Sub CmdGet_Click()
Dim swApp As Object
Dim Part As Object
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
DocName = Part.GetTitle
NameLen = Len(DocName)
DocExtension = ""
bgCol = RGB(255, 255, 255)
InputForm.ComboProjekt.BackColor = bgCol
InputForm.TxtNum.BackColor = bgCol
InputForm.ComboIndex.BackColor = bgCol
InputForm.TxtBeschr.BackColor = bgCol
InputForm.ComboAuthor.BackColor = bgCol
If Part.GetType = 1 Then
DocExtension = InStr(1, UCase(DocName), ".SLDPRT", 0)
ElseIf Part.GetType = 2 Then
DocExtension = InStr(1, UCase(DocName), ".SLDASM", 0)
End If
If DocExtension = 0 Then
Message = "Dokument wurde noch nicht gespeichert, kann" & vbCrLf & _
"Dokument Eigenschaften nicht übernehmen!"
swApp.SendMsgToUser (Message)
Das Problem liegt meiner meinung daran dass die folgenden Befehle unter WIndows 7
nicht richtig ausgelesen werden:
If Part.GetType = 1 Then
DocExtension = InStr(1, UCase(DocName), ".SLDPRT", 0)
ElseIf Part.GetType = 2 Then
DocExtension = InStr(1, UCase(DocName), ".SLDASM", 0)
End If
Kann es sein dass unter Windows 7 der Befehl Part.GetType andere Werte als 1 oder 2 für Parts oder Assemblies
ausliest?
Versteht wahrscheinlich niemand, aber ich versuchs trotzdem
Danke für einen HInweis
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP