[Albino]

Не получается определить длину сплайна (в свойствах просто нету длины), а так же площадь контура, который начерчен через сплайн. Пробовал определять и с помощью СПДС и через команду _area - в первом случае просто ничего не происходит, а вот втором показывает, что площадь равна 0.00.

[Хмурый]

Программа А. Ривилиса GeomProps

[igorni]

Для замкнутых сплайнов (свойство Closed = Yes) - комманда Area точно выдает периметр и площадь.

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

Код:

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

(defun get-spline-datas (/ ent res)
  (if (= (type (setq ent (vl-catch-all-apply
                           (function
                             (lambda ()
                               (ssname (ssget "_+.:S:E" '((0 . "SPLINE"))))
                               ) ;_ end of lambda
                             ) ;_ end of function
                           ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'ename
         ) ;_ end of =
    (setq ent (vlax-ename->vla-object ent)
          res (list (cons "area"
                          (if (equal (vla-get-closed ent) :vlax-true)
                            (vla-get-area ent)
                            ) ;_ end of if
                          ) ;_ end of cons
                    (cons "len" (vlax-curve-getdistatpoint ent (vlax-curve-getendpoint ent)))
                    ) ;_ end of list
          ) ;_ end of setq
    ) ;_ end of if
  res
  ) ;_ end of defun

[Хмурый]

igorni, и для незамкнутых сплайнов- тоже площадь в свойствах указывает. тут всё дело в версии AutoCAD'а.

[wetr]

Offtop: Классическая тема
1. Студент задает вопрос
2. Хмурый тут же дает правильный ответ
3. Алексей выдает КОД
Еще не хватает BM60, чтобы послал в поиск по слову "Сплайн"
и Profan_a, чтобы просто отметиться.
P.S. 4. Я уже побрюзжал)))

[Albino]

Как то не правильно площадь считается.. У меня вот на чертеже нижний сплайн имеет площадь 203, верхний 494 (то есть более чем в 2 раза больше), хотя если их совместить, то по размерам они практичнски одинаковы! Почему так?

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

Albino, dwg предоставить не хочешь?

[Albino]

Пожалуйста:

[wetr]

Albino, ну ты ДЯДЯ!
Автокад соединяет прямой линией незамкнутые концы сплайна и выдает площадь полученной фигуры.
Посмотри теперь свои площади

[Хмурый]

можно посмотреть и сравнить площади штриховки

[Albino]

А.. точно! )) тогда получается действительно только половина площади должна была быть )) Спасибо!

можно посмотреть и сравнить площади штриховки

Да у меня там все равно не всегда каждый контур в отдельности штриховался