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

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

12.02.2012, 04:05. Просмотров 884. Ответов 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)))
 
)
Всем заранее спасибо за помощь.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2012, 04:05
Ответы с готовыми решениями:

Отрисовка поверхности трохоиды (AutoLISP, 3dmesh)
Помогите разработать программу отрисовки поверхности с использованием команды “3dmesh”. Команда...

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

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

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

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

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

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

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

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


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

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

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