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

Нарисовать снеговика в VISUAL lisp

20.05.2012, 09:14. Показов 1731. Ответов 1
Метки нет (Все метки)

Lisp
1
2
3
4
5
6
7
8
9
(setq p1 (getpoint "Укажите точку"))
(command "_sphere" p1 100)
(setq p2 (list (car p1) (+(nth 1 p1)175)(last p1)))
(command "_sphere" p2 75)
(setq p4 (list (car p1) (+(nth 1 p1)300)(last p1)))
(command "_sphere" p4 50)
(setq p3 (list (+(car p1)20) (-(nth 1 p1)200) (+(last p1)100)))
(setq p5 (list (+(car p1)20) (-(nth 1 p1)100) (-(last p1)50)))
(command "_cylinder" p3)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2012, 09:14
Ответы с готовыми решениями:

скачать visual lisp
где скачать visual lisp? нужно скачивать autocad?

Функции на Visual Lisp
Помогите с записью функций на лиспе... Есть наработки, но вроде не верные:...

lisp в visual studio
Можно ли писать на lisp под dot net c использованием всех возможность платформы net, желательно в...

Visual Lisp. Autocad
Всем привет. Произвольно размещенные на плоскости отрезки стянуть в одну заданную точку. Не...

1
Модератор
Эксперт Python
28783 / 15610 / 3100
Регистрация: 12.02.2012
Сообщений: 25,612
Записей в блоге: 4
20.05.2012, 10:32 2
Вот снеговичок, сделанный в HomeLispe:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
(defun snow-man nil
 
  (grwCreate 'w 300 300 "Снеговик" _WHITE)
 
  (grwSetParm  'w      ;; идентификатор окна
                  3    ;; ширина линий
                  1    ;; стиль заливки
               _BLUE   ;; цвет заливки  
               _WHITE  ;; цвет переднего плана
  )
 
  (grwScale   'w    ;; идентификатор окна
             -100   ;; Xmin
              100   ;; Xmax
             -100   ;; Ymin
              100   ;; Ymax
   )
 
   (grwCircle 'w     ;; идентификатор окна
              0      ;; X центра
              70     ;; Y центра
              20     ;; Радиус
              _BLUE  ;; цвет
    )
 
   (grwCircle 'w     ;; идентификатор окна
              0      ;; X центра
              20     ;; Y центра
              30     ;; Радиус
              _BLUE      ;; цвет
    )
 
   (grwCircle 'w     ;; идентификатор окна
              0      ;; X центра
              -50    ;; Y центра
              40     ;; Радиус
              _BLUE      ;; цвет
    )
 
   (grwCircle 'w     ;; идентификатор окна
              -7     ;; X центра
              73     ;; Y центра
               3     ;; Радиус
           _BLUE     ;; цвет
    )
    
   (grwCircle 'w     ;; идентификатор окна
               7     ;; X центра
              73     ;; Y центра
               3     ;; Радиус
           _BLUE     ;; цвет
    )
 
   (grwLine  'w      ;; идентификатор окна
             0       ;; X1
             70      ;; Y1
             0       ;; X2
             60      ;; Y2
            _RED     ;; цвет
   ) 
 
   (grwLine  'w      ;; идентификатор окна
             -24     ;; X1
              37     ;; Y1
             -56     ;; X2
              56     ;; Y2
            _BLUE    ;; цвет
   ) 
 
   (grwLine  'w      ;; идентификатор окна
              24     ;; X1
              37     ;; Y1
              56     ;; X2
              56     ;; Y2
            _BLUE    ;; цвет
   )
 
   (grwArc    'w    ;; идентификатор окна
               0    ;; X центра
 
              70    ;; Y центра
              15    ;; Радиус
      (* 1.3 _Pi)   ;; Нач. угол
      (* 1.7 _Pi)   ;; Кон. угол
            _BLUE   ;; цвет
   )
 
   (grwShow 'w)
)
0
Миниатюры
Нарисовать снеговика в VISUAL lisp  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2012, 10:32

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Построение чертежа в Visual Lisp
Всем привет. По заданному натуральному числу N, радиусу наибольшей окружности R1 и радиусу...

Нужно сделать fillet у ребра 3d объекта через visual lisp!
Основная проблема в том что я не знаю как отметить ребро 3d точкой! ПОМОГИИИТЕЕЕ!!!

Книги или другой источник, где описана история версий Lisp и Common Lisp
Доброго времени суток.Такой вопрос,знаете какой-нибудь источник,где описана история версий Lisp и...

Организация циклов в Lisp (bee lisp demo)
разбираюсь с простыми задачами, эти пока не знаю, как решать... помогите пожалуйста. 1. Слова в...


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

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

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