CAD tip # 10956:

Funkce evalVBS je řešením pro tyto situace. Můžete ji použít pro rychlé spuštění jakéhokoliv programového kódu v jazyce VBscript z vašich programů v LISPu. Stáhněte si zdrojový kód funkce evalVBS.LSP od CAD Studia z Download a po načtení ji zavolejte pomocí (evalVBS "můjVBSkód").

;příklady použití (pro návratové hodnoty použijte proměnnou 'result'):
;(evalVBS "MsgBox(\"Hello world!\")")
;(setq mystring2 (evalVBS (strcat "result = LCase(\"" mystring1 "\")")))
;(evalVBS "MsgBox(\"VBcommand 1\") : MsgBox(\"VBcommand 2\")")
;(evalVBS "MsgBox(\"VBcommand 1\")\nMsgBox(\"VBcommand 2\")")
;
;návratové hodnoty:
;"" = nevrácena žádná hodnota
;nil = volání selhalo
;"1.xxxx" = návratová hodnota jako řetězec