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

Тема: имя объекта применительно к размерам в фильтре выбора

Вот пример из справки по VBA:
Sub Ch4_FilterMtext()
   Dim sstext As AcadSelectionSet
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
   Set sstext = ThisDrawing.SelectionSets.Add("SS2")
   FilterType(0) = 0
   FilterData(0) = "Circle"
   sstext.SelectOnScreen FilterType, FilterData
End Sub
Мне нужно в FilterData не "Circle", а  размеры. Я не знаю, как их правильно обозвать.

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: имя объекта применительно к размерам в фильтре выбора

> Krasyn
ты имеешь в виду:
FilterType(0) = 0
FilterData(0) = "DIMENSION"
или размеры окружностей?
~'J'~

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

Re: имя объекта применительно к размерам в фильтре выбора

> Олег(jr.)
Большое спасибо за подсказку,  "DIMENSION" - это  и линейные, и угловые, и радиальные и прочие размеры.
Названия  entities  для фильтра выбора перечислены в "DXF reference","ENTITIES Section"?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: имя объекта применительно к размерам в фильтре выбора

Krasyn пишет:

"DIMENSION" — это и линейные, и угловые, и радиальные и прочие размеры.

Конкретный тип размера указан под кодом 70.
Значение кода это число от 0 до 6, указывающее тип размера, к которому добавляется сумма битовых флагов (32,64,128).
Тип размера:
0 - Dimension Rotated
1 - Dimension Aliagned
2 - Dimension Angular
3 - Dimension Diametric
4 - Dimension Radial
5 - Dimension 3PointAngular
6 - Dimension Ordinate
Битовые флаги:
32 - вхождение блока используется только размеом
64 - тип координаты в ординатном размере
       1 - X
       0 - Y
128 - устанавливается, если размерный текст    располагается не в позиции по умолчанию
Чтобы разобраться в этой механике попробуйте поэкспериментировать с функцией (entget(entlast))

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: имя объекта применительно к размерам в фильтре выбора

(entget(car(entsel))'("*"))

Этот код выдаст практически всю информацию о выбранном примитиве (в частности и о размере) в плане DXF-кодов.

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

Re: имя объекта применительно к размерам в фильтре выбора

> Александр Ривилис

> LeonidSN
LISP не знаю, неужели в VBA нет аналога приведенным вами командам?

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: имя объекта применительно к размерам в фильтре выбора

> Krasyn
Не нужно знать LISP - нужно в командной строке AutoCAD набрать указанное мной выражение.