CAA如何引用VB或者VBA程序

诸位大哥,CAA如何应用VBA或者VB程序,而且能设置好接口..以后便于在工具条中增加VB编的程序,谢谢!

歆韵 发表于 2011-2-14 08:53
我找到CAA调用VBA的方法，但编译运行时编译不过去，加的头文件也不识别

请问在哪里找到的，请赐教！

把VB 的exe文件写成 catvbs文件 然后再做成TOOLBAR就可以了

Sub CATMain()
CATIA.SystemService.ExecuteBackgroundProcessus "D:\mymenu\FirstMold.exe"
End Sub

HNBoTree 发表于 2005-11-18 15:17
CATIAxxxx的一般就是VBA的接口，跟其他的接口调用是一样的。

我找到CAA调用VBA的方法，但编译运行时编译不过去，加的头文件也不识别

原帖由 xinghesnak 于 2005-11-23 08:19 发表
saeba兄,谢谢了,你写出上面的话我才明白怎么回事...我照你的方法试试!请教一下我用ShellExiecute执行VBA生成的EXE文件,是否有可行性??
XACF兄,怎么再Macro中如何调vb/vba,请赐教!

FRIST:
REGSVR32   GETPOINT.DLL



Language="VBSCRIPT"

Sub CATMain()
Dim o As GetPoint.Class1
Dim x As Double
Dim y As Double
Dim z As Double

Set o = CreateObject("GetPoint.class1")
o.x = 5
o.y = 15
o.z = 25

Set o1 = getObject(,"GetPoint.class1")

o.Start
x = o.x
y = o.y
z = o.z
'MsgBox " x= "  x+ " y= " + Str(y) + " z= " + Str(z)

Dim HybridBody0 As HybridBody
Set HybridBody0 = CATIA.ActiveDocument.Part.HybridBodies.Add

CATIA.ActiveDocument.Part.Update

Dim HybridShapePointCoord1 As HybridShapePointCoord

Set HybridShapePointCoord1 = CATIA.ActiveDocument.Part.HybridShapeFactory.AddNewPointCoord  ( x,y,z )

HybridBody0.AppendHybridShape HybridShapePointCoord1

CATIA.ActiveDocument.Part.Update

End Sub

轻轻的顶一下^_^

唉,本人菜鸟啊,怎么在Command中,用CATScriptUtilities::ExecuteScript()啊?
是不是在文件头#include "CATScriptUtilities.h"然后在构造函数BuildGraph()中添加
ExecuteScript("D:\1.macro",catScriptLibraryTypeVBAProject,"",CATVariant,"CATMain",NULL,0,true);
是这样吗??

saeba兄,谢谢了,你写出上面的话我才明白怎么回事...我照你的方法试试!请教一下我用ShellExiecute执行VBA生成的EXE文件,是否有可行性??
XACF兄,怎么再Macro中如何调vb/vba,请赐教!

xinghesnak, 怎么还不会呢？
其实你如果仔细看了我和XACF的帖子就知道该怎么做了呀：
写一个Macro,在Macro中调用你的VB/VBA程序，
在写一个CAA工具条，加一个command,在这个command中调用你的那个Macro
这样不就可以了吗？
CATScriptUtilities::ExecuteScript()可以用来在command中调用Macro
至于在Macro中怎么调VB/VBA,你就要问XACF了，我不熟

XACF:请你告诉我们怎么在Macro中调VB/VBA?

不顶了,没有人会啊!