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

Тема: Получение координат примитивов.

А какой код нужен для того, чтобы показывались (например в RichTextBox'e) координаты точек выбранного на чертеже примитива. Допустим, координаты начала и конца линии.

  • cadhelp
  • Восстановленный участник
  • На форуме с 12 апреля 2003г.
  • Сообщений: 7
  • Спасибо: 0

Re: Получение координат примитивов.

что-то типа такого
Dim Obj As AcadEntity
Set Obj = SelSet.Item(0)' SelSet - набор выбранных обьектов
If Obj.EntityName="AcadLine" Then
  Point_1 = Obj .StartPoint
  Point_2 = Obj .EndPoint
End If

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

Re: Получение координат примитивов.

А если объект AcadText ?

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Получение координат примитивов.

ТОгда, например, OBJ.InsertionPoint. А вообще-то все это в HELPе имеется