[Михайлов Юрий]

Друзья! Кто знает как можно измерить угол между двумя прямыми. В панели измерения есть расстояние, площадь и т.д. а угла нет.
Знаю что можно найти угол с пом. углового размера. Но это не то.
Знаю что можно написать приложение, но не знаю как.
Научите!

[zenon]

а чем не устраивает с помощью размера угла??

[Shoorup]

Я смотрю углы обычно просто наводя на маркеры при выборе линий. Динамический ввод должен быть включен

[VVA]

Тоже не понимаю чет угол не устраивает? может лень потом удалять?

Код:

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

(defun c:test ()
  (if
  (and
    (setq l1 (entsel "\nВыберите 1=й отрезок "))
    (setq l2 (entsel "\nВыберите 2=й отрезок "))
    (not(equal (car l1)(car l2)))
    )
  (progn
    (command "_dimangular" l1 l2)
    (while (> (getvar "CMDACTIVE") 0)(command pause))
    (setq dim (entlast))
    (setq u (cdr(assoc 42 (entget dim))))
    (princ "\nУгол = ")(princ (angtos u 0 6))
    (princ " или ")(princ (angtos u 1 6))
    (entdel dim)
    )
  )
  (princ)
  )

*** Модифицировал код

[Psip]

Удалять-то может и не лень, но как-то оно неаккуратненько получается.
А лисп Ваш угол меряет только между отрезками, а вот полилинии того, не понимает. А жаль.

[Vova]

Сообщение от VVA Тоже не понимаю чет угол не устраивает? может лень потом удалять?

http://www.caduser.ru/cgi-bin/f1/board.cgi?t=43245pp
[Re:] Vova (2008-07-11 18:23:54)
Ох не люблю когда одна и та-же тема от того-же автора появляется на двух форумах сразу и без всякого комментариия. Дескать, там меня не удовлетворили, хотя пробовал то и это, может здесь помогут. Ведь зачастую те-же лица фигурируют в обоих