半径标注和对齐尺寸标注的过滤码?
我想选择图中所有的半径标注和对齐尺寸标注,这两个对象的选择集的过滤码是什么?望各位多多指教,指点一二,谢谢!!! <TABLE class=BasicRight cellSpacing=0 rules=cols>
<TBODY>
<TR class=row_0>
<TH class=BasicRight_CELL>
<P class=table_heading>组码
</TH>
<TH class=BasicRight_CELL>
<P class=table_heading>说明
</TH></TR></TBODY></TABLE>
<TABLE class=BasicRight cellSpacing=0 rules=cols>
<TBODY>
<TR class=row_2>
<TD class=BasicRight_CELL>
<P class=table_body>70
<P class=table_body>
</TD>
<TD class=BasicRight_CELL>
<P class=table_body>标注类型：<BR>值 0-6 是整数值，表示标注类型。值 32、64 和 128 是添加到整数值的位值（在 R13 及以后的版本中始终设置为 32）<BR>0 = 旋转、水平或垂直；1 = 对齐<BR>2 = 角度；3 = 直径；4 = 半径<BR>5 = 三点角度；6 = 坐标<BR>32 = 表示块参照（组码 2）仅由该标注参照。<BR>64 = 坐标类型。这是一个位值（位 7），仅与整数值 6 一起使用。如果设置该值，则坐标为 X 类型；如果不设置，则坐标为 Y 类型。<BR>128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）
</TD></TR></TBODY></TABLE> 利用VBA做点坐标标注（DIMORDINATE）时，如何移动坐标系。（当自定义UCS后，利用程序做的坐标依然是以WCS为基准生成，如果再利用thisdrawing.utility.transbyorxxxxx,可以进行转换，但位置已经变了，不知有没其他解决方法？）多谢！！！ 明总：半径标注应该属实体类型
gpcode(0) = 0<BR> datavalue(0) = "DimRadial"
groupcode = gpcode: datacode = datavalue<BR> Set myss = ThisDrawing.SelectionSets.Add("ms1")<BR> Call myss.Select(acSelectionSetAll, , , groupcode, datacode)
用上述的代码，怎么不行？ TranslateCoordinates指的是先转换点，再用转换后的点来生成标注。<BR>标注对象的图元名均一样：DIMENSION，所以你的代码就不行了。 多谢答复。那不知道有没有比较切实可行的方法去实现以利用UCS（不同的原点），来进行尺寸标注呢？（另外还有，如果对象是个多义线，其中有圆弧，如何选到圆心来标注，一定需要炸开吗？？） 请教： 如何利用VBA程序实现命令中的倒角呢？多谢！ 请教：图块中包含属性，如何利用VBA来获取这些属性值呢？ 实现命令中的倒角,直接调用SendCommand函数
获取属性值用块引用对象的函数GetAttributes 多谢！
页:
[1]
2