vb.net量取画线长度 vb怎么画线用line

VB.Net中画直线问题

不想整个重画，最好用单色的背景，例如黑色，线条是白色的

创新互联从2013年成立，先为汤旺等服务建站，汤旺等地企业，进行企业商务咨询服务。为汤旺企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

用变量把线条的内容备份

当想改变线条的位置或者长度之前，先用存下来的变量以黑色重画一次，覆盖原来的白色线条

然后再画新的白色线条，这种重画方法比较节省资源

假如需要用花哨的背景或者图片当背景，也可以用局部重回的方式。

代码就不提供了，只提供思路。

vb.net提取CAD图元长度

Dim g As Graphics = CreateGraphics() Dim flpWidht As Integer = g.MeasureString(str, New Font("微软雅黑", 10)).Width 能够获取，但是不是很准确。

参考一下Visual Basic与AutoCAD二次开发》这本书，网上有电子版。

CATIA基于VB的二次开发如何测一条直线的长度

首先,你要得到当前文档的SPAWorkbench对象.

代码如下:

Dim TheSPAWorkbench As Workbench

Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" )

然后,你要得到Measurable对象.

代码如下:

Dim TheMeasurable As Measurable

Set TheMeasurable = TheSPAWorkbench.GetMeasurable(referenceObject)

其中 referenceObject就是你要测量的直线的reference.

最后,有了Measurable以后,你就可以使用这个对象得到只想的长度了.

代码如下:

Dim ALength As double

ALength = TheMeasurable.Length