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

Тема: Как удалить блок двойник?

Добрый день.
Подскажите полиз, как удалить блок если я вставляю сборку из файла как блок, после взрываю ее.,Но после этого первоначальный блок остается, получается что на чертеже две копии. Как можно удалить первоначальный блок?
зарание благодарен.
кусок кода:
Angle = 0
insPoint_koll(0) = insPoint_koll(0) - 100: insPoint_koll(1) = insPoint_koll(1) - 40: insPoint_koll(2) = insPoint_koll(2)
On Error Resume Next
Set Insert = ThisDrawing.ModelSpace.InsertBlock(insPoint_koll, "C:\rectangle\data\kr_kol.dwg", 1#, 1#, 1#, Angle).Explode
Set Insert = Nothing

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

Re: Как удалить блок двойник?

INsert.Erase, наверное?

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

Re: Как удалить блок двойник?

К сожалению не erase не delete не сработало, он не понимае что ему удалять, insert как я понимаю не обьект?

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

Re: Как удалить блок двойник?

А, точно. Можно попробовать сделать нечто типа:

Set Insert = ThisDrawing.ModelSpace.InsertBlock(insPoint_koll, "C:\rectangle\data\kr_kol.dwg", 1#, 1#, 1#, Angle)
Insert.Explode
Insert.Erase
Set Insert = Nothing

P.S. Я далеко не спец по VBA, так что прошу особо сильно не бить :)

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

Re: Как удалить блок двойник?

Во все сработало!!! Эврика!!!
Огромное спасибо.