• Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Тема: Блоки и xref

Как реально отличить xref от AcadBlockReference?
Следующая утилитка

Sub name_show()
Dim ent As AcadEntity
Dim basePnt As Variant
ThisDrawing.Utility.GetEntity ent, basePnt, "Ïîêàæèòå îáúåêò"
MsgBox ent.ObjectName
End Sub

если показать блок на чертеже или xref выдает AcadDbBlockReference ... единственная рахница это то что при ent.Path при xref путь показывается а при блоке ругается ... через ошибку не хочется ...
Так по каким критериям я их буду отличать тупо перебирая все блоки на чертеже или юзать фильтр с dxf кодами? Подскажите.

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

Re: Блоки и xref

MsgBox  TypeName(ent)

[rus]
Vernet [/rus] "IAcadExternalReference"  если обььект  Xref,  или "IAcadBlockReference"  если обььект  Block

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Блоки и xref

Спасибо gogi!

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Блоки и xref

Кстати - вот что накопал

Signature
object.IsXRef
object
Block
The object or objects this property applies to.
IsXRef
Boolean; read-only
TRUE: The block is an XRef.
FALSE: The block is not an XRef.
Remarks
The IsXRef property works with the IsLayout property. If both properties are FALSE, then the block is a simple block. If the IsXRef property is TRUE, then the block is an external reference. If the IsLayout property is TRUE, then the block contains all the geometry associated with a layout.