Стал копать дальше - похоже дело не в Nothing. Я пробовал тоже самое через "MSScriptControl.ScriptControl"... В общем, расскажу поподробнее.
Есть такая штука - "ProGrapherActiveX.ProGrapherControl". Векторная графика, все дела, взаимодействие с пользователем, да еще и бесплатная.
Есть у нее пример на VB. Там есть код:
'Init Doc & Wnd
Set Doc = ctrlProGrapher.Document
'Create Layer "Test"
Doc.CreateLayer(, "Test").Active = True
'Create Rectangle Class
Set rccl = Doc.ActiveLayer.CreateClass(ciRectangle, Nothing)
'Create Rectangles
Set rc1 = rccl.Create(0.04, 0.05, 0.025, 0.025)
Set rc2 = rccl.Create(0.075, 0.05, 0.035, 0.015)
По идее, должно получиться 2 квадрата.
Вижу 2 пути решения - перевести это все на 1С (тут я натыкаюсь на ошибку "Типы не совпадают")
Или пытаться сделать это все на MSScriptControl.ScriptControl.
Получается так:
ТекстСкрипта = "
|Function Main()
|
|Dim rccl as ProGrapherFoundation.RectangleClass
|Dim rc1, rc2 As ProGrapherFoundation.Rectangle
|
| set rccl = Doc.ActiveLayer.CreateClass(1010, Null)
| rc1 = rccl.Create(0.04, 0.05, 0.025, 0.025)
| rc2 = rccl.Create(0.075, 0.05, 0.035, 0.015)
| result = 1
|End Function
|";
VBS=СоздатьОбъект("MSScriptControl.ScriptControl");
VBS.Language="VBscript";
VBS.AddObject("Doc", Объект.Document, "True");
VBS.AddCode(ТекстСкрипта);
Сообщить(VBS.Run("Main"));
"Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции"
Страницы: 1
Проблемы при использовании ActiveX (число прочтений - 3792 )
