• На форуме с 3 августа 2004г.
  • Сообщений: 20
  • Спасибо: 0

Тема: Может ли быть востребована программа?

Здравствуйте
пожалуйста, подскажите может ли быть востребована
программа позволяющая:
1.организовать методом "двойного операторского ввода" (см.ниже) заполнение
  в dbf таблицы, базу oracle (любую СУБД) результаты измерений -
  границ рудных тел, борта выработок подземных рудников,
  открытых карьеров, результаты геодезических работ.
2.по результатам измерений, через COM интерфейс AutoCAD -
  построение сплайнов (по координатам или направляющим)
  и нанесение отметок (координаты и тексты отметок,
  так же заполняются в БД).
Разумеется возможен SQL доступ к таблицам измерений.
Программа может использоваться как дополнение
к решениям с тахеометрами и КРЕДО, совместно с ними
или вместо их. Среда разработки VisualFoxpro8.
"Двойной операторский ввод (или слепой ввод):
это когда оператор вводит данные не отвлекаясь на мышь,
не глядя в монитор... всё внимание на пачку документов.
есть постоянные для пачки документов значения,
например: номер пачки, месяц -
они должны закрепляться (авто-заполняться) -
чтобы не вводить данные каждую строку...
при достаточном опыте оператора, после такого ввода
каждая сотая строка содержит ошибку.
Ошибки исправляет напарник первого оператора -
на уже введённые данные заполняет ту же пачку и если вводимые
данные отличаются от уже существующих -
раздаётся звуковой сигнал, модальное окно блокирует интерфейс -
оператор принимает решение чьи данные ошибочны.

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

Может вы знаете как  из фокса в асад передать тип вариант.

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

Поделитесь com интерфейсом. Можно за .....  даже за деньги))))

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

****Дополнение*****
Мы тоже можем поделиться наработками. Они орентированы на землеустройство и оформление кадастровых дел.

  • На форуме с 3 августа 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Может ли быть востребована программа?

пример для vfp7,8,9

PUBLIC oCad as Object
m.oCad=CREATEOBJECT([AutoCAD.Application])
Public Array paXYZ(15) as Double
m.paXYZ(1)=100
m.paXYZ(2)=50
m.paXYZ(3)=0
m.paXYZ(4)=150
m.paXYZ(5)=100
m.paXYZ(6)=0
m.paXYZ(7)=220
m.paXYZ(8)=120
m.paXYZ(9)=0
m.paXYZ(10)=300
m.paXYZ(11)=150
m.paXYZ(12)=0
m.paXYZ(13)=100
m.paXYZ(14)=50
m.paXYZ(15)=0
Public Array paBT(3) As Double
m.paBT(1)=.5
m.paBT(2)=.5
m.paBT(3)=0
Public Array paET(3) as Double
m.paET(1)=.5
m.paET(2)=.5
m.paET(3)=0
Public Array oSpl(1)
m.oSpl(1)=oCad.ActiveDocument.ModelSpace.AddSpline(@m.paXYZ,@m.paBT,@m.paET)
m.oCad.ActiveDocument.Regen(0)
m.oCad.Visible = .T.

если ещё что нужно, говори - не стесняйся...

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

Не работает.
m.oSpl(1)=oCad.ActiveDocument.ModelSpace.AddSpline(@m.paXYZ,@m.paBT,@m.paET)
OLE error code 0x80070057: Параметр задан неверно.
Я это уже две недели читаю:-)))

  • На форуме с 3 августа 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Может ли быть востребована программа?

тестировал на VFP8,9 + AutoCAD2002,2004
ставилось на WinXP
замечаний нет...
предполагаю, что вместо:

 Public Array ... As Double

ты зачем-то написал:

 Public Array ... as Variant

...угадал?
ещё есть сомнения на VFP7 - под рукой нет,
что бы проверить

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

А попробуй  с vfp7. тем более  выше на него была ссылочка:-))). У меня тоже xp и 2002 и 2004

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

в 9 работает. Можно еще через SendCommand оже самое делать. Огромное спасибо!!!!

  • На форуме с 3 августа 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Может ли быть востребована программа?

OK, но только в понедельник...

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

опять проблема
tf=m.oCad.ActiveDocument.SelectionSets.Add("55")
public Array intDXF(1) as Integer
public Array varVal(1) as String
  intDXF(1) =8
  varVal(1) = "Hod"
tf.SelectOnScreen(@m.intDXF,@m.varVal)
не работает
тип вариант символьный
денег вышлю)))
скажи куда

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

А на счет востребованности прог-мы так скажу.
Важен механизм взаимодействия приложений. Самый большой минус законнченных продуктов- их очень трудно модернизировать. И второй минус это обучение пользователей и их переобучение. Оптимально  освоить autocad и word. И пользоваться прогой которая экспортирует и импортирует в них данные. Любая работа с  данными сводиться   к их обработке и представлению  в требуемой форме. Здесь и идет основная потеря времени.
Вот вроде и все. Да и не надо писать как дополнение к различным существующим законченным модулям( это я про кредо)  Сами пусть пишут и думают

  • На форуме с 3 августа 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Может ли быть востребована программа?

> Сергей
>А попробуй с vfp7
извини, нет  vfp7
>опять проблема
ты с vfp9b экспериментируешь?
я наблюдал в 9 проблему передачи параметра как ссылку на обект - думаю это издержки бетты.
Если есть vfp8  пробуй там - она стабильна.

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Может ли быть востребована программа?

в 9 все нормально. дадно. поставлю 8. осталось еще поставить 6,5...