Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
as1212
4 / 4 / 2
Регистрация: 02.05.2011
Сообщений: 23
#1

Отрисовка дуг - Lisp

12.02.2012, 04:05. Просмотров 873. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста не могу разобраться:

Средствами AutoLISP создать функцию, осуществляющую ввод данных в режиме диалога и рисующую с использованием разных цветов
Пятнадцать дуг с одной общей средней точкой, задано положение трех точек первой дуги, каждая последующая дуга образована смещением двух крайних точек исходной дуги вдоль осей х или у на заданное число единиц

Вот что я сделал но неработает

1вариант

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(defun lb2 (n) 
(command "_arc" '(50 50) '(60 80) '(110 110))
(command "_arc" '((+ (* 1 n) 50) (+ (* 1 n) 50)) '(60 80) '((+ (* 1 n) 110) (+ (* 1 n) 110)))
(command "_arc" '((+ (* 2 n) 50) (+ (* 2 n) 50)) '(60 80) '((+ (* 2 n) 110) (+ (* 2 n) 110)))
(command "_arc" '((+ (* 3 n) 50) (+ (* 3 n) 50)) '(60 80) '((+ (* 3 n) 110) (+ (* 3 n) 110)))
(command "_arc" '((+ (* 4 n) 50) (+ (* 4 n) 50)) '(60 80) '((+ (* 4 n) 110) (+ (* 4 n) 110)))
(command "_arc" '((+ (* 5 n) 50) (+ (* 5 n) 50)) '(60 80) '((+ (* 5 n) 110) (+ (* 5 n) 110)))
(command "_arc" '((+ (* 6 n) 50) (+ (* 6 n) 50)) '(60 80) '((+ (* 6 n) 110) (+ (* 6 n) 110)))
(command "_arc" '((+ (* 7 n) 50) (+ (* 7 n) 50)) '(60 80) '((+ (* 7 n) 110) (+ (* 7 n) 110)))
(command "_arc" '((+ (* 8 n) 50) (+ (* 8 n) 50)) '(60 80) '((+ (* 8 n) 110) (+ (* 8 n) 110)))
(command "_arc" '((+ (* 9 n) 50) (+ (* 9 n) 50)) '(60 80) '((+ (* 9 n) 110) (+ (* 9 n) 110)))
(command "_arc" '((+ (* 10 n) 50) (+ (* 10 n) 50)) '(60 80) '((+ (* 10 n) 110) (+ (* 10 n) 110)))
(command "_arc" '((+ (* 11 n) 50) (+ (* 11 n) 50)) '(60 80) '((+ (* 11 n) 110) (+ (* 11 n) 110)))
(command "_arc" '((+ (* 12 n) 50) (+ (* 12 n) 50)) '(60 80) '((+ (* 12 n) 110) (+ (* 12 n) 110)))
(command "_arc" '((+ (* 13 n) 50) (+ (* 13 n) 50)) '(60 80) '((+ (* 13 n) 110) (+ (* 13 n) 110)))
(command "_arc" '((+ (* 14 n) 50) (+ (* 14 n) 50)) '(60 80) '((+ (* 14 n) 110) (+ (* 14 n) 110)))
 
)
2 вариант

Lisp
1
2
3
4
5
6
7
8
(defun lb1(n)
 
(repeat 15(command "_arc" '((- -20 n) 20) '(0 0) '((+ 20 n) 20))
(setq n (+ n 1))
)
)
 
)
3 вариант

Lisp
1
2
3
4
5
6
7
8
9
10
(defun lb1(n)
 
(defun g()
(setq p1 (getpoint "\nFirst Point:"))
(setq p2 (getpoint "\nSecond Point:"))
(setq p3 (getpoint "\nEnd Point:"))
(setq n 1)
(repeat 15((command "_arc" p1 p2 p3)) (setq n (+ n 1)))
 
)
Всем заранее спасибо за помощь.
http://www.cyberforum.ru/autolisp/thread1592334.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2012, 04:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Отрисовка дуг (Lisp):

Реализовать алгоритм Брезенхема, для дуг окружности и дуг эллипса
Надо реализоавать алгоритм Брезенхема, для дуг окружности и дуг эллипса. Для...

Рисование дуг
Подскажите пожалуйсто. Может кто-нибудь знает: можно ли осуществить...

Графики длин дуг
Построить графики Если нужно, могу решение скинуть, саму длину дуги

Матрица весов дуг
Здравствуйте. Пишу программу которая по алгоритму Крускала находит минимальный...

Не правильное отображение дуг
Задаю граф, через матрицу смежности. Когда задаю малое количество дуг то...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2012, 04:05
Привет! Вот еще темы с решениями:

Нарисовать узор из окружностей и дуг
Написать процедуру, рисующую заданный объект на экране дисплея. Параметры...

Разный размер у одинаковых дуг
Как такое может быть?

Как указать центры дуг?
Как Указать центры дуг ? Сделан чертёж, чертил с помощью окружностей, затем...

Вычислить длины дуг кривых
2) Вычислить длины дуг кривых. x=2(t-sint) y=2(1-cost) o<_t<_2pi Помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru