• На форуме с 19 августа 2005г.
  • Сообщений: 15
  • Спасибо: 0

Тема: Как в sendcommand блокировать передачу управления проекту?

Хочу отрезать кусок блока по полилинии с помощью команды xclip.Точки полилинии хочу задат программно, вот текст:
ThisDrawing.SendCommand ("xclip ")
ThisDrawing.SendCommand ("100,100,0 ")
ThisDrawing.SendCommand ("200,200,0 ")                                              ThisDrawing.SendCommand (vbCr)
ThisDrawing.SendCommand (vbCr)
ThisDrawing.SendCommand ("p")
For j = 1 To UBound(Mas(i).Coordinates) Step 2
!!!!!ThisDrawing.SendCommand (" " & LTrim(Str(Mas(i).Coordinates(j))) & "," & LTrim(Str(MasPolyLineRazr(i).Coordinates(j + 1))) & ",0 ")
При выполнении последнего оператора управление переходит Autocad и он хочет , чтобы я выбрал точки. Как этого избежать и задавать точки программно?

  • На форуме с 19 августа 2005г.
  • Сообщений: 15
  • Спасибо: 0

Re: Как в sendcommand блокировать передачу управления проекту?

Всё элементарно , господа, надо всего лишь не посылать каждую точку, а собрать строку и потом отослать всё сразу.
Всем спасибо за интерес.

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Как в sendcommand блокировать передачу управления проекту?

Я встречался с такой проблемой мне помог Дмитрий и Павел:
на форму надо бросить контрол acFocusCtrl
форме надо сказать что она немодальная.
и тогда эта форма не только будет висеть над окном автокада в то время как основная программа пойдет работать дальше, но и можно будет осуществялть интерактивную работу с автокадом.

> Миша
Замечательно! Это очень интересно Дмитрий! А где можно взять этот acFocusCtrl?

> pavel
Берется он в Tools->Additional Controls, в списке контролов выбираешь acFocusCtrl. У тебя на Toollbox'е добавляется новый контрол. Берешь его и кидаешь на свою форму, выставляешь немодальный режим и в путь....