xsquan 发表于 2002-12-27 12:18:00

在vb中怎么实现 cad中的basicline dimension

我想在cad中实现 basicline dimension 请问在vb中应该用什么命令，我试过编程来实现，但是效果不好，

efan2000 发表于 2002-12-27 13:20:00

用DimAligned对象吧，这个可以标注水平或者倾斜的。

zhuqi75 发表于 2003-1-23 11:29:00

这个问题好像很难，谁会为你话那么多的时间呢，

syk070205 发表于 2010-8-1 18:52:00

使用旋转标注，就可以标注任何角度的内容！
'自定义函数,创建能够修改尺寸文字的旋转标注函数(可用于水平和垂直标注)
Public Function AddDimRotatedCTxt(pt1 As Variant, pt2 As Variant, ptText As Variant, angle As Double, text As String) As AcadDimRotated
Dim objDim As AcadDimRotated
Set objDim = docObj.ModelSpace.AddDimRotated(pt1, pt2, ptText, angle)
objDim.TextOverride = text
objDim.ArrowheadSize = 2.5 * drawScale    '改变箭头大小(以缩放比例为基准)
objDim.TextHeight = 3.5 * drawScale       '改变文字高度(以缩放比例为基准)
objDim.TextGap = 1# * drawScale
objDim.ExtensionLineExtend = 2# * drawScale
objDim.Update
Set AddDimRotatedCTxt = objDim
End Function
页: [1]
查看完整版本: 在vb中怎么实现 cad中的basicline dimension