Форум программистов, компьютерный форум, киберфорум
Наши страницы
AutoLISP
Войти
Регистрация
Восстановить пароль
Другие темы раздела
AutoLISP Построить 2 фигуры http://www.cyberforum.ru/autolisp/thread1605939.html
Здравствуйте, помогите построить 2 фигуры(отдельно) через AutoLisp. Первая - фигура в виде чашки, ввторая - в виде гриба, особых параметров или указаний нет, спасибо большое.
AutoLISP AutoLisp Программирование с использованием двумерных списков Собственно, предыстория. Выбирая профессию для учебы, сильно лоханулся и начиная со второго курса мало что понимаю. Прошу помочь, возможно кому-то это легко. Помогите сдать сессию:cry: В данной... http://www.cyberforum.ru/autolisp/thread1603856.html
AutoLisp относительные координаты AutoLISP
Всем привет! Есть команда (command "pline" A "@10<45" "@10<0" "@-10<45" "") Она отлично работает при использовании константных значений в записи координат. Подскажите, каким образом возможно...
AutoLISP Отрисовка поверхности трохоиды (AutoLISP, 3dmesh)
Помогите разработать программу отрисовки поверхности с использованием команды “3dmesh”. Команда 3dmesh строит поверхность с помощью сетки (mesh): Command: 3dmesh M: число N: число Point(1,1):...
AutoLISP Обход двумерного массива на AutoLisp http://www.cyberforum.ru/autolisp/thread1589303.html
Преподаватель задал задачку. Необходимо совершить обход массива в соответствии с картинкой. Массив задается как список подсписков: каждая строка - подсписок. Буду очень благодарна, если натолкнете...
AutoLISP AutoLISP работа с файлом Здравствуйте! Необходимо реализовать вывод и ввод в файлы. Программа чертит заданную по условию фигуру и проверяет попадает ли точка в заштрихованную область. Пользователь может выбрать вводить ли... подробнее
Lambdik
1038 / 932 / 106
Регистрация: 04.11.2012
Сообщений: 968
Записей в блоге: 3
08.01.2016, 22:58 0

AutoLisp, поменять порядок цифр числа

08.01.2016, 22:58. Просмотров 1072. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено Catstail как решение

Решение

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun F (integer / str)
  (setq str (itoa integer))
  (if (vl-string-search "3" str)
      (read (vl-list->string (reverse (vl-string->list str))))
      integer))
 
Command: (F 1234)
4321
 
Command: (F 124)
124


Вернуться к обсуждению:
AutoLisp, поменять порядок цифр числа
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2016, 22:58

Поменять порядок цифр числа n на обратный
Поменять порядок цифр числа n на обратный. Помогите сделать так чтобы работала с...

Поменять порядок цифр заданного числа на обратный
I. Дано натуральное число n. Поменять порядок цифр числа n на обратный. Проанализировать...

Поменять порядок следования цифр целого числа
Описать функцию InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на...

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