VB.Net中畫直線問題

不想整個重畫，最好用單色的背景，例如黑色，線條是白色的

創(chuàng)新互聯(lián)從2013年成立，先為湯旺等服務(wù)建站，湯旺等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為湯旺企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

用變量把線條的內(nèi)容備份

當(dāng)想改變線條的位置或者長度之前，先用存下來的變量以黑色重畫一次，覆蓋原來的白色線條

然后再畫新的白色線條，這種重畫方法比較節(jié)省資源

假如需要用花哨的背景或者圖片當(dāng)背景，也可以用局部重回的方式。

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

vb.net提取CAD圖元長度

Dim g As Graphics = CreateGraphics() Dim flpWidht As Integer = g.MeasureString(str, New Font("微軟雅黑", 10)).Width 能夠獲取，但是不是很準(zhǔn)確。

參考一下Visual Basic與AutoCAD二次開發(fā)》這本書，網(wǎng)上有電子版。

CATIA基于VB的二次開發(fā)如何測一條直線的長度

首先,你要得到當(dāng)前文檔的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