VBA代码不会更改Dimsc
2009版我已经编写了以下VBA代码，由于某些原因，它不会
在版本2009中更改图形尺寸比例。我该如何改变
使用此代码绘制尺寸比例？Dimscale比例代码位于
'?????? 在以下代码中。
私有子命令按钮2\u Click（）
Dim objDimension作为附加尺寸
Dim varPickedPoint作为变量
Dim objDimStyle作为AcadDimStyle
将strdim样式设置为字符串
Dim strChosenDimStyle作为字符串
Dim stg作为字符串
出错时继续下一步
我隐藏
此图纸。公用事业GetEntity objDimension，varPickedPoint_
“选择了要设置其样式的维度”
如果objDimension为Nothing，则
MsgBox“未能拾取维度对象”
出口接头
如果结束
stg=“文本高度”
'MsgBox objDimension。text旋转
'此绘图。SetVariable“CLAYER”，objDimension。尺寸线图层
MsgBox对象维度。层
此图纸。SetVariable“CLAYER”，objDimension。尺寸线图层
MsgBox对象维度。尺寸线颜色
此图纸。SetVariable“DIMCLRD”，objDimension。尺寸线颜色
MsgBox对象维度。扩展线颜色
此图纸。SetVariable“DIMCLRE”，objDimension。扩展线颜色
MsgBox对象维度。颜色
'暗显文本颜色
此图纸。SetVariable“DIMCLRT”，objDimension。颜色
MsgBox对象维度。比例因子
'此绘图。SetVariable“DIMSCALE”，objDimension。比例因子
'??????此图纸。SetVariable“DIMSCALE”，objDimension。比例因子
此图纸。SetVariable“dimscale”，objDimension。比例因子
MsgBox对象维度。垂直文本位置
此图纸。SetVariable“DIMTAD”，objDimension。垂直文本位置
MsgBox对象维度。text高度
此图纸。SetVariable“DIMTXT”，objDimension。text高度
MsgBox对象维度。文本样式
MsgBox对象维度。text间隙
此图纸。SetVariable“DIMJUST”，objDimension。text间隙
MsgBox对象维度。箭头头大小
此图纸。SetVariable“DIMASZ”，objDimension。箭头头大小
MsgBox对象维度。扩展线扩展
MsgBox对象维度。扩展线偏移
设置objDimStyle=ThisDrawing。尺寸样式。添加（“YourNamedStyle”）
objDimStyle。从此绘图复制
此图纸。ActiveDimStyle=objDimStyle
'在此处进行更改。。。。。。。。。。。。。。。。。。。。
objDimStyle。从此绘图复制
“YourNameStyle”
objDimStyle。Name=“YourNamedStyle”
末端接头
非常感谢。 你的风格是注释性的吗？如果是，则不会更改dimscale
页:
[1]