定义标注样式名称问题 在接口上调用方法失败

ericyu

Public Function AddDimstyle(ByVal strDimName As String) As AcadDimStyle

Dim dimstyle As AcadDimStyle
Set dimstyle = ThisDrawing.DimStyles.Add(strDimName)

........................................................

End Function

addDimstyle "我晕"  ''''可以

Dim strN as String

strN=Str(n)

addDimstyle strN    ''''不可以

addDimstyle str(double) '''也不可以

提示在接口上调用方法失败,为啥

mccad

Str(n)和str(double)中的n和double在哪定义？值是什么？