明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 917|回复: 2

尺寸线问题!!

[复制链接]
发表于 2008-5-31 17:24:00 | 显示全部楼层 |阅读模式
为什么我在VB调用CAD绘图时那个标注时的尺寸线特别长!!
发表于 2008-6-1 14:07:00 | 显示全部楼层

    .................. 

      If Abs(point1(0) - point2(0)) > 0 Then
         '水平方向
         location(0) = HMaxy + conLabel - conD * i
         location(1) = HMaxy + conLabel - conD * i
         location(2) = HMaxy + conLabel - conD * i
        
         pt1(0) = point1(0)
         pt1(1) = HMaxy + conLabel - 0.6 * conD - conD * i
         pt1(2) = 0
     
         pt2(0) = point2(0)
         pt2(1) = HMaxy + conLabel - 0.6 * conD - conD * i
         pt2(2) = 0
     
         Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(pt1, pt2, location, 0)
        
         Set newText = ThisDrawing.TextStyles.Add("MYSTYLE")

         newText.height = TextH   ' 设定新样式的高度

         ThisDrawing.Application.ZoomAll

         ' 增加标注间隙的距离
         dimObj.TextGap = 4
         dimObj.TextColor = acRed
         dimObj.TextStyle = "MYSTYLE"

         ThisDrawing.Regen acAllViewports
        
      End If

...........

标注函数中 端线长度是pt1 ,pt2到点 location  x 或 y方向的差值大致相等;

可以通过改变pt1 和pt2 是x 或 y方向的值来控制端线长度

 楼主| 发表于 2008-6-6 16:32:00 | 显示全部楼层
虽然问题已解决了!!但还是要谢谢你!!!有劳了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-26 08:30 , Processed in 0.168269 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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