|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
![]() |
Поиск в этой теме |
![]() |
#1 | |
тип линии
Сообщений: n/a
|
||
Просмотров: 3410
|
|
||||
Строительство Регистрация: 03.09.2003
Нижний Новгород
Сообщений: 81
![]() |
Можно воспользоваться Lisp-ом , который предоставил VK.
(defun c:earth (/ ocmd osm spt ept col dist) (setq ocmd (getvar "cmdecho")) (setq osm (getvar "osmode")) (setq spt (getpoint "\nОдна точка")) (while (setq ept (getpoint spt "\nВторая точка или выход")) (if (>= (distance spt ept) 39) (progn (setq col (1+ (fix (/ (distance spt ept) 15.0)))) (setq dist (* (/ (- (distance spt ept) 15.0) (* (1- col) 15.0)) 15.0)) (setvar "cmdecho" 0) (setvar "osmode" 0) (command "_.minsert" "earth" spt 1 1 (* 180 (/ (angle spt ept) pi)) 1 col dist) (setvar "osmode" osm) (setvar "cmdecho" ocmd) (setq spt ept) ) (princ "\nМала дистанция между точками") ) ) (princ) ) ;_ defun Где "earth" имя блока 15.0 длина блока |
|||
![]() |
|
||||
AutoCAD/AutoLISP Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133
|
Попробуй, поехперементируй, но для простоты начни в совершенно пустом чертеже. Следи и следуй указаниям в
коммандной строке, все довольно просто. EXPRESS>TOOLS>Make Linetype Кстатии а такие загогулинки как ты отобразил должны быть в стандартных AutoCAD LINETYPE называетыся ZIGZAG или что-то в этом духе Удачи |
|||
![]() |