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

Тема: Проблема определения полилинии

Почему

procedure TForm1.AcadDocument1ObjectAdded(Sender: TObject;
  var Object_: OleVariant);
var Obj:IAcadObject;
  AcdLine:IAcadLine;
begin
Obj:=IDispatch(Object_) as IAcadObject;
   If Obj.ObjectName='AcDbLine' then
      AcdLine:=Obj as IAcadLine;
...
end;

для линии работает, а для полилинии - не работает.
И в ObjectModifed тоже не работает. Даже после того, как я закончил рисовать линию и нажал Enter.

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

Re: Проблема определения полилинии

Просматривай в Delphi при помощи дебагера или Watch значение свойства Obj.ObjectName - для каждого типа примитива оно отличается.

  • ShaggyDoc
  • Восстановленный участник
  • На форуме с 10 сентября 2001г.
  • Сообщений: 1,761
  • Спасибо: 0

Re: Проблема определения полилинии

Не работает с полилинией потому, что сам же написал
AcdLine:IAcadLine;
"Линий" в Автокаде нет. Есть "отрезки" 'AcDbLine'. А полилинии имеют другие имена объектов, причем несколько
'AcadLWPolyline', 'AcadPolyline'
Все описано в acadauto.chm