明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2224|回复: 3

有关AddDimRotated的问题

[复制链接]
发表于 2005-7-29 15:20:00 | 显示全部楼层 |阅读模式
请问如何添加一个测量y柱方向两点距离的标注呀。好像默认是绘制的水平方向的标注。
发表于 2005-7-29 18:14:00 | 显示全部楼层
用ThisDrawing.ModelSpace.AddDimAligned代替
 楼主| 发表于 2005-7-31 15:32:00 | 显示全部楼层
改变一种思路,的确得到了解决。谢谢
发表于 2005-8-1 12:59:00 | 显示全部楼层
  1. Sub Example_AddDimRotated()
  2.     ' 明经通道VBA示例,http://www.mjtd.com
  3.    
  4.     ' 该示例在模型空间中创建水平和垂直标注。
  5.         
  6.     Dim dimObj As AcadDimRotated
  7.     Dim LineObj As AcadLine
  8.     Dim point1(0 To 2) As Double
  9.     Dim point2(0 To 2) As Double
  10.     Dim location(0 To 2) As Double
  11.     Dim rotAngle As Double
  12.    
  13.     ' 定义标注
  14.     point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
  15.     point2(0) = 5#: point2(1) = 5#: point2(2) = 0#
  16.     location(0) = 0#: location(1) = 0#: location(2) = 0#
  17.    
  18.     '绘制直线
  19.     Set LineObj = ThisDrawing.ModelSpace.AddLine(point1, point2)
  20.     LineObj.color = acRed
  21.    
  22.     ' 在模型空间中创建水平标注
  23.     rotAngle = 0
  24.     rotAngle = rotAngle * 3.141592 / 180#       ' 转换为弧度
  25.    
  26.     Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)
  27.     dimObj.color = acGreen
  28.    
  29.     ' 在模型空间中创建垂直标注
  30.     rotAngle = 90
  31.     rotAngle = rotAngle * 3.141592 / 180#        ' 转换为弧度
  32.    
  33.     Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)
  34.     dimObj.color = acGreen
  35.    
  36.     ThisDrawing.Application.ZoomExtents
  37. End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-27 12:42 , Processed in 0.153737 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表