• На форуме с 25 октября 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как получить координаты?

Здравствуйте. Есть проблема, как сначала в Акаде 2004 нарисовать простой треугольник, а потом в Делфи подсчитать например его площадь итд. или хотя бы просто координаты получить не важно в каком виде. Расскажите студенту подробно если не затруднит можнос примером
С уважением Александр

  • На форуме с 28 октября 2005г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как получить координаты?

Студент, учи Автокад и не парься с Делфи.
Если нарисовать в Автокаде треугольник или любую другую ОБЛАСТЬ, то её площадь и вычислять не надо, т.к. значение этого геометрического свойства для примитива ОБЛАСТЬ можно увидеть в его свойствах(_properties). А если интересуют координаты вершин, то рисуй полилинией и будет тебе в свойствах и координаты и площадь.

  • На форуме с 7 декабря 2005г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как получить координаты?

Элементы можно получить через AcadActiveDocument.ModelSpace.Item(№элемента), Элементы наследованны от класса IAcadEntity, у него есть метод GetBoundingBox(R0,R1);
, где R0, R1 массив списка, координат x,y,z;  R0-Левый верхний, R1-Нижний Правый коорд.
   Но ты получишь только координяты прямоугольника области касания фигуры. Если тебе нужны конкретные координаты, тебе вначале нужно определить тип объекта (свойство ObjectName), а там уже у каждого типа есть свой свойства описания координат (например Coordinats- э прямоугольника, Center-ну это у элипса, StartPoint), ну там сам по аналогии допетришь.
Например:
//Для элипса Item:IAcadEntity
if Item.ObjectName='AcDbEllipse'then
   begin
   //Центр
   (Item as IacadEllipse).Center(0)-X коорд.
   (Item as IacadEllipse).Center(1)-Y коорд.
   (Item as IacadEllipse).Center(2)-Z коорд.
   //Начальная коорд.
   (Item as IacadEllipse).StartPoint(0)-Z коорд.
   (Item as IacadEllipse).StartPoint(1)-Y коорд.
   (Item as IacadEllipse).StartPoint(2)-Z коорд.
   //Конечная коорд.
   (Item as IacadEllipse).EndPoint(0)-Z коорд.
   (Item as IacadEllipse).EndPoint(1)-Y коорд.
   (Item as IacadEllipse).EndPoint(2)-Z коорд.
   end;
Ну и так далее, кончечно через OLE код выгледел бы немного по другому, надеюсь у тебя есть модуль AutoCad_LIB.pas, а если нету происталируй таблицу типов