Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Прорисовка параллельных линий.

LISP. Прорисовка параллельных линий.

Закрытая тема
Поиск в этой теме
Непрочитано 09.06.2016, 12:12 #1
LISP. Прорисовка параллельных линий.
bboysyndrom
 
инженер-конструктор
 
Уфа
Регистрация: 07.12.2011
Сообщений: 121

Подскажите как скорректировать функцию для получения мультилиний (параллельные средней линии).

Код:
[Выделить все]
 (defun c:c_pipe (/ p1 p2 p3 p4 p5 p6 diam) ;
	(setq p1 (getpoint "\nНачальная : ")) ;
	(setq p2 (getpoint "\nКонечная : ")) ;
  	(command "_line" p1 p2 "")
	(setq diam (getreal "\nДиаметр : ")) ;
	(setq p3 (polar p1 (+ angle( p1 p2) (/ pi 2 )) (/ diam 2 )))
	(setq p4 (polar p2 (+ angle( p1 p2) (/ pi 2 )) (/ diam 2 )))
	(setq p5 (polar p1 (* pi 1.5 ) (/ diam 2 )))
	(setq p6 (polar p1 (* pi 1.5 ) (/ diam 2 )))
	(setq osm (getvar "osmode")) ;
	(setvar "osmode" 0) ;
	(command "_line" p1 p2 "")
	(command "_line" p3 p4 "")
	(command "_line" p5 p6 "")
	(setvar "osmode" osm) ;
) ;
Просмотров: 1283
 
Непрочитано 09.06.2016, 12:49
#2
Puroshev


 
Регистрация: 22.10.2008
Сообщений: 73
Отправить сообщение для Puroshev с помощью Skype™


Что именно не устраивает, может лучше использовать команду _MLINE.
Puroshev вне форума  
 
Непрочитано 09.06.2016, 13:31
#3
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от bboysyndrom Посмотреть сообщение
angle( p1 p2)
Здесь ошибка
gomer вне форума  
 
Непрочитано 09.06.2016, 13:35
#4
Бот
Moderator


 
Регистрация: 12.06.2012
Сообщений: 0


bboysyndrom, просьба изменить название темы "LISP. Прорисовка параллельных линий." в соответствии с п.4.3. правил форума, в противном случае тема будет закрыта через 6 часов.

Как переименовать тему?

Сообщение сгенерировано автоматически, отвечать на него не нужно
Бот вне форума  
Закрытая тема
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Прорисовка параллельных линий.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как удалить тип линии Tolyanovich AutoCAD 48 20.11.2014 09:24
LISP для подсчета суммы длин линий Kostinok LISP 18 26.04.2013 14:56
Lisp, меняющий толщины линий Конструктор-ППРщик LISP 21 26.09.2012 16:47
LISP. Как увеличить уменьшить масштаб типов линий всех объектов на заданную величину. Zhnek LISP 4 26.07.2012 12:37
LISP Есть дерево из линий, нужно на концы линий нарисовать метки Golem-iq LISP 16 06.03.2012 00:44