• На форуме с 8 июля 2005г.
  • Сообщений: 43
  • Спасибо: 0

Тема: Длина полилинии в ACAD2002. Не могу сообразить.

Дорогие друзья! Помогите начинающему!
Перерыл весь форум, всякого начитался, но на свой вопрос себе так и не ответил!
Надо мне просто найти длину полилинии. В ACAD2004 и выше, если я правильно понимаю, она есть в свойствах и достается оттудова элементарно (.Length). Мне же надо в ACAD2002. У меня, по крайней мере, свойство Length отсутствует.
Вручную командой LIST я длину в списке вижу, но как ее оттудова вытащить не знаю....
Заранее благодарен за помощь!
ACAD - forever

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Длина полилинии в ACAD2002. Не могу сообразить.

> Алексей
Попробуй:

(defun  objlength (obj / len)
(or (vl-load-com))
(if (not (vl-catch-all-error-p
(setq len
(vl-catch-all-apply
(function (lambda()
(vlax-curve-getDistAtParam obj
(vlax-curve-getEndParam obj))))))))
len
nil
)
)
;TesT :
(defun c:test()
  (if
  (setq ent (entsel "\nSelect entity >>"))
  (progn
  (vl-load-com)
  (alert (strcat "Object length:\n"
         (vl-princ-to-string
         (objlength (vlax-ename->vla-object (car ent))))
         " drawing units")))
  (alert "0 selected"))
  (princ)
  )

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Длина полилинии в ACAD2002. Не могу сообразить.

> Алексей
Пардон, это на Автолиспе
Если нужно на VBA, нужно использовать
классs VLAX.cls и Curve.cls
Поищи здесь:
http://discussion.autodesk.com/forum.jspa?forumID=33
~'J'~

  • На форуме с 8 июля 2005г.
  • Сообщений: 43
  • Спасибо: 0

Re: Длина полилинии в ACAD2002. Не могу сообразить.

Fatty!
Огромное спасибо за наводку!
Классы не понадобились, т.к. я там сразу нашел готовую функцию.

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Длина полилинии в ACAD2002. Не могу сообразить.

> Алексей
Выкладывай ее сюда или дай точную ссылку
может кому другому пригодится
~'J'~

  • На форуме с 8 июля 2005г.
  • Сообщений: 43
  • Спасибо: 0

Re: Длина полилинии в ACAD2002. Не могу сообразить.

Плиз!
http://discussion.autodesk.com/thread.j … eID=396559