ACADM中粗糙度符号操作问题(求解决)

lijiao

下面这段代码是Autodesk AutoCAD Mechanical 2024帮助文件acmDevGuide（开发者指南）中的示例，我试运行了一下，会出现问题，不能改变属性的值，麻烦各位帮忙看看是怎么回事.
好像红色的地方都有问题
Dim symbb As McadSymbolBBMgr
Set symbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
Dim surftext As McadSurfaceTexture
Set surftext = ThisDrawing.ModelSpace.AddCustomObject("AcmsurfaceTexture")
Dim pt As Variant
pt = ThisDrawing.Utility.GetPoint(, "Location for Surface Texture symbol: ")
pt = ThisDrawing.Utility.TranslateCoordinates(pt, acUCS, acWorld, False)
surftext.Origin = pt
surftext.AllowanceValue = 0.01
surftext.AutomaticAdjust = True
surftext.color = 1
surftext.CommentValue = "This is a comment"
surftext.CutoffValue = "2"
surftext.LayDirection = sbCircularRelativeToCenter
surftext.LayDirectionValue = 0.1
surftext.OtherMinimumValue = 0.2
surftext.OtherValue = 1
surftext.ProductionValue = 3
surftext.Production2Value = 4
surftext.RaMaximumValue = 6
surftext.RaMinimumValue = 5.5
surftext.MaximumSpacingValue = 0.5
surftext.ReferenceValue = 3.5
surftext.SamplingLengthValue = 10
surftext.WavinessValue = 2.05