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

Тема: InsertPoint для блока при создании через AcDoc.Wblock

Здравствуйте
Я создаю блок из дельфей при помощи AcDoc.Wblock ()
Но этот метод запрашивает лишь имя и выделенные объекты, а точку вставки добавляет по своему усмотрению. Как нибудь можно определить точку вставки программно, до создания блока?

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

Re: InsertPoint для блока при создании через AcDoc.Wblock

А ModelSpace.InsertBlock не подходит?
Одним из параметров как раз является точка вставки.

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

Re: InsertPoint для блока при создании через AcDoc.Wblock

Эта команда вставляет блок на чертеж. Она же и создать блок может?

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

Re: InsertPoint для блока при создании через AcDoc.Wblock

У меня получилось так:

var
  AcadDoc:IAcadDocument;
  MdSpace:IAcadModelSpace;
  blockObj:AcadBlock;
  insertionPnt:OleVariant;
  circleobj:AcadCircle;
  center:OleVariant;
  radius:double;
  blockrefobj:AcadBlockReference;
...
blockObj := Acaddoc.Blocks.Add(insertionPnt, 'MyBlock');
...
circleObj:=blockObj.AddCircle(center, radius);
...
blockrefObj :=mdspace.InsertBlock(insertionpnt,'MyBlock',1,1,1,0,EmptyParam);

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

Re: InsertPoint для блока при создании через AcDoc.Wblock

Возможно я не совсем понятно объяснил или мы не понимаем друг друга :).
Мне надо получить .dwg файл с блоком (аналогично команде Автокада "_wblock"). Который потом по необходимости конструктор будет вставлять в чертеж. Я его получаю командой acDoc.WBlock (FileName, SelectionSet). Все прекрасно :). Но при вставке оказывается что InsertPoint как то далеко находиться от объектов блока (Курсор в одном месте, а непосредственно сам блок где то в стороне). Несмертельно, но как то некрасиво. Наверно надо будет Лиспом попробовать.

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: InsertPoint для блока при создании через AcDoc.Wblock

> Marat
Поиграйся с системной переменной INSBASE - возможно поможет.