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

Тема: Как координаты выбранных точек загнать в масссив?

Необходимо координаты всех объектов типа Point в данном слое загнать в массив. Помогите чайнику......

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

Re: Как координаты выбранных точек загнать в масссив?

Set SS = ThisDra.....
SS.SelectonScreen All, FilterType, FilterData.....
DIM ArrPO
Redim ArrPO (0) as Double
For each Po in SS
  LastElement = Ubound(ArrPO)
  Redim  preserve ArrPO (0 to LastElement +3)
  ArrPO(LastElement - 2)=Po.coordinate(0)
  ArrPO(LastElement - 1)=Po.coordinate(0)
  ArrPO(LastElement - 0)=Po.coordinate(0)
next
Код Написан по памяти и нуждается в доработке

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

Re: Как координаты выбранных точек загнать в масссив?

Set SS = ThisDra.....
SS.SelectonScreen All, FilterType, FilterData.....
DIM ArrPO
Redim ArrPO (0) as Double
For each Po in SS
как определяется переменная Po и что она означает?
Спасибо.

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

Re: Как координаты выбранных точек загнать в масссив?

> как
определяется переменная Po
DIM ArrPO
осначает As Variant
> и что она означает?
она станет масивом поле первого редим
в цикле я думаю надо кое что изменить
напримр вместо
Redim preserve ArrPO (0 to LastElement +3)
надо
if LastElement  = 0 then
   Redim preserve ArrPO (0 to 2)
else
   Redim preserve ArrPO (0 to LastElement +3)
end if

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

Re: Как координаты выбранных точек загнать в масссив?

что-то не очень получается :(((
вот делаем
Dim ss As AcadSelectionSet
Dim filtertype(0) As Integer
Dim filterdata(0) As Variant
Dim ent As Object
filtertype(0) = 0
filterdata(0) = "Point"
Set ss = ThisDrawing.SelectionSets.Add("test")
ss.SelectOnScreen filtertype, filterdata
сейчас у на в ss все выбранные точки
какким образом получить их координаты?
делаю как ты советуешь, компилятор ругается на неопределенность переменной Po.

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

Re: Как координаты выбранных точек загнать в масссив?

всем спасибо
Вопрос решен.

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

Re: Как координаты выбранных точек загнать в масссив?

Это кому это ВСЕМ ?

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

Re: Как координаты выбранных точек загнать в масссив?

кто читал и особенно помогал :))
cadhelp-у отдельное спасибо :))