Форум программистов, компьютерный форум, киберфорум
Наши страницы
AutoLISP
Войти
Регистрация
Восстановить пароль
 
Skat72
0 / 0 / 0
Регистрация: 30.12.2008
Сообщений: 14
1

PC-LISP to AutoLisp

09.10.2010, 16:46. Просмотров 972. Ответов 0
Метки нет (Все метки)

Здравствуйте, есть небольшая просьба, "переложить" программку с PC-Lisp'а на AutoLisp

вот код
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
(defun f(st)
    (cond
        (t (f1 (concat st " _") (cons nil nil)))
    )
)
(defun f1(st a)
    (cond
        ((= (strlen st) 1) (f4 (reverse (cdr a))))
        ((equal (nthchar st 1) (ascii 32)) (f1 (substring st 2) a) )
        (t (f2 st "" a))    
    )
)
(defun f2(st buf a)
    (cond    
        ((= (strlen st) 1) (f4 (reverse (cdr a))))
        ((equal (nthchar st 1) (ascii 32)) (f1 (substring st 2) (append a (cons buf nil))))
        (t (f2 (substring st 2) (concat buf (nthchar st 1)) a))
    )
)
(defun f4(a)
    (cond
        ((null a) "")
        (t (concat (concat (car a) " ") (f4 (cdr a))))
)
)
Заранее благодарен
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2010, 16:46
Ответы с готовыми решениями:

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

Парсер lisp на lisp
Здравствуйте! Решил написать компилятор racket (диалект lisp) на racket, для...

Запуск AutoLISP
Как запустить AutoLISP в AutoCad"e. Я выбираю Сервис=Приложения=... и в...

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

Программа в AutoLISP
Известна длинна окружности. Найти площадь круга, ограниченного этой окружностью.

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

Заливка цветом в AutoLisp
Доброго времени суток! Не подскажете, можно ли в автолиспе сделать заливку...

Движение фигуры в AutoLisp
помогите пожалуйста, как заставить фигуру двигаться??

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


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

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

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