SolidWorks最高階層API物件:SldWorks(4)

fang9595

到目前為止，勢乎都是使用api，然而api除了使用，亦可作設定與擷取資訊。
對於api使用過程，把獲得的資料印出(print)是程式寫作必經過程，除了可用vb的「print.Debug」印出內容與「MsgBox」顯示訊息方塊，api亦有自已的訊息方塊可供使用者使用，即SldWorks:: SendMsgToUser2
其文法結構為：
Syntax (OLE Automation)

result = SldWorks.SendMsgToUser2 ( message, icon, buttons )


其中引是第一個message為預顯示的內容。
第二個引數icon共有四種訊息符號，分別為swMbWarning(警告符號)、swMbInformation(資訊驚嘆號)、swMbQuestion(問號)、swMbStop(禁止X符號)
而第三個引數buttons則提供了 Abort、 Ignore 、No 、OK 、 Retry 、Yes 、Cancel 等七種排列組合，要使用的引數內容可參考swMessageBoxResult_e
而回傳值result可回傳一長整數(Long)，可獲得使用者點選那一個按鈕。
實際例子如下：
Dim swApp As SldWorks.SldWorks
Dim nRetval  As Long '用來接收使用者點選的按鈕
nRetval = swApp.SendMsgToUser2("另存新檔成功.", swMbInformation , swMbHitYes)
執行時將出現下圖


接著文件中將nRetval 以訊息視窗告知使用者。
程式可加入
MsgBox (nRetval)
將可獲得一長整數，作為判斷使用者點選按鈕。

小小誠

目前也正在學習中~ 謝謝喔