需要帮助修改维度
尊敬的各位:,我是Autocad VBA新手,需要帮助,
我正在创建一个新的标注样式,现在我想编辑/修改标注样式变量。
有人能帮我写代码吗,
谢谢
拉姆赞 这是一件奇怪的事。首先创建一个新的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
末端接头
页:
[1]