半径标注和对齐尺寸标注的过滤码?

nxy_918 · 发表于 2004-4-3 20:49:00

我想选择图中所有的半径标注和对齐尺寸标注,这两个对象的选择集的过滤码是什么?

望各位多多指教,指点一二,谢谢!!!

mccad · 发表于 2004-4-3 22:29:00

组码	说明

70	标注类型：值 0-6 是整数值，表示标注类型。值 32、64 和 128 是添加到整数值的位值（在 R13 及以后的版本中始终设置为 32） 0 = 旋转、水平或垂直；1 = 对齐 2 = 角度；3 = 直径；4 = 半径 5 = 三点角度；6 = 坐标 32 = 表示块参照（组码 2）仅由该标注参照。 64 = 坐标类型。这是一个位值（位 7），仅与整数值 6 一起使用。如果设置该值，则坐标为 X 类型；如果不设置，则坐标为 Y 类型。 128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）

Royal_cad · 发表于 2004-4-4 00:03:00

利用VBA做点坐标标注（DIMORDINATE）时，如何移动坐标系。（当自定义UCS后，利用程序做的坐标依然是以WCS为基准生成，如果再利用thisdrawing.utility.transbyorxxxxx,可以进行转换，但位置已经变了，不知有没其他解决方法？）多谢！！！

nxy_918 · 发表于 2004-4-4 19:34:00

明总：半径标注应该属实体类型 gpcode(0) = 0
datavalue(0) = "DimRadial" groupcode = gpcode: datacode = datavalue
Set myss = ThisDrawing.SelectionSets.Add("ms1")
Call myss.Select(acSelectionSetAll, , , groupcode, datacode) 用上述的代码，怎么不行？

mccad · 发表于 2004-4-4 20:08:00

TranslateCoordinates指的是先转换点，再用转换后的点来生成标注。
标注对象的图元名均一样：DIMENSION，所以你的代码就不行了。

Royal_cad · 发表于 2004-4-11 22:38:00

多谢答复。那不知道有没有比较切实可行的方法去实现以利用UCS（不同的原点），来进行尺寸标注呢？（另外还有，如果对象是个多义线，其中有圆弧，如何选到圆心来标注，一定需要炸开吗？？）

Royal_cad · 发表于 2004-4-12 23:57:00

请教：如何利用VBA程序实现命令中的倒角呢？多谢！

Royal_cad · 发表于 2004-4-18 00:47:00

请教：图块中包含属性，如何利用VBA来获取这些属性值呢？

雪山飞狐_lzh · 发表于 2004-4-18 09:15:00

实现命令中的倒角,直接调用SendCommand函数

获取属性值用块引用对象的函数GetAttributes

Royal_cad · 发表于 2004-4-27 22:30:00

多谢！

账号		自动登录	找回密码
密码			注册