Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Rinsvent
0 / 0 / 0
Регистрация: 05.10.2012
Сообщений: 11
1

Дуга в autolispe

02.01.2013, 14:45. Просмотров 1735. Ответов 3
Метки нет (Все метки)

Как задать дугу в autolispe?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2013, 14:45
Ответы с готовыми решениями:

Autolisp Полилиния-дуга
Доброго времени суток. Нужно в автокаде с помощью автолиспа нарисовать фигуру полилиниями. Вроде...

Круг, дуга...
Недавно начал изучать HTML и столкнулся с таким вопросом: Как, например, в углу сайта нарисовать...

Дуга в TCanvas
Доброго времени суток!) Нужно соединить две точки на плоскости (знаем X1, Y1 и X2, Y2) дугой в...

Дуга Ellips
Такая проблема, нужно написать программу, которая рисует множество дуг эллипса разного цвета,...

ООП - Дуга Окружности (Графика)
Создать Объект - Дугу Окружности. Написать Программу Движения Фигуры По Экрану, не выходя за его...

3
Catstail
Модератор
25413 / 13041 / 2432
Регистрация: 12.02.2012
Сообщений: 21,287
02.01.2013, 15:20 2
В autolisp-е - не скажу, а в HomeLisp-е вот так:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(defun arcs nil
  (let ((rr 0) (gg 0) (bb 0) (x 0) (y 0) (r 0) (abeg 0) (aend 0) (co 0))
       (grwCreate 'w 200 200 "Дуги" _WHITE)
       (grwScale 'w -100 100 -100 100)
       (grwSetParm  'w    ;; идентификатор окна
                     3    ;; ширина линий
                     1    ;; стиль заливки
                 _BLUE    ;; цвет заливки  
                _WHITE    ;; цвет переднего плана
        )
       (grwShow 'w)
       (loop     
         (setq x (- (* (rnd 1.0) 200) 100))
         (setq y (- (* (rnd 1.0) 200) 100))
         (setq r (* (rnd 1.0) 60))
         (setq abeg (* 2 _Pi (rnd 1.0)))
         (setq aend (* 2 _Pi (rnd 1.0)))
         (setq rr (rnd 255)) 
         (setq gg (rnd 255)) 
         (setq bb (rnd 255)) 
         (setq co (fix2bit (+ (* 4096 bb) (* 256 gg) bb)))
         (grwArc 'w    ;; идентификатор окна
                 x     ;; X центра
                 y     ;; Y центра
                 r     ;; Радиус
                 abeg  ;; Нач. угол
                 aend  ;; Кон. угол
                 co    ;; цвет
         )
         (when  (<> 0 (grwInkey 'w 100)) (return 'Ok))
       )
       (grwDestroy 'w)))
0
Catstail
Модератор
25413 / 13041 / 2432
Регистрация: 12.02.2012
Сообщений: 21,287
02.01.2013, 15:22 3
Вот картиночка:
0
Изображения
Тип файла: jpg lisp-22.JPG (17.9 Кб, 104 просмотров)
Lambdik
1044 / 938 / 107
Регистрация: 04.11.2012
Сообщений: 971
Записей в блоге: 3
02.01.2013, 17:22 4
Есть много способов, штук 20.
Lisp
1
2
3
(command "_.arc" "0,0,0"  "_c" '(67 0 0) "_a" 120) – начало, центр, угол
(command "_.arc" '(0 0 0) "_c" '(67 0 0) "_l" 120) – начало, центр, хорда
(command "_.arc" '(0 0 0) "_e" '(67 0 0) "_a" 120) – начало, конец, угол
0
02.01.2013, 17:22
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2013, 17:22

Размеры прямоугольника в который вписана дуга
Размеры прямоугольника в который вписана дуга. Здравствуйте. Имеется система координат в...

Построение фигуры: прямоугольник и дуга сверху
построить прямоугольник и сверху дугу

Дуга окружности в 3d пространстве. Определение интервала по каждой из осей
Имеется: 3d пространство. В нем окружность. Знаем нормаль плоскости в которой лежит...


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

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

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