hexagon logo
Register Sign in
  • Replies 39 replies
  • Subscribers 35 subscribers
  • Views 830 views
  • Users 0 members are here
Options
Related

Scripting Help for auto Save-as

DaSalo
Trying to get going on some scripting and automation. Very new to this so any and all help most appreciated. The following code gives this error :

---------------------------
PC-DMIS Basic Scripting Engine
---------------------------
Error on line: 9 - OLE Automation object does not have a default value
---------------------------
OK
---------------------------

Can someone help me get this simple script running? 

Sub Main ()
Dim App As Object
Dim Part As Object
Set App = CreateObject ("PCDLRN.Application")
Set Part = App.ActivePartProgram
Dim Serial As Object
Set Serial = Part.GetVariableValue("V1")
Dim NewName$
NewName = Part.Path & Part.PartName & "_" & Serial & ".PRG"
retval = Part.SaveAs(NewName)
' Cleanup
Set Part = Nothing
Set App = Nothing
End Sub


I believe this code was originally posted in a different (and probably much better) form by VPT.se. I'm trying to learn how to do this sort of thing by modifying it.

Thanks for any help.
Parents
  • DaSalo, you've written about the problem, and you also provided the solution. The only thing you didn't do was to thank you(rself) for it, so I will.

    Thank you for providing something that I am sure others would find useful.

    vpt.se and craiger_ny - Thanks guys for providing code so others can learn and evolve.
Reply
  • DaSalo, you've written about the problem, and you also provided the solution. The only thing you didn't do was to thank you(rself) for it, so I will.

    Thank you for providing something that I am sure others would find useful.

    vpt.se and craiger_ny - Thanks guys for providing code so others can learn and evolve.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement