• olga
  • Участник
  • На форуме с 23 октября 2008г.
  • Сообщений: 13
  • Спасибо: 0

Тема: подсчет динамических блоков на VBA

Здравствуйте! Подскажите, (если кто-то знает) как посчитать кол-во ссылок динамических блоков в программе на VBA? Обычные блоки я считаю через имя блока, а с динамическими так не выходит он им присваивает какие-то новые имена типа *U89. Через какое свойство блока можно к нему обратится?

  • Boxa
  • Восстановленный участник
  • На форуме с 16 августа 2005г.
  • Сообщений: 60
  • Спасибо: 0

Re: подсчет динамических блоков на VBA

Block_Obj.EffectiveName - получение "родного" имени блока

  • olga
  • Участник
  • На форуме с 23 октября 2008г.
  • Сообщений: 13
  • Спасибо: 0

Re: подсчет динамических блоков на VBA

Спасибо

  • Adel
  • Участник
  • На форуме с 8 июля 2009г.
  • Сообщений: 2
  • Спасибо: 0

Re: подсчет динамических блоков на VBA

Добрый день!
А где в dxf скрывается EffectiveName - "родное" имя блока?
    FilterType(0) = 0
    FilterData(0) = "INSERT"
    FilterType(1) = ?
    FilterData(1) = "Block"

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: подсчет динамических блоков на VBA

Adel пишет:

Добрый день!
А где в dxf скрывается EffectiveName - "родное" имя блока?
FilterType(0) = 0
FilterData(0) = "INSERT"
FilterType(1) = ?
FilterData(1) = "Block"

Юзай такой фильтр

FilterType(0) = 0 
FilterData(0) = "INSERT" 
FilterType(1) = 2 
FilterData(1) = "MyBlockName" & ",`*U*"

(обязательно наклонный штрих здесь ",`*U*")

~'J'~

  • Adel
  • Участник
  • На форуме с 8 июля 2009г.
  • Сообщений: 2
  • Спасибо: 0

Re: подсчет динамических блоков на VBA

fixo
Работает!
Спасибо! В который раз уже выручили!

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: подсчет динамических блоков на VBA

Adel пишет:

fixo 
Работает!
Спасибо! В который раз уже выручили!

Всегда рад помочь,
на то и форум :)

~'J'~

  • Откуда: Санкт-Петербург
  • На форуме с 26 мая 2008г.
  • Сообщений: 14
  • Спасибо: 0

Re: подсчет динамических блоков на VBA

FilterData(1) = "MyBlockName" & ",`*U*"

Уважаемый fixo, не могли бы Вы пояснить теоретические основы данной строки фильтра?  :)
Я в курсе, что такое коды групп DXF и как работает механизм фильтрации, но это строка мне непонятна.
Прошу, знакоки, проясните еще, зачем Автокад так издевается над динамическими блоками, присваивая им имена *U... ?
Спасибо.