Денис Флюстиков
размещено: 30 Июля 2006
Отрисовка линий разрыва (обрыва) трех видов (криволинейный, линейный, цилиндрический)
"Break_Den" от 30.07.06:
1.Отказался от автоматической обрезки по двум точкам внутри линий разрыва, т.к. с 2006 ACAD'а не требуется выбирать каждый обрезаемый объект (есть быстрый выбор рамкой), а часто приходится рисовать двухсторонний обрыв;
2.Переход в режим рисования обрыва по пробелу или правым кликом (ранее по "ESC");
3.Ввел зависимость величины линейного зигзага, по умолчанию от DIMSCALE;
4.Возможность задать величину выноса линий линейного разрыва за объект.
0.1 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
(setq nk_lsc (getvar"CELTSCALE" ))
(setq nk_lsc0 (/ nk_lsc -1))
(setq nk_lsc1 (/ nk_lsc 4))
(setq nk_lsc2 (/ nk_lsc 2))
(setq dist (/ (distance aa1 aa5) 2)
ang (angle aa1 aa5)
aa2 (polar (polar aa1 ang (- dist nk_lsc1))(+ (/ pi 2) ang) nk_lsc)
aa3 (polar (polar aa1 ang (+ dist nk_lsc1))(+ (/ pi 2) ang) nk_lsc0)
plinewid_old (getvar "PLINEWID"))
(setvar "PLINEWID" 0)
(command "_pline" aa1 (polar aa1 ang (- dist nk_lsc2)) aa2 aa3 (polar aa1 ang (+ dist nk_lsc2)) aa5 "")
Вроде получилось нормально.
Только одного не понял - как по умолчанию поставить отрисовку не криволинейного обрыва, а линейного или цилиндрисеского?
^C^C^P(load "Break_Den");Break_Den;л; в макросе кнопки просьба не предлогать.
А так Ваша программка довольно симпатична и хорошо сделана, продолжайте в том-же духе.
Денис, плиз, как насчет типа обрыва поумолчанию, а то у меня повтор команды на правой кнопке и тыкать каждый раз в кнопку неохота.