• Null_Solid
  • Восстановленный участник
  • На форуме с 18 января 2008г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Помогите посчитать блоки на чертеже

За ранее извиняюсь за неграмотность при постановке вопроса!
(совсем недавно начал изучать VBA for ACad)
Передо мной стоит задача посчитать количество блоков на чертеже, например с именем "1". Научился считать количество блоков в базе чертежа, а вот в поле пространства чертежа(Model) ну никак..(((
Это нужно для того, чтобы не искать глазами эти блоки, а программно и без ошибок)). Чтобы потом занести их количество в спецификацию.
Может кто-то сталкивался с аналогичной проблемой!
Заранее спасибо)

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Помогите посчитать блоки на чертеже

> Null_Solid
Попробуй так, особо не проверял, сделай
это сам:

Sub SelectBlocksInModel()
     Dim ss As AcadSelectionSet
     With ThisDrawing.SelectionSets
          While .Count > 0
               .Item(0).Delete
          Wend
          Set ss = .Add("$Blocks$")
     End With
     Dim ftype(2) As Integer
     Dim fdata(2) As Variant
     ftype(0) = 0: ftype(1) = 2: ftype(2) = 67
     fdata(0) = "INSERT": fdata(1) = "1": fdata(2) = 0 '<--"1" это имя блока
     ss.Select acSelectionSetAll, , , ftype, fdata
     MsgBox ss.Count
     ss.Delete
End Sub

~'J'~

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

Re: Помогите посчитать блоки на чертеже

Вот еще ссылка, а вообще, горячо рекомендуется пользоваться поиском, прежде чем вывешивать вопрос. Самому же больше пользы будет.
https://www.caduser.ru/forum/
t=39059uJ

  • Null_Solid
  • Восстановленный участник
  • На форуме с 18 января 2008г.
  • Сообщений: 2
  • Спасибо: 0

Re: Помогите посчитать блоки на чертеже

Большое спасибо за помощь))