Страница 1 из 1

помогите с run command

Добавлено: 19 фев 2013, 10:43
sysrepos
не получается выполнить команду run command. Не могу понять в чем ошибка. Программа должна сохранять все выбранные таблицы в заданную проекцию.

for i=1 to numtables() 'количество откр. таблиц
nt=text(i) 'массив, заполненный именами таблиц
pro="zona_"+ text(i) 'zona чтобы новые сохр. таблицы начинались со слова zona
cmnd="Commit Table nt As pro TYPE NATIVE CoordSys Earth Projection 1, 0 Interactive"
note cmnd
Interactive
run command cmnd
next

Пишет ошибку "Не определена переменная или поле"
Если то же самое делать без run command, то все получается.
(хочу использовать run command, что бы потом можно было выбирать проекцию в окне выбора,
cmd="Commit Table nt As pro TYPE NATIVE "+ strp + " Interactive"
run command cmd
но пока даже так не работает, хотя в справке написано что текстовые переменные можно использовать)
пишет ошибку не определена переменная или поле pro

Re: помогите с run command

Добавлено: 19 фев 2013, 11:25
sysrepos
strp=ChooseProjection$( "", True) ' окно выбора проекции

Re: помогите с run command

Добавлено: 19 фев 2013, 12:56
ginpetr
В команде нельзя использовать имена переменных. Вот так, думаю, будет работать:
run command "Commit Table "+nt+" As "+pro+" TYPE NATIVE CoordSys Earth Projection 1, 0 Interactive"

Re: помогите с run command

Добавлено: 19 фев 2013, 14:49
sysrepos
получилось, вот рабочий вариант
nt=chr$(34)+text(i)+chr$(34)
pro=chr$(34)+"zona_"+ text(i)+chr$(34)
cmd="Commit Table "+ nt +" As " + pro + " TYPE NATIVE "+ strp+" Interactive"
run command cmd