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

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

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

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

Re: 基线标注

用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]

明经CAD社区's Archiver