• Артём
  • Восстановленный участник
  • На форуме с 30 августа 2006г.
  • Сообщений: 47
  • Спасибо: 0

Тема: Выбрать по Z координате используя DXF коды возможно ли это???

'код такого типа не возвращает все блоки с позицией Z = 0
Dim ssetObjL As AcadSelectionSet
Dim gpC(0 To 1) As Integer
Dim gpV(0 To 1) As Variant
Set ssetObjL = ThisDrawing.SelectionSets.Add("INSERTZ")
gpC(0) = 0
gpV(0) = "INSERT"
gpC(1) = 30
gpV(1) = 0
ssetObjL.Select acSelectionSetAll, , , gpC, gpV
ssetObjL.delete
'Может быть данные хранятся в группе (10) и имеют вид: 1000.222 1212.12 0
'(x y z)
'и если так то есть ли способ отфильтровать элементы с определенной высотой ?????

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

Re: Выбрать по Z координате используя DXF коды возможно ли это???

DXF-коды 20 и 30 в качестве Y и Z-координаты точки вставки  указаны в Справке, но у реального примитива INSERT их что-то не видно.
Почему? Думаю, что это вопрос к Н.Н.Полещуку, в своих книгах он приводит эти коды.
Пока же придется организовать цикл по отбору блоков с нулевой Z-координатой, исходя из полученой по коду 10 трехмерной точки. Другого способа не вижу.

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

Re: Выбрать по Z координате используя DXF коды возможно ли это???

> LeonidSN
Нужно просто внимательно прочитать справку. То, что находится в группах 10,20,30 как три плавающих числа, в лиспе и в VBA представляются как одна группа 10, содержащаяя список(массив) из трек плавающих.
А если по существу вопроса, то здесь пример как это делается на lisp'е: https://www.caduser.ru/forum/topic22071.html

Я думаю что специалисту не составит труда переписать это на VBA.