[Supermax]

vl-prin1-to-string не хочет заменять кавычки на коомбинацию \" хоть тресни. Я в поиске так и не нашел нужное решение. Там пора уже в результатах поиск создавать. Как буд-то и не искал вовсе.
Но смутно припоминаю, что кто-то уже пытался это сделать.

Чтобы было понятно, поясню. Мне надо передать через объект "WScript.Shell" в виде vbs скрипта директиву, для чего я создаю файл vbs и пишу в него такую строку:

Код:

[Выделить все]

(write-line "Document.SendCommand \"(load \"\"D:\\\\Программирование\\\\mip2.lsp\"\") \"" dsl0055)

Все чудно работает, только я хочу заменить \"(load \"\"D:\\\\Программирование\\\\mip2.lsp\"\") \" на переменную, чтобы получилось типа

Код:

[Выделить все]

(write-line (strcat "Document.SendCommand " переменная) dsl0055)

Что в результате бы дало аналог вышеизложенного.

Я практически уже сделал функцию заменяющую vla-SendCommand осталось только ее оформить, чтобы правильно аргумент в строку обращать, но тут конфликт образовался между забаниванием кавычек кадом и vb-скриптом. Хочу чтобы пользователь написав (vla-SendCommand указатель данные) не парился с кавычками.

[Кулик Алексей aka kpblc]

http://forum.dwg.ru/showthread.php?t=15661

[Supermax]

Спасибо, но тут я уже поковырялся. Увы.
Вот функцию выложил

Вот какая гадкая смесь vbs+autolisp получается

Код:

[Выделить все]

(_dwgru-sm-vla-sendCommand "gp1.dwg" "\"(load \"\"D:\\\\Программирование\\\\mip2.lsp\"\") \"")

Как бы это переделать, чтобы как в настоящей vla-SendCommand аргумент мог задаваться?