y1982_0 发表于 2005-7-13 21:23:00

[VBA]改变标注箭头的大小？

把箭头变长，变窄？那一项设置？在线等

y1982_0 发表于 2005-7-13 23:03:00

<P>顶！</P>

wyj7485 发表于 2005-7-14 08:44:00

dimasz系统变量

fanny_6 发表于 2005-7-14 09:28:00

<P>可以在文档a中手工定义一个标注样式，箭头用自定义箭头。</P>
<P>如果其他地方要用这个样式，可以利用ObjectDBX把文档a中的这个标注样式调用过来，我就是这样做的，效果不错。</P>
<P>如果用户需要改用其他标注样式，只要在文档中改，不用改程序</P>

y1982_0 发表于 2005-7-14 13:57:00

我已经解决这个问题，两位的意见都对，谢谢，现在想把附件中的标注文字移到尺寸线正上方，怎么设置呢？

y1982_0 发表于 2005-7-14 14:13:00

<P>在autocad标注样式里有这项设置：</P>
<P>“文字始终保持在尺寸界限之间“，但是VBA里面怎么设置？</P>
<P>&nbsp;.SetVariable "DimAtFit", 3&nbsp;&nbsp;&nbsp;&nbsp; '当尺寸界线的空间不足以同时放下标注文字和箭头&nbsp;&nbsp; 时,&nbsp;&nbsp;&nbsp; 确定这两者的排列方式</P>
<P>这个属性就从0到3，也没有“文字始终保持在尺寸界限之间“这项啊？</P>

wyj7485 发表于 2005-7-14 14:25:00

你这个问题应该放到&lt;&lt;基础应用&gt;&gt;中去啊!

y1982_0 发表于 2005-7-15 14:07:00

<P>谢谢提醒，我自己搞定了，有下面的这些属性来改变，我都做好标记了</P>
<P>&nbsp;&nbsp; .SetVariable "DimTAD", 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; '0 标注文字在尺寸界线之间居中放置<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'1&nbsp; 除非尺寸线不是水平放置的或者尺寸界线内的文字被强制为水平放置<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(DIMTIH = 1)，否则就将标注文字放置在尺寸线的上方。标注文字最底部<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; '基线到尺寸线的距离值就是系统变量DIMGAP 的当前值。<BR>&nbsp;.SetVariable "DimTIH", 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 或关 将文字与尺寸线对齐<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; '1 或开 将文字水平放置<BR>&nbsp;.SetVariable "DimTIX", 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '在尺寸界线之间绘制文字<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '0 或关 结果随标注类型的不同而不同。对于线性和角度标注，AutoCAD<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '将文字放置到尺寸界线之间（如果有足够的空间）。对于不适于放入圆&nbsp;'或圆弧中的半径标注和直径标注，DIMTIX 无效并总是强制将文字放到圆或圆弧之外<BR>&nbsp;&nbsp;&nbsp; '1 或开 将标注文字绘制在尺寸界线之间，即使 AutoCAD 通常将这些文字放置于尺寸界线之外。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .SetVariable "DimTMOVE", 2&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&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; '1&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; '2&nbsp; 允许标注文字自由移动而不用添加引线<BR></P>

xionxion 发表于 2005-7-30 16:24:00

<P>打开他的特性.就可以改.</P>
<P>程序可用aaa.ArrowheadSize = 值</P>
<P>来修改.</P>
<P>还有很多属性,自己找找.</P>

y1982_0 发表于 2005-8-4 17:19:00

<P>谢谢，那个值写什么呢？我怎么最近打开这个网页特别困难呢？别的网页都没有问题啊？是不是明镜通道的问题？</P>
<P>你们呢？</P>
页: [1] 2
查看完整版本: [VBA]改变标注箭头的大小？