CATIA.SystemService.ExecuteScript problem

[appvid]

Hello All

I'm trying to use below code to run CATVBS code from VBA. It throws an error that "Function or interface marked as restricted or function uses an automation type is not supported in VB"

Sub CATMain()

Dim EmptyPar()
Dim ScPath

Path = "C:\tmp"

CATIA.SystemService.ExecuteScript Path, catScriptLibraryTypeDirectory, "macro1.catvbs", "CATMain", EmptyPar

End Sub

☺- catScriptLibraryTypeDirectory is correct for catvbs????? or

do i need some settings to be changed.


regards

 

[appvid]

there is a typo , please read Dim Scpath as Dim Path .. sorry

(my CAD workstation is in different network from my mailing system. so can not copy paste my codes exactly. i have to retype all the code to post a thread in forum. )

 

[appvid]

Guys never mind I solved it.i used this

Call vSystemService.ExecuteScript("C:\Temp", catScriptLibraryTypeDirectory, "SetPartNumber.CATScript", "CATMain", params)

 

[ferdo]

Hi,

So, problem was in fact in catvbs, you used As statement....by changing extension with CATScript problem was solved, isn't it?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[appvid]

Hello fernando,

Iam still executing catvbs.

1) I did early binding on CATIA.SystemService then used "Call".
2) params empty ie. Dim Params ()
3) catScriptLibraryTypeDirectory is correct for catvbs and CATscript

Problem solved

regards
var

 

[ferdo]

I was thinking that the problem was in script which you were calling not in the catvbs where you are currently executing, that was my feeling.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[appvid]

you are right. problem was with script line that calling catvbs..