[azetown]

Пишу простенькую программу на Delhi Суть ее така я есть топоплан с линиями отметками высот я рисую линию и на этой линии отмечаю необходимые точки мне, по ним узнаю растояние и высоту.
Встала такая задача:
необходимо нарисованную линию отправить на задний план. как это сделать? Или узнать координату Z в точке пересечения с другой линией

Пример кода

Код:

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

var
  FP, TP: OleVariant ;
  ACL1 : IAcadLine ;
...
begin
FP:=VarArrayCreate([0, 2], varDouble);
TP:=VarArrayCreate([0, 2], varDouble);
//здесь рисую линию 
acl1:=AcadDocument1.ModelSpace.AddLine(fp,tp);
//как отправить линию на задний план???
...
//или как узнать координату z в точке пересечения с другой линией
FP:= AcadDocument1.Utility.GetPoint(EmptyParam,'Укажите координаты' ) ;
// почему то всегда выдает FP[2]=0 (z координата)

ил

[Сергей Богатов]

пересечение
см. IntersectWith

перемещение на задний план

Код:

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

ThisDrawing.SendCommand "_draworder" & vbCr & "L" & vbCr & vbCr & "Back" & vbCr

это сразу после создания объекта надо делать(это медленный и кривой способ).
Или читай про MoveToBottom(это быстрый способ, но кода нет-делай сам).
Ну или что нибудь через LISP(или как нибудь ещё?), но тут я уже не советчик

з.ы
всё это легко найти в помощи для Autocad

[hwd]

Сообщение от Сергей Богатов перемещение на задний план Код: [Выделить все] ThisDrawing.SendCommand "_draworder" & vbCr & "L" & vbCr & vbCr & "Back" & vbCr это сразу после создания объекта надо делать(это медленный способ). Или читай про MoveToBottom(это быстрый способ, но кода нет-делай сам). Ну или что нибудь через LISP(или как нибудь ещё?), но тут я уже не советчик з.ы всё это легко найти в помощи для Autocad

Предложенный вариант решения плох, т.к. SendCommand запускается в асинхронном режиме, а значит вовсе не факт, что будет выбран именно тот примитив, который ожидается.

[Сергей Богатов]

Сообщение от hwd Предложенный вариант решения плох, т.к. SendCommand запускается в асинхронном режиме, а значит вовсе не факт, что будет выбран именно тот примитив, который ожидается.

Согласен, но я же предложил и другой способ
P.S.
На всякий случай поправил

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

[hwd]

По теме топика можно глянуть эту статью (не Delphi, но думаю, что понять суть можно будет).

[azetown]

Сообщение от Сергей Богатов перемещение на задний план Код: ThisDrawing.SendCommand "_draworder" & vbCr & "L" & vbCr & vbCr & "Back" & vbCr

Для меня вроде пока что подходит получилось вот что

Код:

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

   AcadDocument1.SendCommand('_draworder Последний  Задний ');

В принципе устраивает буду дальше в этом направлении копать если что получится напишу

[hwd]

Сообщение от azetown Для меня вроде пока что подходит

Это до первых граблей, а они не заставят себя долго ждать ибо асинхронная природа метода тому способствует.