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

Тема: Как узнать, что последний созданный в пространстве модели объект является регионом ?

Как узнать, что последний созданный в пространстве модели объект является регионом ?
И главное, чтобы не возникало ошибок

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

Re: Как узнать, что последний созданный в пространстве модели объект является регионом ?

> Alexys
Попробуй так, все должно быть четко:

Option Explicit
Sub test()
Dim oEnt As AcadEntity
With ThisDrawing.ModelSpace
Set oEnt = .Item(.Count - 1)
If TypeOf oEnt Is AcadRegion Then
MsgBox "Last created object is " & vbNewLine & _
oEnt.ObjectName, vbInformation, "Last Object"
Else
MsgBox "Last created object is " & vbNewLine & _
"not a region!", vbExclamation, "Last Object"
End If
End With
End Sub

~'J'~

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

Re: Как узнать, что последний созданный в пространстве модели объект является регионом ?

Или запустить выражение:(entget(entlast))
и убедиться, что - (0 . "REGION").

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как узнать, что последний созданный в пространстве модели объект является регионом ?

Одно уточнение. Если примитив (последний) был добавлен не в пространство модели, что делать (через VBA, ессно)?

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

Re: Как узнать, что последний созданный в пространстве модели объект является регионом ?

> kpblc
Ничего не делать. Ведь вопрос поставлен так: "последний созданный в пространстве модели объект "
Или заменить строчку:

With ThisDrawing.PaperSpace