AutoLISP

Форум программистов и сисадминов Киберфорум

Войти

Другие темы раздела
AutoLISP Отрисовка поверхности трохоиды (AutoLISP, 3dmesh) https://www.cyberforum.ru/ autolisp/ thread1592334.html Помогите разработать программу отрисовки поверхности с использованием команды “3dmesh”. Команда 3dmesh строит поверхность с помощью сетки (mesh): Command: 3dmesh M: число N: число Point(1,1):... Все еще актуально.	Поменять порядок цифр числа AutoLISP Необходимо перевернуть натуральное число n в том случае, если в него входит цифра 3. Я смог только проверить число на наличие тройки, а вот с переворотом беда. Помогите пожалуйста. (DEFUN REV(X)... В HomeLisp это будет так: (defun task (n) (let ((l (explode n))) (if (member 3 l) (implode (reverse l)) n))) ==> task
AutoLISP Построение семейства фигур https://www.cyberforum.ru/ autolisp/ thread1572834.html Никак не могу отладить код готовой программы, то, что должно получится приложил. (defun ID () (setq P1 (getpoint "\n Нач. точка:")) (setq L (getdist P1 "\n Нач. длина:")) ) (defun QUADR (L... Никак не могу отладить код готовой программы Пишите свой код. до этого цеплялась одна точка к построенному из другой "программы" Нужно отключать привязку, тогда не будет цеплять. (setq osmode...	AutoLISP Построить 2 фигуры https://www.cyberforum.ru/ autolisp/ thread1605939.html Здравствуйте, помогите построить 2 фигуры(отдельно) через AutoLisp. Первая - фигура в виде чашки, ввторая - в виде гриба, особых параметров или указаний нет, спасибо большое. ;;; cup.lsp Drawing a cup (defun d (p x y) (mapcar '+ p (list x y))) (setq p0 (getpoint "\nStart point: ")) (command "_.pline" p0 (setq p1 (d p0 0 -120)) (setq p2 (d p1 80 0))
AutoLISP Относительные координаты Всем привет! Есть команда (command "pline" A "@10<45" "@10<0" "@-10<45" "") Она отлично работает при использовании константных значений в записи координат. Подскажите, каким образом возможно... Например, посредством функции (polar). https://www.cyberforum.ru/ autolisp/ thread1603763.html	AutoLISP Построение соприкасающихся окружностей Помогите пожалуйста с заданием: Построение параметрических чертежей в среде AutoCAD 2010 Задание: По радиусу R и натуральному числу N построить рисунок из N соприкасающихся окружностей радиуса... См. чертеж.
AutoLISP [AutoCAD 2010] Задача по помещению окружностей в центр треугольника Суть задания: нужно создать такую функцию, которая бы просматривала все элементы на чертеже, выбирала круги радиуса, меньше указанного и запихивала их в центр первого найденного треугольника. Исходя... 1) Замкнутая полилиния с тремя вершинами - необходимое, но недостаточное условие 2) Центр треугольника??? на пересечении медиан https://www.cyberforum.ru/ autolisp/ thread1703660.html	AutoLISP AutoLisp для вершин полилиний https://www.cyberforum.ru/ autolisp/ thread1637936.html Здравствуйте! Помогите, пожалуйста, написать Лисп-код, который у выбранной полилинии от всех вершин, начиная со второй проводит полилинии вниз длиной, например, 200мм. Должно получиться как на... Простая задача. Команда работает с набором полилиний. Длину линий можно указать, или пропустить, нажав правую кнопку мыши, будет 200. (defun c:DrawDownLines ( / pair-coords doc mS ss len i obj...
AutoLISP Обход двумерного массива Преподаватель задал задачку. Необходимо совершить обход массива в соответствии с картинкой. Массив задается как список подсписков: каждая строка - подсписок. Буду очень благодарна, если натолкнете... Подсказываю идею: 1) Берешь j-ю строку 2) если номер очередного элемента меньше половины длины, а его координаты (j,i) то координаты следующего элемента будут (j+1,i-1) 3) если номер очередного... https://www.cyberforum.ru/ autolisp/ thread1589303.html	AutoLISP Программирование с использованием двумерных списков https://www.cyberforum.ru/ autolisp/ thread1603856.html Собственно, предыстория. Выбирая профессию для учебы, сильно лоханулся и начиная со второго курса мало что понимаю. Прошу помочь, возможно кому-то это легко. Помогите сдать сессию:cry: В данной... vlisp, а ведь Ваш код решает не ту задачу... Добавлено через 5 минут (defun task (matr) (let* ((s (mapcar #'(lambda (x) (list (apply 'min x) (apply '+ x))) matr)) (m (apply 'min...
Просьба прокомментировать готовую программу на AutoLisp AutoLISP (defun fillPoints (n l o i d) (if (= i n) (list (polar o d l)) (cons (polar o (+ (/ (* pi 2 i) n) d) l) (fillPoints n l o (+ i 1) d)) ) ) (defun drawPolygon (points) (if (cdr... плохой код	AutoLISP Работа с файлом Здравствуйте! Необходимо реализовать вывод и ввод в файлы. Программа чертит заданную по условию фигуру и проверяет попадает ли точка в заштрихованную область. Пользователь может выбрать вводить ли... Virviglaz Ну как, получается? Слишком много букв лишних в этой теме. Важно понимать, что для записи в файл используется два разных механизма, не зависящих друг от друга. Один механизм, это... https://www.cyberforum.ru/ autolisp/ thread1575349.html

rdt

188 / 155 / 17

Регистрация: 18.12.2015

Сообщений: 179

08.02.2017, 12:35

Как сделать, чтобы функции princ, prin1 и print печатали аргумент ПО ОДНОМУ РАЗУ? - AutoLISP - Ответ 10090428

08.02.2017, 12:35. Показов 3414. Ответов 7

Метки (Все метки)

Ответ

Вот ещё вариант:

Lisp

Command: (defun my-print (x) (print x) (print))
MY-PRINT
Command: (my-print 123)
123

Вернуться к обсуждению:
Как сделать, чтобы функции princ, prin1 и print печатали аргумент ПО ОДНОМУ РАЗУ? AutoLISP

Следующий ответ

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

08.02.2017, 12:35

Готовые ответы и решения:

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

Аргумент end к функции print
Я новичок, объясните пж, в чем проблема: a=input() print('The next number for the number'+a+'is'+str(int(a)+1)+sep=' '+end='.\n') ...

Аргумент flush функции print
Не совсем понимаю зачем этот аргумент и как он работает, по идее он должен очищать файл, в который мы выводим, тогда вот этот код: import...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

08.02.2017, 12:35

Помогаю со студенческими работами здесь

Изменить строку таким образом, чтобы все различные символы остались по одному разу
Изменить строку таким образом, чтобы все различные символы остались по одному разу, причем остаются последние вхождения этих символов в...

Движение коня по всем 64 клеткам шахматной доски так, чтобы он появился на каждом поле по одному разу
Помогите с решениям. А то моих знаний С++ не достаточно Условие задачи: Шахматный конь: Написать программу, которая реализует движение...

Как сделать, чтобы аргумент командной строки не экранировался
Команда "app.exe arg1\narg2" После получения аргумента , args = "arg1\\narg2"; Как все же добиться перевода текста на новую...

Стандартные процедуры/функции: определить слова, которые встречаются в строке по одному разу
Строка вводит пользователь . Обязательно использовать стандартные процедуры и функции работы со строками . Задание: Определить слова...

Как сделать так, чтобы аргумент остался в восьмеричном варианте навсегда?
Моя программа программа читает десятичное число с консоли и выводит это же число, но в восьмеричном варианте. int main() { ...

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

Наверх