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

Чего-то не разберусь

23.05.2013, 20:54. Просмотров 606. Ответов 3
Метки нет (Все метки)

Как сделать например вот такую простую деталь на лиспе?
Я не могу найти нормального материала в инете, как-будто на своем компе что-то ищу, а ничего или один мусор%)
b=2
c=2
e=3.80
R=0,15
f=2
d=2
0
Миниатюры
Чего-то не разберусь  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2013, 20:54
Ответы с готовыми решениями:

Наследование. я чего-то не разберусь с доступом.объясните пожалуйста
Суть в том, что есть 2 класса.(предок потомок) У каждого класса есть friends подкласс, которые в...

Не разберусь с программами.
Всем доброго времени суток. Помогите разобраться с двумя программами, а именно скажите где...

Не разберусь с программированием
Пишу программу, но при выполнении пишет "задайте Х" кто может, помогите плисс составлением, завтра...

С кодом не разберусь
Имеется пример (представлен ниже). Использую его в своей интерпретации, а именно массив yVals надо...

3
Lambdik
1044 / 938 / 107
Регистрация: 04.11.2012
Сообщений: 971
Записей в блоге: 3
23.05.2013, 21:30 2
Николай Полещук и Вильга Савельева, И.А. Салова, Дэн Эббот, Кудрявцев Е.М.
В сети легко находится.
0
Lambdik
1044 / 938 / 107
Регистрация: 04.11.2012
Сообщений: 971
Записей в блоге: 3
05.06.2013, 21:01 3
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
(defun C:Corner (/ b c e r f d h t1 t2 t3 t4 t5 t6 obj)
 (command "._view" "_top")
 (command "._zoom" "_w" '(0.0 0.0 0.0)  '(6.0 6.0 0.0))
 (setq b 2.0
       c 2.0
       e 3.8
       r 0.15
       f 2.0
       d 2.0
       h 2.0)
  (setq t1 (cons (+ c b) '(0.0 0.0)))
  (setq t2 (cons (car t1) (cons f '(0.0))))
  (setq t3 (cons (+ (- (car t1) c) r) (cons f '(0.0))))
  (setq t4 (cons 0.0 (cons (+ f e) '(0.0))))
  (setq t5 (cons b (list (cadr t4) '0.0)))
  (setq t6 (cons b (list (+ (- (cadr t5) e) r) 0.0)))
 (command "._pline" '(0.0 0.0 0.0) t4 t5 t6 "_arc" t6 "_r" r t3 "_l" t2 t1 "_c")
 (setq obj (entlast))
 (command "_.region" obj "")
 (setq obj (entlast))
 (command "_.extrude" obj "" h)
 (command "._view" "_neiso")
 (command "._vscurrent" "_c"))
 
Команда:
_Corner
2
Ilrose
1 / 1 / 0
Регистрация: 09.06.2011
Сообщений: 68
05.06.2013, 21:38  [ТС] 4
Цитата Сообщение от Lambdik Посмотреть сообщение
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
(defun C:Corner (/ b c e r f d h t1 t2 t3 t4 t5 t6 obj)
 (command "._view" "_top")
 (command "._zoom" "_w" '(0.0 0.0 0.0)  '(6.0 6.0 0.0))
 (setq b 2.0
       c 2.0
       e 3.8
       r 0.15
       f 2.0
       d 2.0
       h 2.0)
  (setq t1 (cons (+ c b) '(0.0 0.0)))
  (setq t2 (cons (car t1) (cons f '(0.0))))
  (setq t3 (cons (+ (- (car t1) c) r) (cons f '(0.0))))
  (setq t4 (cons 0.0 (cons (+ f e) '(0.0))))
  (setq t5 (cons b (list (cadr t4) '0.0)))
  (setq t6 (cons b (list (+ (- (cadr t5) e) r) 0.0)))
 (command "._pline" '(0.0 0.0 0.0) t4 t5 t6 "_arc" t6 "_r" r t3 "_l" t2 t1 "_c")
 (setq obj (entlast))
 (command "_.region" obj "")
 (setq obj (entlast))
 (command "_.extrude" obj "" h)
 (command "._view" "_neiso")
 (command "._vscurrent" "_c"))
 
Команда:
_Corner
Спасибо, теперь лучше начал разбираться
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2013, 21:38

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

Не разберусь с программой
Клеточные автоматы. Выдаёт ошибку 26 Type mismatch. Как исправить? Program...

Не разберусь с JPanel
Никак не разберусь. Прикрепил файл, сейчас опишу что я думаю насчет вызовов: 1. Из Main...

Не разберусь со строками в С++
Решил взяться за изучение C++Builder, да пришел в тупик((( Есть простая программа, на форме...

Не разберусь с циклом
Здравствуйте! Помогите советом) Делаю тесты. Все вопросы на одной странице. Использую следующий...


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

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

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