VBA代码不会更改Dimsc

muck · 发表于 2022-7-6 15:24:32

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”

末端接头

非常感谢。

CmdrDuh · 发表于 2022-7-6 17:03:04

你的风格是注释性的吗？如果是，则不会更改dimscale

[编程交流] VBA代码不会更改Dimsc

发表回复

精选推荐