Wie man in vba den Wert einer globalen Variablen einer benutzerdefinierten Eigenschaft eines Raums zuweist

Out of category
2

Es ist okay, es ist zu mir zurückgekommen!

Zu Ihrer Information, hier ist mein Code, er ist nicht akademisch, aber er funktioniert!

 

Dim swApp als SldWorks.SldWorks
Dimmen des Teils als SldWorks.ModelDoc2
Dim retval Als boolescher Wert
Sub main()

Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.ActiveDoc


Dim title As String
title = Teil.GetTitle
Debug.Print Titel


Dim QuotQtéBelem As String
QuotQtéBelem = Chr(34) & "QtéBelem" & "@" & Titel & Chr(34)


retval = Part.DeleteCustomInfo2("", "QTEBELEM")
retval = Part.AddCustomInfo3("", "QTEBELEM", 30, QuotQtéBelem)

Ende Sub