[SNIIP]

суть в теме... нужно запонить последний нарисованный объект...

[Кулик Алексей aka kpblc]

Для начала - объект создается каким образом? Руками пользователя или программно?

[hwd]

Сообщение от SNIIP суть в теме... нужно запонить последний нарисованный объект...

Да уж...

Сообщение от ShaggyDoc Изучайте объектную модель AutoCAD

Т.е. процитированный мною выше совет, который дал тебе ShaggyDoc в соседнем топике, ты решил пропустить мимо ушей? Зря...
Теперь, узнав одну команду, ты с чертежом собираешься работать исключительно через SendCommand? Тогда уж не извращайся и напиши обычный скрипт (scr-файл) - вот его и запускай без всяких "делфи"... Через командную строку (cmd.exe), запусти файл acad.exe, передав в виде аргументов соответствующий (не поленись заглянуть в хелп) ключ и имя скриптового файла. При этом не забывай о том, что в диалоговом окне Options, на вкладке User Preferences, тебе нужно правильно установить переключатель в группе Priority for Coordinate Data Entry, иначе результат может отличаться от ожидаемого.

[TararykovDG]

Сообщение от SNIIP В AutoLISP есть функция entlast(запоминает последний нарисованный объект), как выглядит ее анлог в Delphi? еесли я рисую в автокаде?

Код:

[Выделить все]

count := AutoCAD.Application.ActiveDocument.Modelspace.Count;
AutoCAD.Application.ActiveDocument.Modelspace.Item(count-1);

[Кулик Алексей aka kpblc]

TararykovDG, объект может быть нарисован внутри определения блока. Или внутри листа.

[hwd]

Сообщение от TararykovDG Modelspace

потенциальному юзеру кода может понадобиться не только Modelspace, но и лэйаут или определение блока.
upd
Алексей меня опередил

[TararykovDG]

Сообщение от Кулик Алексей aka kpblc TararykovDG, объект может быть нарисован внутри определения блока. Или внутри листа.

Сообщение от hwd потенциальному юзеру кода может понадобиться не только Modelspace, но и лэйаут или пространство редактора блока.

Да, конечно Вы правы, это была просто подсказка, а не готовый код, я подозреваю, что SNIIP этого хватит, а вообще SNIIP нужно пользоваться справкой

[SNIIP]

Да, спасибо TararykovDG

ой, снова застопорился... вот пример вашего кода..
count := AutoCAD.Application.ActiveDocument.Modelspace.Count;
AutoCAD.Application.ActiveDocument.Modelspace.Item(count-1);

count сработало... все посчитало.. а вот соледующая строчка... она возвращает объект типа olevariant или нет?
и если да, то как потом этот объект указать в команде например _mirror? как отразить тот объект?

[TararykovDG]

SNIIP, я не пишу на Delphi, точнее пишу, но не под AutoCAD, поэтому не знаю тонкостей, порывшись в справке, получилось так,

Код:

[Выделить все]

...
var
  BeginPoint, EndPoint: OleVariant;
  count : integer;
  AcadEnt : IAcadEntity;
begin
...
  count := AcadApp.ActiveDocument.ModelSpace.Count;
  AcadEnt := AcadApp.ActiveDocument.ModelSpace.Item(count-1);
  BeginPoint := VarArrayCreate([0, 2], varDouble);
  EndPoint :=  VarArrayCreate([0, 2], varDouble);
  BeginPoint := AcadApp.ActiveDocument.Utility.GetPoint(EmptyParam, 'Первая точка оси отражения: ');
  EndPoint := AcadApp.ActiveDocument.Utility.GetPoint(EmptyParam, 'Вторая точка оси отражения: ');
  AcadEnt.Mirror(BeginPoint, EndPoint);
...
end;

[SNIIP]

блин, может подскажете справку по функциям autocad.application или сайт какой.. сложно разбираться что то...
AcadEnt : IAcadEntity; это не работает...ругается на тип...

[Дима_]

В автокаде F1 нажми и внимательно читай - там все есть.

[TararykovDG]

Сообщение от SNIIP блин, может подскажете справку по функциям autocad.application или сайт какой.. сложно разбираться что то...

На это Дима_ уже ответил

Сообщение от SNIIP AcadEnt : IAcadEntity; это не работает...ругается на тип...

Странно у меня работает, а Ты целиком взял код из поста #9, или под себя переделал, если целиком, то чему у Тебя равно AcadApp, потому как до этого долно быть еще и это, например:

Код:

[Выделить все]

type

  ...

  private
    { Private declarations }
     AcadApp: IAcadApplication;
  public
    { Public declarations }
  end;

...

function GetAcadApplication(Visible : boolean) : IAcadApplication;
var
  v : OleVariant;
begin
  Try
    v := GetActiveOleObject('AutoCAD.Application');
  Except
    v := CreateOleObject('AutoCAD.Application');
  end;
  Result := IDispatch(v) as IAcadApplication;
  if Visible then Result.Visible := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

...

  AcadApp := GetAcadApplication(true);

...

end;

P. S. Повторяю - это пример, а не готовый код !!!