需要帮助修改维度

mra_leo · 发表于 2022-7-6 22:44:35

尊敬的各位：，

我是Autocad VBA新手，需要帮助，

我正在创建一个新的标注样式，现在我想编辑/修改标注样式变量。

有人能帮我写代码吗，

谢谢
拉姆赞

borgunit · 发表于 2022-7-7 00:40:28

这是一件奇怪的事。首先创建一个新的dimstyle。创建并更改所有dim变量，使其符合您的要求。然后将变量从图形复制到新的dimstyle。这与更改现有dimstyle变量而不将其显示为替代的方法相同。

公共子UgDimStyle_CreateNew（_
可选ByVal sDimStyName为String=“Standard\u Dim”）
'------------------------------------------------------------------------------
'
'
'------------------------------------------------------------------------------
Dim CurDimStyle作为AcadDimStyle
Dim NewDimstyle作为AcadDimStyle
Dim iAltUnits为整数
Dim dDimScale为双精度
'''''''''''''''''''''''''''''''''''''''
'保存当前dimstyle的副本
设置CurDimStyle=ThisDrawing。ActiveDimStyle

'创建新的dimstyle
设置NewDimstyle=ThisDrawing。尺寸样式。添加（sDimStyName）

'将新创建的dimstyle设置为当前
此图纸。ActiveDimStyle=NewDimstyle

'保存目标“dimvar”值
dDimScale=此图纸。GetVariable（“Dimscale”）
iAltUnits=此图纸。GetVariable（“Dimalt”）
'------------------------------------------------------------------------------
'更改目标“dimvar”值
'------------------------------------------------------------------------------
此图纸。SetVariable“DIMSCALE”，1#'将控制dim文本的大小
此图纸。SetVariable“DIMASZ”，2.5’箭头大小
此图纸。SetVariable“DIMATFIT”，2’箭头文本排列
此图纸。SetVariable“DIMAZIN”，角度前后3’0抑制
此图纸。SetVariable“DIMBLK”，“”特殊箭头blk
此图纸。SetVariable“DIMDLE”，0’dim line extension pass extension
此图纸。SetVariable“DIMDLI”，基线DIM之间的距离为10'
此图纸。SetVariable“DIMDSEP”，“.”十进制分隔符
此图纸。SetVariable“DIMEXE”，1’dim line extension PASS extension
此图纸。SetVariable“DIMEXO”，距原点1’dim偏移
'此绘图。设置变量“DIMFIT”，如果没有足够的空间，则为5’控制配合
此图纸。SetVariable“DIMGAP”，文本周围2’间隙
此图纸。SetVariable“DIMJUST”，0’文字位置-居中上方
此图纸。SetVariable“DIMLFAC”，1#'长度缩放
此图纸。SetVariable“DIMTAD”，1’文字到dim位置-以上
此图纸。SetVariable“DIMTIH”，0'与dim对齐
此图纸。SetVariable“DIMTIX”，内部力为0
此图纸。SetVariable“DIMTMOVE”，0’dim随文本移动
此图纸。SetVariable“DIMTSZ”，0’绘制箭头
此图纸。SetVariable“DIMTXT”，3.5’文字高度
此图纸。SetVariable“DIMTZIN”，tol前后12’0抑制
此图纸。SetVariable“DIMUNIT”，2’单位格式-十进制
此图纸。SetVariable“DIMZIN”，12’0抑制前后

'将新文档dimvar设置复制到新的dimstyle中
新建DIMSTYLE。从此绘图复制

'将原始dimstyle设置为当前
'此绘图。ActiveDimStyle=CurDimStyle

'恢复更改后的“dimvar”值
“这幅画。SetVariable“Dimscale”，dDimScale
“这幅画。SetVariable“Dimalt”，iAltUnits

'将还原的文档dimvar设置复制到原始dimstyle中
“CurDimStyle。从此绘图复制

设置CurDimStyle=Nothing
设置NewDimstyle=Nothing
末端接头

[编程交流] 需要帮助修改维度

发表回复

精选推荐