[svetrsa]

Уважаемые форумчане, помогите разобраться! Написана программа на VB под AutoCad2010/11. На моем компе все работает! При установке на другой компьютер происходит такая вещь - как только должна выполнятся простейшая SendCommand
myDoc.SendCommand "(setq ptCircle (list " & P5(0) & " " & P5(1) & "))" & vbCr ее результат
Команда: (setq ptPoint (list 35392.25552 93121.184043))
(nil nil) вместо
Команда: (setq ptPoint (list 35392.25552 93121.184043))
(35392.3 93121.2)
и дальше по цепочке перестает работать как надо. Уже установлено все что можно: сам VB, сервиспаки к нему, инсталяторы данной программы - не работает! Помогите пожалуйста!!!!

[gomer]

больше нечего делать как лисп и SendCommand использовать?

[svetrsa]

Сообщение от gomer больше нечего делать как лисп и SendCommand использовать? __________________ Два добрых духа Джин и Тоник

А что делать если команды КАСАТЕЛЬНАЯ в VB не существует.

[Олег (jr.)]

Сообщение от svetrsa А что делать если команды КАСАТЕЛЬНАЯ в VB не существует.

Вместо этого выражения

Код:

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

"(setq ptCircle (list " & P5(0) & " " & P5(1) & "))" & vbCr

надо прописывать каждую ординату отдельно в строку
с заменой запятой как разделителя десятичных на точку
что-то наподобие (не помню точно синтаксис, проверь сам)

Код:

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

"(setq ptCircle (list " & Replace (CStr(P5(0) ,"," ,".") & ETC ETC...)"

скорее всего на другом компьютере десятичный разделитель в переменных как запятая

[svetrsa]

Олег, спасибо! Такая простая вещь, а напрочь вылетело из головы! Да одна голова - хорошо, а форум - лучше.

[Олег (jr.)]

Не за что,
успехов