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

Тема: Где хранится значение площади выделенного замкнутого многоугольника?

Где в акаде (в какой переменной )хранится значение пощади выделенного замкнутого многоугольника?
Это значение можно прочитать в своиствах, но необходимо засунуть его в переменную и дальше с ним работать. А откуда программно его вытащить (LISP?)

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

Re: Где хранится значение площади выделенного замкнутого многоугольника?

Если я правильно понял вопрос, то ответ: Нигде!
В момент запроса свойств эта площадь определяется и выводится на экран. Это значит, что в программе надо идти обычным путем - создавать набор, отбирать свои примитивы и определять их свойства.Например, вот так:

Sub AreaLWPolyline()
 Dim SSet As AcadSelectionSet
 Dim Polygon As AcadLWPolyline
 Dim Area As Double
 Set SSet = ThisDrawing.ActiveSelectionSet
 Set Polygon = SSet.Item(0)
 If (Polygon.Closed = True) Then
    Area = Polygon.Area
 End If
End Sub

  • VK
  • Восстановленный участник
  • На форуме с 17 марта 2003г.
  • Сообщений: 1,980
  • Спасибо: 0

Re: Где хранится значение площади выделенного замкнутого многоугольника?

Не совсем понятно, что есть "замкнутый многоугольник", хотя есть варианты....
Судя по всему, это полилиния, раз в свойствах отображается.

необходимо засунуть его в переменную и дальше с ним работать. А откуда программно его вытащить (LISP?)

Можно сразу на Лиспе

(vla-get-area (vlax-ename->vla-object (ssname (ssget "P") 0)))