waley111 发表于 2005-12-23 23:22:00

[求助]VB中为CAD14增加标注样式

<P>我想在VB中为CAD14增加标注样式，设定标注变量值失效，但是同样的语句在CAD2002中有用，是不是CAD14不支持设置VBA的设置标注样式啊？*-*8 </P>
<P>设置语句如下：</P>
<P>&nbsp;&nbsp;&nbsp; Dim DimStyle As Object</P>
<P>&nbsp;&nbsp;&nbsp; Set DimStyle = AcadDoc.DimStyles.Add("DimStyle")</P>
<P>&nbsp;&nbsp;&nbsp; AcadDoc.ActiveDimStyle = DimStyle</P>
<P>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimScale", 1&nbsp;&nbsp;&nbsp; '设置全局比例因子<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimLFac", 10 '线性比例因子. '1'=1:1, '2'=2:1,'.5'=1:2等<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DIMSAH", 1&nbsp; '设置该值为1，标注箭头形式才有用<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimBlk1", "_ARCHTICK"&nbsp;&nbsp;&nbsp;&nbsp; '当 DIMSAH 系统变量打开时，设置尺寸线第一个端点的箭头<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimBlk2", "_ARCHTICK"&nbsp;&nbsp;&nbsp;&nbsp; '当 DIMSAH 系统变量打开时，设置尺寸线第二个端点的箭头<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimASz", 1.5&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制尺寸线、引线箭头的大小。并控制钩线的大小<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimDLE", 1#&nbsp;&nbsp;&nbsp;&nbsp; '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimDLI", 2#&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制基线标注中尺寸线的间距<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimDSep", "."&nbsp;&nbsp;&nbsp; '指定一个单字符作为创建十进制标注时使用的小数分隔符<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimExe", 1#&nbsp; '指定尺寸界线超出尺寸线的距离<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimExO", 1.5 '指定尺寸界线偏移原点的距离<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimGap", 0.5 '当尺寸线分成段以在两段之间放置标注文字时，设置标注文字周围的距离</P>
<P>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTxSty", "MYSTYLE"&nbsp;&nbsp;&nbsp;&nbsp; '指定标注的文字样式<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimAltD", 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制换算单位中小数位的位数<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimDec", 0<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTxt", 2#&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '指定标注文字的高度，<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimJust", 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制标注文字的水平位置<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 0 将文字置于尺寸线之上，并在尺寸界线之间置中对正<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTAD", 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制文字相对尺寸线的垂直位置<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '0 标注文字在尺寸界线之间居中放置<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTIH", 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制所有标注类型（坐标标注除外）的标注文字在尺寸界线内的位置<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '0 或关 将文字与尺寸线对齐<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTIX", 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '在尺寸界线之间绘制文字<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '0 或关 结果随标注类型的不同而不同。对于线性和角度标注，AutoCAD<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '将文字放置到尺寸界线之间（如果有足够的空间）。对于不适于放入圆<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '或圆弧中的半径标注和直径标注，DIMTIX 无效并总是强制将文字放到圆或圆弧之外<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTOFL", 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制是否将尺寸线绘制在尺寸界线之间（即使文字放置在尺寸界线之外）<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTOH", 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制标注文字在尺寸界线外的位置<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTSz", 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '指定线性标注、半径标注以及直径标注中替代箭头的小斜线尺寸<BR>&nbsp;&nbsp;&nbsp; AcadDoc.SetVariable "DimTVP", 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '控制尺寸线上方或下方标注文字的垂直位置</P>

<P><BR>&nbsp;&nbsp; DimStyle.copyfrom AcadDoc</P>
页: [1]
查看完整版本: [求助]VB中为CAD14增加标注样式