建筑问题
当我使用以下设置my1/16“=1'-0”标注参数时，我无法将标注记号显示为拱形记号，因为它始终显示为倾斜。我已经试过很多方法了私有子选项RowThirth_Click（）
将TextStyle0设置为AcadTextStyle
并将newDimStyle设置为AcaddItemStyle
将CurrDimStyl设置为ACaddItemStyl
，将TextStyl0设置为ThisDrawing.TextStyles.Add（“DIMTXT”）
文本样式0.fontFile=“simplex.shx”
TextStyleo.Height=0
设置为This Drawing。SendCommand“_TEXTSTYLE”&vbCr和“DIMTXT”&vbCr＜br＞此绘图。SendCommand“_dimcen”&vbCr&3/32&vbCr＜br＞Dim varData作为变量＜br＞Dim数据类型作为整数＜br＞sysVarName=“DIMSCALE”＜br＞varData=ThisDrawing。GetVariable（sysVarName）
设置newDimStyle=ThisDrawing.DimStyles.Add（“My_Arch”）
thisDrewing。SendCommand“_graphshcr”&vbCr＜br＞此绘图。ActiveDimStyle=newDimStile＜br＞此绘图。发送命令“DIMADEC”&vbCr&2&vbCr＜br＞此绘图。发送命令“DIMALT”和“vbCr”以及“Off”和vbCr＜br＞此绘图。发送命令“DIMALTD”&vbCr&2&vbCr＜br＞此绘图。发送命令“DIMALTF”&vbCr&25.4&vbCr＜br＞此绘图。发送命令“DIMALTRND”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMALTTD”&vbCr&2&vbCr＜br＞此绘图。发送命令“DIMALTTZ”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMALTU”&vbCr&2&vbCr＜br＞此绘图。发送命令“DIMALTZ”&vbCr&0&vbCr＜br＞此绘图。此绘图中的SendCommand“DIMAPAST”和&vbCr&&vbCr
。发送命令“DIMASSOC”&vbCr&1&vbCr＜br＞此绘图。发送命令“DIMASZ”&vbCr&1/8&vbCr＜br＞此绘图。发送命令“DIMATFIT”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMAUNIT”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMAZIN”&vbCr&2&vbCr＜br＞此绘图。发送命令“DIMBLK”&vbCr&“ArchTick”&vbCr＜br＞此绘图。发送命令“DIMBLK1”和vbCr&“ArchTick”&vbCr＜br＞此绘图。发送命令“DIMBLK2”&vbCr&“ArchTick”&vbCr
此绘图。发送命令“DIMCEN”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMCLRD”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMCLRE”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMCLRT”&vbCr&256&vbCr
此绘图。发送命令“DIMDEC”&vbCr&3&vbCr＜br＞此绘图。发送命令“DIMDLE”&vbCr&1/16&vbCr＜br＞此绘图。发送命令“DIMDLI”&vbCr&1/16&vbCr＜br＞此绘图。发送命令“DIMDSEP”&vbCr&“&vbCr
此绘图。发送命令“DIMEXE”&vbCr&1/16&vbCr＜br＞此绘图。发送命令“DIMEXO”&vbCr&1/16&vbCr＜br＞此绘图。发送命令“DIMFIT”&vbCr&5&vbCr＜br＞此图形。发送命令“DIMFRAC”&vbCr&2&vbCr＜br＞此绘图。发送命令“DIMGAP”&vbCr&1/64&vbCr＜br＞此绘图。此绘图中的SendCommand“DIMJUST”和“0”和“vbCr”。发送命令“DIMLDRBLK”&vbCr&&vbCr＜br＞此绘图。发送命令“DIMLFAC”&vbCr&1&vbCr＜br＞此绘图。发送命令“DIMLIM”&vbCr和“OFF”&vbCr＜br＞此绘图。发送命令“DIMLUNIT”&vbCr&4&vbCr＜br＞此绘图。发送命令“DIMLWD”&vbCr&1&vbCr
此绘图。发送命令“DIMLWE”&vbCr&1&vbCr＜br＞此绘图。发送命令“DIMPOST”和&vbCr&&vbCr＜br＞此绘图。发送命令“DIMRND”和vbCr以及“1/16”和vbCr＜br＞此绘图。发送命令“DIMSAH”&vbCr&“On”&vbCr＜br＞此绘图。发送命令“_dimscale”&vbCr和“192”&vbCr＜br＞此绘图。在该绘图中发送命令“DIMSD1”和“vbCr”以及“关闭”和“vbCr”。发送命令“DIMSD2”和“vbCr”以及“关闭”和vbCr＜br＞此绘图。在此绘图中发送命令“DIMSE1”和“vbCr”以及“关闭”和“vbCr”。在此绘图中发送命令“DIMSE2”和“vbCr”以及“关闭”和“vbCr”。发送命令“DIMSHO”&vbCr&“ON”&vbCr＜br＞此绘图。此绘图中的send命令为“DIMSOXD”&vbCr和“OFF”&vbCr
。发送命令“DIMTAD”&vbCr&1&vbCr＜br＞此绘图。发送命令“DIMTDEC”&vbCr&3&vbCr＜br＞此绘图。发送命令“DIMTFAC”&vbCr&1&vbCr＜br＞此绘图。在此绘图中发送命令“DIMTIH”和“vbCr”以及“OFF”和vbCr。发送命令“DIMTIX”&vbCr&“ON”&vbCr＜br＞此绘图。发送命令“DIMTM”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMTMOVE”&vbCr&1&vbCr＜br＞此绘图。发送命令“DIMTOFL”&vbCr&“ON”&vbCr＜br＞此绘图。在此绘图中发送命令“DIMTOH”和“vbCr”以及“OFF”和vbCr。发送命令“DIMTOL”和“vbCr”以及“OFF”和vbCr＜br＞此绘图。发送命令“DIMTOLJ”&vbCr&1&vbCr＜br＞此绘图。发送命令“DIMTP”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMTSZ”&vbCr&1/32&vbCr＜br＞此绘图。发送命令“DIMTVP”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMTXSTY”&vbCr&“DIMTXT”&vbCr＜br＞此绘图。发送命令“DIMTXT”&vbCr&3/32&vbCr＜br＞此绘图。发送命令“DIMTZIN”&vbCr&0&vbCr＜br＞此绘图。发送命令“DIMUNIT”&vbCr&6&vbCr＜br＞此绘图。在此绘图中发送命令“DIMUPT”和“关闭”和“vbCr”。发送命令“DIMZIN”&vbCr&3&vbCr＜br＞此绘图。发送命令“_TEXTSIZE”&vbCr&18&vbCr＜br＞此绘图。SetVariable“DIMBLK”，“_ArchTick”
结束子
**** Hidden Message ***** Matersammichman设置setvar(无sendcomma 首先，我将使用SetVariable而不是SendCommand来设置变量。我在记事本中为查找和替换做了这些更改，因此可能需要更多的清理，但请尝试一下代码1]
布里科击败了我，超过了我，但伊马还是坚持了下来 不要忘记每种风格都有子风格，它们可能会也可能不会受到父风格变化的影响。
维护和设置dim变量的另一个选项是代码2]
该表如下所示。。。
style_name varchar(255) NOT NULL,
style_description varchar(255),
dimasz float8,
dimblk varchar(255),
dimblk1 varchar(255),
dimblk2 varchar(255),
dimcen float8,
dimclrt float8,
dimclrd float8,
dimdle float8,
dimexe float8,
dimfit float8,
dimgap float8,
dimjust float8,
dimlfac float8,
dimpost varchar(255),
dimtad float8,
dimtfac float8,
dimtih float8,
dimtofl float8,
dimtoh float8,
dimtolj float8,
dimtsz float8,
dimtvp float8,
dimtxt float8,
dimsd1 int2 DEFAULT 0,
dimsd2 int2 DEFAULT 0,
dimse1 int2 DEFAULT 0,
dimse2 int2 DEFAULT 0,
dimsoxd int2 DEFAULT 0,
dimldrblk varchar(64),
dimatfit int2,
dimtmove int2,
dimdec int2 DEFAULT 3
这样，您可以拥有许多dim样式并调整它们的设置，而无需重新打开或重新分发您的代码。
所以。。。我想任何与vba等效于“Dimoverride”的“快速修复”对于当前的dimstyle来说都只是一个白日梦？？ 它发生在我身上,我添加这个角固定
页:
[1]