Hey all I am trying to write a simple macro to prompt a user for a BOM quatity value, create the property and set the BOM Quantity drop down to the newly created field. So here is what I have:
Dim swApp As Object
Dim swModel As Object
Dim ModelTitle As String
Dim ModelPath As String
Dim UserQTY As Integer
Dim Longstatus As Long
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
UserQTY = 8
ModelTitle = Left(swModel.GetTitle, (InStr(1, swModel.GetTitle, ".") - 1)) & "_QTY" & UserQTY
ModelPath = Replace(swModel.GetPathName(), swModel.GetTitle, "")
Longstatus = swModel.AddCustomInfo("BOM QTY", "Number", UserQTY)
swModel.Extension.CustomPropertyManager.Set "UNIT_OF_MEASURE", "BOM QTY"
but I cannot get it to set "unit_of_measure" to the property BOM QTY! What am I doing wrong...? TIA!