SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: SolidWorks最高阶层API物件:SldWorks(4) [打印本页]

作者: phx118 时间: 2008-7-22 00:06
标题: SolidWorks最高阶层API物件:SldWorks(4)
到目前为止，势乎都是使用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 nRetvalAs Long '用来接收使用者点选的按钮
nRetval = swApp.SendMsgToUser2("另存新档成功.", swMbInformation , swMbHitYes)
执行时将出现下图

接着文件中将nRetval 以讯息视窗告知使用者。
程式可加入
MsgBox (nRetval)
将可获得一长整数，作为判断使用者点选按钮。

作者: a4639257 时间: 2008-8-29 07:18
目前也正在学习中~ 谢谢喔

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)