不想整个重画，最好用单色的背景，例如黑色，线条是白色的
创新互联从2013年成立，先为汤旺等服务建站，汤旺等地企业，进行企业商务咨询服务。为汤旺企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
用变量把线条的内容备份
当想改变线条的位置或者长度之前，先用存下来的变量以黑色重画一次，覆盖原来的白色线条
然后再画新的白色线条，这种重画方法比较节省资源
假如需要用花哨的背景或者图片当背景，也可以用局部重回的方式。
代码就不提供了，只提供思路。
Dim g As Graphics = CreateGraphics() Dim flpWidht As Integer = g.MeasureString(str, New Font("微软雅黑", 10)).Width 能够获取，但是不是很准确。
参考一下Visual Basic与AutoCAD二次开发》这本书，网上有电子版。
首先,你要得到当前文档的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