外部編程

利用VB/VC 外部編程能力

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

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

功能和應用領域。

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

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

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

步驟1：打開PC-DMIS 軟件

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

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

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

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

步驟4：工程文件類型

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

步驟5：添加命令按鈕

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

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

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

Private Sub Command1 Click()

End Sub

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

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

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

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

步驟7：在函數中添加內容。

在函數中添加內容，完成設計要求動作，方法是：

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

碼，

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

執行VB 程序

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

按“取出測量點數據”按鈕，您可以在c:目錄下發現一個名為point.txt 的文件，該文件內容如下：

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

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

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

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

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

往期精彩：