外部編程

利用VB/VC 外部編程能力

外部編程能力是指在測量軟件平臺下電銷機器人源碼支持二次開發(fā)，通過VB/VC 等高級編程語言進行高級編程的能力。

PC-DMIS 測量軟件提供了強大的內(nèi)部編程能力和外部編程能力電銷機器人源碼支持二次開發(fā)，用戶不僅可以進行靈活的零件編程，也可以通過VB/VC/C++ 高級語言進行高級編程。通過外部編程方式在PC-DMIS 測量軟件平臺下，電銷機器人源碼支持二次開發(fā)我們開發(fā)了齒輪專用測量評價軟件包，葉片測量評價軟件包，PC-DMIS 與EXCEL 之間數(shù)據(jù)傳遞等應用程序，擴大了PC-DMIS 測量軟件

功能和應用領域。

下面通過一些簡單的編程例子，僅僅展示編程思路，程序本身的意義對您沒有太大價值。

●利用VB 編程(外部編程事例I)

通過一事例，描述VB 編程全過程。下面這個例子是用VB 實現(xiàn)特殊測量結(jié)果報告的輸出，也就是PC-DMIS 測量完成后，把所有測量點坐標提取出來直接寫到一個ASCII 文件中。

步驟1：打開PC-DMIS 軟件

步驟2：編寫測量點元素的PC-DMIS 程序。

運行該PC-DMIS 程序后，得到了一些點坐標和圓心坐標，下面我們編制一VB 程序，從測量結(jié)果中取出點坐標，并保存到一文件中。

步驟3：打開VB 軟件，編寫VB 程序。

打開Visual Basic，選擇菜單“文件” ->“新建工程”，這時出現(xiàn)一對話框讓電銷機器人源碼支持二次開發(fā)你選擇新建種類，如下圖：

步驟4：工程文件類型

選擇“標準EXE”并按“確定”，這時VB 就進入一個可供編程的新工程，該工程開始時提供了一個空的Form，如下圖：

步驟5：添加命令按鈕

通過工具菜單，在新工程中，添加命令按鈕，方法是：

在V B 左邊的工具欄中， 我們選擇CommandButton，并在這個空的Form 中“畫”一個Button。在右邊的屬性欄中，首先修改“名稱”為cmdGetPointsData，然后修改“Caption”為“取出測量點數(shù)據(jù)”，這里設計的Form。如圖4.20 所示：

用鼠標雙擊Button, 這時VB 產(chǎn)生一個空的Function , 如下：

Private Sub Command1 Click()

End Sub

步驟6：引用PC-DMIS 編程接口。

把PC-DMIS 編程接口引用到該工程中, 方法是:選擇菜單“工程”-> “引用”, 這里出現(xiàn)引用

對話框，在“可用的引用”中找到PC-DMIS3.5(或3.2)并選擇上，如下圖：

確定后，PC-DMIS 的接口庫PCDLRN.TLB就被加入到我們的工程中了。

步驟7：在函數(shù)中添加內(nèi)容。

在函數(shù)中添加內(nèi)容，完成設計要求動作，方法是：

在Command1_Click() 函數(shù)體中加入程序代

碼，

Private Sub Command1_Click()

Dim appPcdmis As New PCDLRN.Application

Dim prtsPcdmis As PCDLRN.PartPrograms

Set prtsPcdmis = appPcdmis.PartPrograms

Dim prtPcdmis As PCDLRN.PartProgram

Set prtPcdmis= appPcdmis.ActivePartProgram

Dim cmdsPcdmis As PCDLRN.Commands

Set cmdsPcdmis = prtPcdmis.Commands

Dim cmdPcdmis As PCDLRN.Command

Dim featName As String

Dim measX, measY, measZ As String

Dim theoX, theoY, theoZ As String

Open "c:point.txt" For Output As #1

For Each cmdPcdmis In cmdsPcdmis

If cmdPcdmis.Type= AUTO_VECTOR_FEATURE

Then

featName = cmdPcdmis.ID

measX = cmdPcdmis.GetText(MEAS_X, 0)

measY = cmdPcdmis.GetText(MEAS_Y, 0)

measZ = cmdPcdmis.GetText(MEAS_Z, 0)

theoX = cmdPcdmis.GetText(THEO_X, 0)

theoY = cmdPcdmis.GetText(THEO_Y, 0)

theoZ = cmdPcdmis.GetText(THEO_Z, 0)

Print #1, featName + " X "+ " Y "+" Z "

Print #1, "ACT ", measX, measY, measZ

Print #1, "NOM ", theoX, theoY, theoZ

Print #1,

End If

Next

Close #1

End Sub

執(zhí)行VB 程序

執(zhí)行VB 程序(PC-DMIS 不能關閉，否則VB程序執(zhí)行后,沒有結(jié)果輸出)。出現(xiàn)如下對話框：

按“取出測量點數(shù)據(jù)”按鈕，您可以在c:目錄下發(fā)現(xiàn)一個名為point.txt 的文件，該文件內(nèi)容如下：

這樣，我們就把數(shù)據(jù)從PC-DMIS 中成功的取了出來，存到了指定的文件中。

PC-DMIS 與EXCEL 之間的數(shù)據(jù)傳遞(外部編程示例II)

EXCEL 是非常優(yōu)秀的制表軟件，用戶可以根據(jù)自己的需要，制做各式各樣的個性化的表格，雖然表格設計容易，但添置和錄入數(shù)據(jù)是非常麻煩的事。下面通過一示例，說明如何把測量數(shù)據(jù)自動添置到設計好的EXCEL 表格中.

在EXCEL 中，雙擊表格中的圖標，PCDMIS軟件中評價的數(shù)據(jù)將會自動傳遞到EXCEL表格中。

關注只需一秒，受益絕非一時

往期精彩：