就是错 发表于 2008-5-31 17:24:00

尺寸线问题！！

为什么我在VB调用CAD绘图时那个标注时的尺寸线特别长！！

guozi83 发表于 2008-6-1 14:07:00

<p>&nbsp;&nbsp;&nbsp;&nbsp;..................&nbsp; </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Abs(point1(0) - point2(0)) &gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '水平方向<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; location(0) = HMaxy + conLabel - conD * i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; location(1) = HMaxy + conLabel - conD * i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; location(2) = HMaxy + conLabel - conD * i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt1(0) = point1(0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt1(1) = HMaxy + conLabel - 0.6 * conD - conD * i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt1(2) = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt2(0) = point2(0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt2(1) = HMaxy + conLabel - 0.6 * conD - conD * i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt2(2) = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#113dee">Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(pt1, pt2, location, 0)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set newText = ThisDrawing.TextStyles.Add("MYSTYLE")</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; newText.height = TextH&nbsp;&nbsp; ' 设定新样式的高度</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Application.ZoomAll</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 增加标注间隙的距离<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dimObj.TextGap = 4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dimObj.TextColor = acRed<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dimObj.TextStyle = "MYSTYLE"</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Regen acAllViewports<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</p><p>...........</p><p>标注函数中 端线长度是pt1 ，pt2到点 <font color="#113dee">location&nbsp; </font>x 或 y方向的差值大致相等；</p><p>可以通过改变pt1 和pt2 是x 或 y方向的值来控制端线长度</p>

就是错 发表于 2008-6-6 16:32:00

虽然问题已解决了！！但还是要谢谢你！！！有劳了！
页: [1]
查看完整版本: 尺寸线问题！！