|
Тема |
Измерване ъгъл на примититив [re: StSt] |
|
Автор | StSt (Нерегистриран) | |
Публикувано | 30.05.06 18:43 |
|
|
Това е функция, която връща ъгъла(в градуси), под който е начертан посочен елемент.
Можете да го включите в ACAD.LSP и да го прикачите към бутон от туулбар.
Когато искате да завъртите елемент или набор от елементи след избора им и посочване на базова точка натискате бутона или пишете в командния ред
(to-ang)
избирате точка от линия или полилиния и избраното се завърта на избрания ъгъл. Ако не посочите елемент програмата пита за две точки и връща ъгъла между тях. Работи с всякакви елементи, но трябва да се внимава с избора на точката на посочване. Трябва да се има предвид, че понякога завъртането става на 180 градуса и трябва да се прави още едно въртене.
Може да се направи и бутон за изправяне, т.е. завърнате до 0 градуса така
(* -1 (to-ang))
;Връща ъгъла на посочен елемент
(defun to-ang ( / a b)
(setq
a (entsel)
);setq
(if a
(setq
a(cadr a)
b(osnap a "per")
a(osnap a "nea")
);if a
(progn
(setq a (getpoint "\nSelect two point. First point: ")
b (getpoint a "\nSecond point: ")
)
);if not a
);if
(setq
a (* (angle a b) (/ 180 pi))
);setq
);to-ang
|
| |
|
|
|