I can't seem, to add a custom property using the Add3() function if the type is number and the number has a decimal in it. The following code works if the number is "123" but does not work if the number is "123.456". As a work around, it does seem to work if I add it as an integer "0" and then use the set2() function to modify it.
Dim swModel As ModelDoc2
Dim cusPropMgr As CustomPropertyManager
Dim ModelExt As ModelDocExtension
Dim lRetVal As Integer
Public Sub main()
swModel = swApp.ActiveDoc
ModelExt = swModel.Extension
cusPropMgr = ModelExt.CustomPropertyManager("") '
' This fails with swCustomInfoAddResult_GenericFail
lRetVal = cusPropMgr.Add3("ANUMBER", swCustomInfoType_e.swCustomInfoNumber, "123.456", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
' This seems to work if I use "0" as the value above first
' lRetVal = cusPropMgr.Set2("ANUMBER", "123.100000")
Am I doing something wrong here?