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

Темы раздела AutoLISP

Поля в таблице, как с ними работать?
Вопрос как работать с полями в таблице получить\создать на автолисп? Интересует в первую очередь получение поля, т.к можно примерно подсмотреть структуру - понять и как то взаимодействовать... ...

Работа с файлом
Здравствуйте! Необходимо реализовать вывод и ввод в файлы. Программа чертит заданную по условию фигуру и проверяет попадает ли точка в заштрихованную область. Пользователь может выбрать вводить ли...

Рисование кругов AutoLisp
помогите пожалуйста сделать задание (Autocad через лисп ) Нарисовать несколько графических объектов с помощью команды "circle". С помощью программы изменить все центры этих радиусов на заданные в...

Заливка цветом в AutoLisp
Доброго времени суток! Не подскажете, можно ли в автолиспе сделать заливку цветом? Почему-то нахожу только штриховки или заливку средствами автокада :( Нужно сегодня... Заранее спасибо!

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

Построить график функции
Здравствуйте, помогите построить график с помощью AutoLISP для вот такой вот функции: y=x+e^x

Нарисовать через функцию AutoLisp букву "р" кириллического алфавита по типу шрифта TimesNewRoman
Прошу помогите, есть задача, но не могу её решить. Нужно нарисовать через функцию с помощью функции AutoLisp букву "р" кириллического алфавита по типу шрифта TimesNewRoman. Входная информация: точка...

Автоматизировать НАЙТИ И ЗАМЕНИТЬ текст
Здравствуйте! У меня есть 1. чертёж Автокад (с текстами на нём)... 2. файл Эксель, в котором 2 столбца: Столбец 1: текст, который, возможно, есть в чертеже (старый, который нужно...

Неверно сформированный список на входе
Функция «lp» строит оси координат (строки 6-9), запрашивает положение конечных точек отрезка (строки 12, 13), строит отрезок (строка 15) и его зеркальное отражение относительно начала координат...

Определить, имеется ли в магазине заданный товар с ценой не выше заданной
Всем привет, кто-то сталкивался с такой задачей? стало непонятно тема файлов, может кто-то поделиться навыками программирования в lisp-e В задание программы должны использовать базу данных о...

AutoLisp для вершин полилиний
Здравствуйте! Помогите, пожалуйста, написать Лисп-код, который у выбранной полилинии от всех вершин, начиная со второй проводит полилинии вниз длиной, например, 200мм. Должно получиться как на...

Удаление пробелов из введенного текста
Была дана задача выполнить удаление пробелов с введенного текста, помогите плиз кто шарит в автолиспе, расписать эту функцию надо примерно так: (defun Del (str1 str2) (cond ((= str1 " ")...

Функция «Штрих Шеффера»
написать программу (Функция «Штрих Шеффера»)

Создание и нумерация точек линии
Здравствуйте! Нужен SZZ.lsp, расставляющий и в отдельном слое нумерующий точки вдоль линии по часовой стрелке с заданным началом и интервалом. Сейчас слой и блок для нумерации точек создаю...

Построение треугольников
В среде Автокада средствами Автолиспа построить множество пересекающихся правильных треугольников и залить их разными цветами. Область пересечения должна представлять некоторую фигуру, не являющуюся...

Как вывести значение переменной через текст с указанием точки вставки
Работаю в автокаде и решил написать программу для интерполяции высот точек. Указываю значение высоты (которая выше), указываю значение высоты (которая ниже), беру расстояние между точками, беру...

Программно изменить цвет выбранного примитива
Как программно через AutoLisp изменить цвет выбранного примитива?

Более одного выражения для if
Мне потребовалось сделать простую вещь: найти графический элемент и изменить его свойства. Я пишу следующий код: % Две строчки из примера: (setq en (entnext)) ; Sets en to first entity...

AutoLisp. Задача построить многоугольник
Вобщем такое задание: "По заданному числу N и длине L построить плоскую проекцию 3-мерного тела, у которого основания параллельны и являются правильными многоугольниками (с N и 2N...

Запуск AutoLISP
Как запустить AutoLISP в AutoCad"e. Я выбираю Сервис=Приложения=... и в открывшемся окне на диске С:AutoCad R14 нет папки Vlisp. Я новичек в этом деле (раньше программировала только на VBA и Object...

Используемые иногда мной LISP и МЫ
в данной теме и ещё на 5-ти форумах размещу как есть только тексты: используемые иногда мной LISP и МЫ entlen.lsp = длины gakson.lsp = аксонометрия zam.lsp = массовая замена текстов ...

Сформировать список из позиций элемента, заданного параметром X, в списке L
Добрый день! Подскажите, пожалуйста, как правильно описать условие, чтобы в "цикле" пройти все элементы списка, а не только первый, соответствующий заданному параметру. Сформируйте список из...

Программа-калькулятор AUTOLISP
Пожалуйста,помогите!Срочно нужна программа-калькулятор на AUTOLISP в среде AUTOCAD выполняющая арифметические операции,операции с положительными и отрицательными числами,операции со...

Вывод площади фигуры, образованной замкнутой полилинией в атрибутный блок
Добрый день, уважаемые форумчане. Нужен код для решения следующей задачи: При выборе замкнутой полилинии на чертеже внутри нее должен появиться атрибутный блок с указанием её площади. Блок...

Удалить из первого списка все элементы других списков. Списки и их количество должны задаваться с командной строки
Даны несколько списков. Удалить из первого списка все элементы других списков. Списки и их количество должны задаваться с командной строки AutoCAD. (Программа должна вызываться командой из среды...

Второй день в Lisp. Как сделать подфункции?
Добрый день второй день методом тыка изучаю AutoLisp в Автокаде вопрос: как сделать в программе отправку на процедуру (функцию)? пишет: неверная функция 10 заранее благодарен! (defun ab...

Построение семейства фигур
Никак не могу отладить код готовой программы, то, что должно получится приложил. (defun ID () (setq P1 (getpoint "\n Нач. точка:")) (setq L (getdist P1 "\n Нач. длина:")) ) (defun QUADR (L...

Как сделать, чтобы функции princ, prin1 и print печатали аргумент ПО ОДНОМУ РАЗУ?
Друзья! Работаю в VisualLISP, AutoCAD Неужели ничего умного не придумали на этот счёт? Вывожу значение какой-нибудь переменной, например: (princ "Hello, word!") Вот охота была два раза...

Вычисление периметра прямоугольного треугольника
Добрый день! Необходимо составить программу для вычисления периметра прямоугольного треугольника, если длину гипотенузы и один из углов определяют переменные l и u. Длины катетов имеют обозначения k1...

Добавление и удаление списка из списка списков в AutoLisp
Здравствуйте! У меня такая задача: нужно создать список хранящий в себе списки, типа (setq mother_list (list (list 50 20 30) (list 10 10 10) (list 20 20 20))) Из этого списка необходимо будет...

Построить 2 фигуры
Здравствуйте, помогите построить 2 фигуры(отдельно) через AutoLisp. Первая - фигура в виде чашки, ввторая - в виде гриба, особых параметров или указаний нет, спасибо большое.

Программа отрисовки винтов
Помогите студенту-заочнику разобраться и написать программу в LISP. Первый раз встречаюсь с этой "штукой". Спасибо! Условие: Отрисовка винтов. Программа должна обеспечивать: 1. Выбор типа винта (с...

Пакетное создание PDF и DXF из листов чертежа
Здравствуйте! Очень нужен LayoutsToPDFsDxfs.lsp, создающий из набора листов внутри одного чертежа набор отдельных PDF и DXF-R12 в папке "(tmp)". В идеале: кидаем LayoutsToPDFsDxfs.lsp в ACAD -...

Нарисовать два треугольника с общей стороной по 4 задаваемым точкам и описанные вокруг них две окружности
Всем приятного дня, друзья, вынужден просить вас помощи в написании следующей задачи: Средствами AutoLISP создать функцию, рисующую разными цветами: Два треугольника с общей стороной по четырем...

Функция построения правильного пятиугольника, вписанного в окружность заданного радиуса
Доброго времени суток! Помогите создать функцию для построения правильного пятиугольника, вписанного в окружность заданного радиуса в AutoLisp

Сравнение действительных чисел
Необходимо сравнить результат вычисления функции с ответом. Когда результатом вычисления функции получается число с небольшой точностью, я его могу сравнить с готовым ответом, НО при увеличении...

Error: too many arguments
При отладке показывает на кусок кода: (IF (= J 1) (SETQ TT1 BT ; координаты первого угла офиса TT2 T1 ; координаты второго угла офиса TT3 T2 ; координаты третьего угла офиса...

Скалярное произведение
Всем привет! Изучаю лисп, пытаюсь решить задачку (Определите функцию, вычисляющую скалярное произведение векторов, за- данных списками целых чисел.) Получилось вот так, и все равно не работает :(...

Lisp извлекает размер в буфер обмена
Здравствуйте! Помогите, пожалуйста написать такой Lisp: - при измерении в автокад, значение размера копируется в буфер обмена, чтобы можно было скопировать напр. в Excel, точность до двух знаков...

Пирамида - AutoCad 2006
Ребят, помогите построить пирамиду в Автокаде 2006. В более поздних версиях есть такая команда, а в 2006 нет:(

Сортировка списка с множеством координат по возрастанию вдоль оси Х
Требуется отсортировать список с координатами по возрастанию по оси Х (от меньшей к большей), кто нибудь сталкивался с таким как это делается что применяется? Список такого вида: (setq sp '(...

Ошибка: неверно сформированный список на входе
Напишите и выполните программу для вычисления выражения 1/5*(B*X/Z)+ 5*(B+A-80). Код (defun lsp_17 ( A B X Z ) ( + ( * ( / 1 5 )( * B ( / X Z )))( * 5 ( - 80 ( + B A )))) При вводе...

Отрисовка 2D и 3D примитивов по координатам кликом мыши и по координатам в командной строки
Добрый день. ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЮ. Стоит задача: Отрисовка 2D и 3D примитивов. Организовать диалог с пользователем через командную строку. Программа должна обеспечивать построение 2D...

Относительные координаты
Всем привет! Есть команда (command "pline" A "@10<45" "@10<0" "@-10<45" "") Она отлично работает при использовании константных значений в записи координат. Подскажите, каким образом возможно...

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

Выполнить чертеж в AutoLisp
Подскажите пожалуйста, как сделать этот чертеж с помощью AutoLisp?

Сложение элементов списка с вложенными подсписками
Добрый день столкнулся с проблемой, есть список (Setq test '((5.5 "п.") (6.0 "г.") (5.5 "п.") (4.3 "д.") (2.0 "г.") (17.0 "с."))) Хотелось бы получить список в котором сложены первые...

Создание таблицы содержания курсовой работы
Здравствуйте, поставленно задание отрисовать таблицу представленную на изображениях. Лисп открыл впервый раз, получилось следующее: (DEFUN c:mp_kub (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12...

Печать из Модели dwg разом нескольких листов с сохранением в PDF
Вопрос по методу PlotToFile. Хотел сделать программку на AutoLisp с сохранением в pdf разом нескольких чертежей под разными именами файлов. Выбор чертежей их размеров и координат окна определял по...

Выбор объекта
Каким образом можно выдавить прямоугольник? Вот функция SendStringToExecute, чтобы нарисовать прямоугольник, а затем мне нужно его выдавить.. acDoc.SendStringToExecute("_.rectang " +...

Создание примитивов (прямоугольник со скругленными углами)
Подскажите, пожалуйста, как нарисовать прямоугольник со скругленными углами в AutoLISP. При вызове функции пользователь должен указать дины 2х сторон и радиус скругления.

Как повернуть из командной строки объект командой 3drotate
Привет, вопрос в топике, пояснение в комментарии к коду. (defun c:figure() (command "cylinder" "0,0,0" "2.5" "30" "") (command "sphere" "0,0,0" "10" "") (command "sphere" "0,0,30" "10"...

[AutoCAD] Найти координаты центра отрезка
В общем задача стоит так: Пользователь строит отрезок по 2 точкам и нужно через центр этого отрезка провести перпендикулярно XLine Нужно написать отдельную команду для этого Прошерстил гугл, но...

Начертить окружность с находящимся в ней прямоугольником
Здравствуйте! Помогите пожалуйста разобраться. Необходимо начертить окружность с находящимся в ней прямоугольником (как на картинке). Пыталась выполнить это задание двумя способами: сначала чертила...

Что не так с прогой?
Помогите с прогой , не могу разобраться почему не работает. (command "_UCS" "_W") (setq pt_ins (getpoint "Center point:") osmode_old (getvar "osmode") layer_old...

Программа-нумератор полилиний
Помогите пжлст, нет опыта работы в программировании автокада) Ниже приведена программа для нумерации одной выбранной полилинии. А необходимо исправить ее так, чтоб можно было выбрать несколько...

Отрисовка поверхности трохоиды (AutoLISP, 3dmesh)
Помогите разработать программу отрисовки поверхности с использованием команды “3dmesh”. Команда 3dmesh строит поверхность с помощью сетки (mesh): Command: 3dmesh M: число N: число Point(1,1):...

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

Сделать ввод пользователя
Здравствуйте! Помогите пожалуйста, только начал изучать AutoLISP. Нужно построить модель через ввод от пользователя, подскажите как сделать ввод всех боксов для этой модели и как добавить проверки?...

Штриховка 2D фигуры (кодом)
Здравствуйте, нужна помощь в штриховке 2D объекта. У меня есть код, который строит 2d объект (в VLISP), но нужно еще, чтобы он был заштрихован внутри. Не могу никак это реализовать Код: ...

Есть такой язык программирования Autolisp
Кто знаком с этим языком? Нужна помощь Какое значение вернет функция (пример): (POLAR (list 7 (- 12 10)) PI 2) ?

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

Змейка ортогональная
Доброго дня коллеги! Задача такая: 1. Рисуем произвольно 9 линий, последовательно (в режиме орто. зажат shift), т.е. функцией отрезок автокада. в трехмерном пространстве. Т.е. линии в разных...

Построить треугольник, если известны стороны
Помогите, пожалуйста, построить треугольник, если известны стороны в Autolisp'e

Напишите функцию AРAТ, такую, что (APAT L (QUOTE G)) применяет слева направо функцию G к каждому атому L
Напишите функцию AРAТ, такую, что (APAT L (QUOTE G)) применяет слева на право функцию G к каждому атому в S-выражении списка L.

Как правильно создать сплайн?
(setq p (getpoint "Точка вставки: ")) (setq Px (nth 0 p)) (setq Py (nth 1 p)) (setq Pz (nth 2 p)) (nab_len 300) (repeat nab_len (setq Px (+ Px 10)) (setq Py (+ Py 30)) (setq Pz (+ Pz...

Неверно сформированный список на входе
Ошибка:Неверно сформированный список на входе Подскажите, как решить данную проблему. Заранее благодарен. (defun c:lol() (setq p1 (getpoint "Введите начальную точку")) (setq p2 (list (car p1)...

Проход списка с шагом n
Список (15 20 25 30 35 40 45 50 55 60), "пройденный с шагом 3" порождает список (15 30 45 60). Напишите соответствующую функцию для шага N.

Рисование правильных разноцветных 8- или 12-угольников между двумя заданными точками
Средствами AutoLISP создать функцию, осуществляющую ввод данных в режиме диалога и рисующую с использованием разных цветов правильные 8- или 12-гранники между двумя заданными точками на требуемом...

Нужно определить что делает программа
(defun func (x y) (cond ((null x) (null y)) ((atom x) (eq x y)) ((atom y) nil) (t (and (func (car x) (car y)) (func (cdr x) (cdr y))))))

Способ изучения autolisp
Привет. Посоветуйте пожалуйста, как бы мне к зверю(авто лисп) этому найти подход? Прошу толковую книгу, одну, чтобы структурировано от простого к сложному. Может быть нужно сначала другой...

Неверно сформированный список на входе Автокад
Помогите плиз ИИ поправил код на лисп, автокад пишет что - ошибка:Неверно сформированный список на входе ;;---------------------=={ Object Lock }==--------------------;; ;; Автоматическая...

Сортировка чисел
РеБЯтА ПОМОГИТЕ ПОЖАЛУЙСТА!!! НА ЯЗЫКЕ AUTOLISP В СРЕДЕ AUTOCAD Сортировка чисел, хранящихся в файле. В файле хранятся положительные, отрицательные, чётные, нечётные, целые и числа с десятичной...

Как определить угол между двумя прямыми?
Как в VisualLisp определить угол между двумя прямыми.

Как начертить зубчатое колесо, используя AutoLisp?
Доброго времени суток. Нужно реализовать программу, рисующую зубчатые колёса. Программа имеет такой вид: Картинка Количество зубьев(n) = (2*pi*r) / (длина стороны зуба), отбрасывая дробную часть....

Построение неправильных невыпуклых пятиугольников
Решил пойти дальше по задачам и встал на вот этом: В среде Автокада средствами Автолиспа построить множество пересекающихся неправильных невыпуклых пятиугольников и залить их разными цветами....

Построение соприкасающихся окружностей
Помогите пожалуйста с заданием: Построение параметрических чертежей в среде AutoCAD 2010 Задание: По радиусу R и натуральному числу N построить рисунок из N соприкасающихся окружностей радиуса...

Открыть VLX файл
Доброго времени суток. Назрел такой вопрос: (сам я не являюсь ни программистом ни разработчиком) у меня есть vlx файл, на сколько я понимаю это "сборник" различных Lisp'ов, я использую эти лиспы у...

Обход двумерного массива
Преподаватель задал задачку. Необходимо совершить обход массива в соответствии с картинкой. Массив задается как список подсписков: каждая строка - подсписок. Буду очень благодарна, если натолкнете...

OFFSET через Autolisp
Добрый день. Задача следующая: Есть замкнутая полилиния. Необходимо сделать оффсет наружу на заданную величину. На данный момент написал такой код, но он не правильно работает если исходная...

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

Не могу запустить lisp программу
Здравствуйте. Сильно не ругайте, я начинающий) Есть старая программа FORMAT на lisp для автокада, я ее установил, в консоли команду видит. Ввожу команду - и ничего не происходит, смотрел...

Определение координат текста в многострочном тексте?
Определение координат текста в многострочном тексте? можно ли найти координаты рамки описанного вокруг слова в многострочном тексте?...

AutoLisp - Вид сверху/Слева
Может кто подсказать, как в коде указать, чтобы вид стал сверху/слева. Пытался через "_view" "_top" - ничего не получилось. Autocad 2006

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

Как отобразить на рисунке длину сторон (в консоли посчитано)?
Здравствуйте, как отобразить расстояние от точки к точке на рисунке ? Значение посчитал, в консоль вывел, а теперь надо что бы отображались на рисунке. Буду очень благодарен :) Особых навыков...

AutoLisp - Не вводятся координаты
Помогите разобраться, после того как базовая точка задается, появляется следующая команда "Введите длину основания (100):" я ввожу 100 и нажимаю Enter, и вместо того чтоб дальше вводить ширину, опять...

Определите рекурсивную функцию MYCOPY, такую, что (MYCOPY X N) есть список из N копий (значений) Х
Определите рекурсивную функцию MYCOPY, такую, что (MYCOPY X N) есть список из N копий (значений) Х. Например, (MYCOPY 3 6) возвращает (3 3 3 3 3 3).

Построение модели на AutoLisp
Добрый вечер. Строю свою модель, однако я так понимаю, что где-то накосячил с "клиньями" или в моем случае просто обрезанным параллелепипедом. Выбивает ошибку: ; error: bad function: 40 после ввода...

Объединение слоев
Здравствуйте! Буду очень признателен, если кто-то поможет в следующей задаче: a) Нужно что бы одной командой (lisp/VBA/.NET) все слои с: - толщиной линий 0.09 и типом линий Continuous...

AutoLisp: вписать окружность в замкнутый сплайн
Очень нужна функция, которая бы вписывала окружность в замкнутый сплайн по контуру, причем сплайнов сотня. Просто закипает мозг, от представления как это сделать. Спасибо

Написать функцию для построения чертежа
Используя инструментальные средства программирования Visual LISP в Autodesk AutoCAD написать функцию для построения чертежа заданной комнаты

Функция возвращает из трехэлементного списка первый из них, который является атомом
Функция возвращает из трехэлементного списка первый из них, который является атомом, или список (NONE OF THESE ELEMENTS IS AN ATOM), если в списке нет элементов-атомов. Напишите данную...

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

Autolisp. Построении дуги
Пробовал сам, искал, но не выходит. Только начал изучать и тут уже такое задание, поэтому прошу помощи. Рисовал квадрат в данном куске, если нужно будет, то залью весь код. ( COMMAND "PLINE" (LIST...

Поменять порядок цифр числа
Необходимо перевернуть натуральное число n в том случае, если в него входит цифра 3. Я смог только проверить число на наличие тройки, а вот с переворотом беда. Помогите пожалуйста. (DEFUN REV(X)...

Создание двухмерного массива на автолис и заполнения из dcl диалога
Здравствуйте! Возникла такая задача: надо создать массив размером 10 на 4 и заполнить его значениями из диалога, как это реализуется в данной среде?

Задано несколько списков строковых констант: первый список упорядоченный по алфавиту, другие не упорядоченные
Нужно вставить в первый список, не нарушая его упорядоченности, элементы других списков. Есть исходный код: (defun c:Kod ( / ) (initget 7) (setq d (getint "Введите количество списков: "))...

Autocad lisp проблема с командой intersect
Доброго времени суток, пишу программу на лиспе и возникла следующая проблема. Объект созданный с помощью команды intersect то ли не запоминается в setq, то ли не объединяется командой union....

Диалоговое окно АвтоЛИСП
Доброго времени суток. Программирование для меня ново, прошу быть снисходительными. В процессе изучения языка LISP возникла проблема с работоспособностью программы. Задача - сделать программу...

Нужно разработать программу на AutoLisp
Нужно разработать программу на AutoLisp, осуществляя вычерчивания параметрической (двухмерной) модели чертежа деталей по введенному пользователю размера (допускается введение одного общего размера и...

с Км на ПК (поменять км на ПК (км 15+630 на ПК 156+30) , очень нужно
Добрый день! Люди добрые, нужна Ваши навыки, пожалуйста моя программа проектирует поперечные сечения в километрах, заказчик требует в Пикетах очень нужен лисп, который меняет + на пикеты Пример:...

Autolisp: Поместить окружности в центр четырехугольников в порядке рисования.
Доброго времени суток и с наступающим! Помогите, пожалуйста, решить следующую задачу: С использованием языка AutoLISP, модифицировать чертеж, созданный в среде AutoCAD Задание: Даны произвольные...

База данных, синтаксическая ошибка
Помогите. В методичке дана программа "Построение базы данных", но при запуске пишет Синтаксическая ошибка. (defun С:SINTEZ () (setq SHEMA '("Фамилия" "Дата рождения")) (setq OBJ ( )) ...

Сконструировать кривую по заданным точкам методом Безье
Создать функцию, рисующую кривую и характеристическую ломанную. Оформить таблицу значений функции и отклонений от заданных значений в опорных точках.

Сплайны
Как вытащить из сплайна на чертеже координаты его точек и записать в переменные?

Вставка растровых изображений в чертеж (AutoLisp)
Доброго времени суток всем! Не подскажете, есть ли в автолиспе функция вставки растровых / векторных изображений в чертеж и - если есть - как это делается?

Программирование с использованием двумерных списков
Собственно, предыстория. Выбирая профессию для учебы, сильно лоханулся и начиная со второго курса мало что понимаю. Прошу помочь, возможно кому-то это легко. Помогите сдать сессию:cry: В данной...

Необходима довести до ума диалоговое окно для отрисовки
Помогите пожалуйста У меня есть диалоговое окно, в нем две колонки в которые я записываю координаты, мне нужно объединить два списка в один что бы получился список координат. Файлы диалогового...

AutoLISP, простите за грубые слова, но...
необходимо выделить несколько примитивов и изменить их свойства (в частности тип линии) пробовал _select, ssget(не заработал), какие есть предложения? Добавлено через 20 часов 56 минут закройте...

Соеденение вершин параллельных объектов (полилиний)
Ребята, нужна помощь в написании программы для соеденения вершин параллельных полилиний. Это необходимо для построение разрезов. Алгоритм как я понимаю должен быть такой: выделяю полилинии и...

Записать условие, которое проверяет список и выдает истину, если выполняется хотя бы одно из заданных условий
Записать условие, которое проверяет список и выдает истину, если выполняется хотя бы одно из заданных условий. Если ни одно из заданных условий не выполняется, выдать NIL. Список: (((q w e) g f) n...

Как внутри автолиспа запустить пользовательскую команду?
Создал пользовательскую команду типа С:ККК(), записал в файл ККК.lsp. В другом файле прописал (load "KKK.lsp" "Файл не найден"). Загрузка проходит нормально, из командной строки автокада по ККК...

Внесение данных из файла в dwg
Столкунлся со следующей задачей — часто необходимо строить гексагональные диаграммы, например поле в форме шестиугольника, составленное из 163 маленьких шестиугльников, каждый из которых должен...

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

Координаты вершин куба
Добрый день коллеги! Может кто подскажет. Задача такая: 1. Есть куб(паралелограм) в автокаде. Нужно извлечь координаты вершин, 8 шт. Пытаюсь 2 способами: 1. читаю свойства примитива....

Нарисовать двенадцать дуг, имеющих одну общую начальную или конечную точку
нужно сделать Двенадцать дуг, имеющих одну общую начальную или конечную точку, первая дуга построена по трем заданным точкам, а каждая последующая образована поворотом предыдущей на 30 градусов

Криволинейная лестница
Помогите, пожалуйста, понять, как можно переделать вот эту винтовую лестницу на криволинейную одномаршевую с тетивой? (command "_.erase" "_all" "") (setq A 6000) (setq B 1000) (setq C 300)...

Скрипт по фильтрации блоков по их видимости
Добрый день всем. Я в AutoLISP практически 0. Нашел в интернете скрипт для выбора блоков в на чертеже в автокаде. Им можно фильтровать блоки по состоянию их видимости. Однако после загрузки...

Автоматически вставить выноску с площадью области (границы из полилинии)
Кто нибудь сталкивался с такой задачей? Есть множество площадей из полилинии. Можно конечно каждый раз выделять полилинии -> из Свойств копировать площадь -> Вставлять текст. Но это долго

Построить поверхности второго порядка и их линию пересечения
Построить поверхности второго порядка и их линию пересечения ((x*x)/(a*a) - (y*y)/(a*a) -(z*z)/(b*b))=0; ((x*x)/(c*c) + (y*y)/(d*d) + (z*z)/(e*e)) =R*R; a=80; b=80 c=1 d=1 e=1

[AutoCAD 2010] Задача по помещению окружностей в центр треугольника
Суть задания: нужно создать такую функцию, которая бы просматривала все элементы на чертеже, выбирала круги радиуса, меньше указанного и запихивала их в центр первого найденного треугольника. Исходя...

Я с lisp так и не подружился
Проверить, что заданная строка содержит оператор if языка C++ (defun prov (st n) ) (prov "int blabla ;") Спасибо заранее. Добавлено через 10 минут Проверить, что заданная строка содержит...

Имена Блоков Некорректны
Имена Блоков Некорректны. День добрый. Столкнулся с ситуацией. в чертеже имеются блоки, им присвоены имена и они отражаются в свойствах. Но при обращении к блоку, у некоторых блоков имена не...

Калькулятор на autolisp
Небольшие проблемы с калькулятором. Есть два бокса, куда вводятся числа, между которыми кнопка "<-", которая переносит вводимые числа из второго бокса в первый. Почему-то у меня при нажатии на "<-"...

Сумма длин всех объектов (от отрезков до спиралей и мультилиний)
Добрый день! Я не нашел ни одного LISP приложения для подсчета длин, который бы считал все объекты: от отрезков до спиралей и мультлиний. Есть разные, но универсального нет. Ниже приведены два...

Функция поиска частей списка с рекурсией
Приветствую, форумчане. Прошу опытных гуру Лиспа помочь с решением задания: Нужно написать функцию, которая принимает два аргумента, условно l1 и l2. Аргументы - списочные структуры с...

Не отрисовывается буква J
Здравствуйте. :sorry: Стоит задача написать программу, которая отрисует букву J. Пока пытаюсь без всяких дополнительных закорючек. Как в шрифтах. Код набросал. Точки задал. Прописываю команду для...

Выноска теста при наложении друг на друга
Здравствуйте, меня интересует такой вопрос, возможно ли на языке lisp или vba, автоматизировать задачу. Задача такова через программу idorcad мы экспортируем поперечные профили в автокад далее мы их...

Построение параметризированного чертежа детали
Помогите создать приложение на языке LISP, осуществляющее построение параметризированного чертежа детали (в файле). Построение примитивов осуществлять с помощью функции Command. Размеры, обозначенные...

Неправильно рассчитал привязку переменных к фигуре, криво строится с другими значениями
Здравствуйте! При построении фигуры со значениями a = 60 и b = 10, строится всё нормально, а вот если задать значения наоборот: а = 10 и b = 60, то фигура не строится как надо. Подскажите...

Построить список, состоящий из элементов нескольких заданных списков, которые не являются общими для них
Тяжела для моего понимания структура autoLISP'a. Возможно, преподаватель изначально подал неверный подход к построению кода. Как пример, могу привести код, где объединяются списки, без повторений...

Сумма длин объектов в Autocad (счетчик выбранных объектов)
Добрый день! Прошу помощи, как вставить в этот код: ;;;****************************** ;;;Apelsinov ;;;apelsinov@pochta.ru ;;;04.02.05 ;;;******************************

Буква Н шрифтом TNR
нужен код программы для отображения буквы Н шрифтом Times New Roman

Выполняет команды не по порядку
Я странно не могу понять, почему AutoLisp не выполняет по порядку на строке. И как решить проблему не меняя порядки команды? Вот пример порядок рисует отрезок, создает новый слой и рисует полилинию...

Создание нового Excel файла
Добрый день. Пытаю написать функцию создающую новый Excel файл в нужной папке. Не могу добиться, чтобы файл сохранялся. Помогите наладить код. (Defun c:vv (/) ;Подключаем библиотеки com ...

Работа со списками
Добрый день имеется два списка у координаты ((0.0) (100.0) (0.0) (100.0) (0.0) (100.0) (0.0) (100.0) (0.0) (100.0)) расстояния между точками ((100.0) (0.0) (100.0) (0.0) (100.0) (0.0) (100.0)...

Неправильная отрисовка объекта
Всем привет. Я только начала изучать автолисп и уже появились проблемы и я не знаю как их решить. Вот код: На 1 фотографии показано как оно должно отрисовываться, а на 2...

Как создать кнопку с функцией открытия файла?
Помогите пожалуйста, с Lisp'ом не знаком от слова совсем. Задачка простенькая, нужно просто что бы у RadioButton была привязка к чертежу, т.е. нажимаю на RadioButton выбирается чертеж, жму на OK, и...

Написать код, LISP
Написать код,для построения данного чертежа. 1. Запросить у пользователя R 2. Если R больше 0, построить окружность радиусом R. 3. Если R отрицательное, построить два отрезка размерами -R/2 и...

Разбор модели на листы
Добрый день. Появилась такая задача - на листе модели есть несколько рисунков, расположенных горизоньально на одинаковом расстоянии друг от друга. Они могут быть только трёх форматов:...

Добавить рекурсию в код
(defun f (lst) (remove-if #'complexp (remove-if #'integerp lst))) надо добавить рекурсию

Не могу понять в чем ошибка
Добрый день, подскажите пожалуйста как решить проблему, написал код, задаю параметры для детали, но почему то команда cylinder не выполняется, пишет "Команда: cylinder Неизвестная команда "CYLINDER"....

Сконструировать кривую по заданным точкам методом Фергюсона
Сконструировать кривую по заданным точкам методом Фергюсона. Создать функцию, рисующую кривую в плоскости xy, исходные точки отметить маркерами. Оформить таблицу значений функций и отклонений от...

Вставка динамического блока
Как с помощью диалогового окна вставить в autoCAD чертеж динамический блок. При этом используя программу autolisp.

Есть ли Функция?
как в autolisp проверить существование(зарегистрирована) функции? (возможно вопрос простой,но ...) в автокад подгружается dll, ну или другой файл лисп с функциями - как проверить что функция есть?

Редактирование чертежа в диалоговом окне
Добрый день, у меня есть чертеж и диалоговое окно: Объект создан полилинией. Необходимо взять координаты с этой линии и вставить в диалоговое окно, подскажите пожалуйста как это сделать...

Переключение между открытыми файлами
Добрый день, Допустим если открыть в Autocad несколько файлов dwg, то между ними можно переключаться нажатием комбинаций клавиш ctrl+tab или ctrl+f6. Активным будет становиться следующий чертеж,...

Выполнить параметрическое построение рисунка
1. Пользуясь наглядным изображением рисунка напишите и наладьте программу, которая будет выполнять его параметрическую построение. Вот данных должен быть реализован через диалоговое окно написано на...

Создание стилей Vlisp
Помогите пожалуйста "допилить" lisp для вызова с консоли при запуске с параметром defun C:coord ( / cmde ent en el ss cbox ssall lst -пишет недостаточно аргументов: (defun...

Автоматизированное построение стен с заданными толщинами и штриховками слоёв
Пишу программу для автоматического построения стен в AutoCAD с настраиваемыми штриховками и толщинами слоёв с помощью диалогового окна. Исходная программа работает (если в ней самой обозначить нужную...

Как разобраться с автолиспом?
Нашел в интернете Лисп "Самый примитивный кабельный журнал", но никак не получается его запустить. На команду (asd) он выдает ; ошибка: no function definition: ASD. В чертеже созданы слои kb и kdlа в...

Проблемы с DimAngular
Доброго времени суток господа, проблема образовалась. Как мне автоматизировать Location при постановке данной размерности DimAngular. Проставил начальную и конечную точку и система запрашивают её...

Можете написать код для построения чертежа
Добрый день , недавно начал изучать AUTOLISP в автокаде, прошу помощи у вас знатоки. У меня есть простенький чертёж и мне нужно написать код на языке LISP для того что бы в автокаде изобразился уже...

Помощь в корректировке lisp
Товарищи, доброго дня всем! По производственной нужде искал лисп, который мог бы к существующим размерам добавить рандомный факт под размерной линией в каком-то допуске. Коллеги поделились...

Удаление объектов снаружи контура (блока)
Добрый день господа сочувствующие. Нужен просто и эффективный способ удаления всех объектов не входящих в замкнутый контур в CIVIL3D. Не что подобное пытались "лепить" CookieCutter2. Самое близкое...

PC-LISP to AutoLisp
Здравствуйте, есть небольшая просьба, "переложить" программку с PC-Lisp'а на AutoLisp вот код (defun f(st) (cond (t (f1 (concat st " _") (cons nil nil))) ) ) (defun f1(st a)...

Как определить принадлежность выноски к полилинии?
Добрый день, есть на входе vla полилинии и набор выносок. Необходимо понять, как соотнести текущую полилинию с ее выноской из набора выносок. Можете подсказать, уже голову сломал, не могу...

Создания 3d фигуры AutoLISP
Добрый день, есть фигура в 3D пространстве. Не получается вписать в него треугольник ( треугольник не вписан в окружность у него стороны по размерам) Может кто знает как решить этот вопрос ...

Построение рамок по координатам и азимуту из файлов *.txt
Добрый вечер господа сочувствующие! Подскажите метод , а лучше способом построение рамки планшетов по координатам и азимуту из набора текстовых файлов? Coord1.txt: 1.816430.55 # 2.9147198.21 ...

Не скомпилируется код. Не находит название в автокаде и нанокаде
(defun C:Zenker () (setvar "CMECHO" 0);отключение промежуточных сообщений в командной строке (setvar "ORTHOMODE" 0);отключение ортогонального перемещения курсора (setvar "OSMODE"...

Создание приложения для перемещения объектов по координатам
Есть объекты автокада, их нужно раздвинуть на определенную величину друг от друга(расположить на расстояние не менее n пунктов) . Как я понимаю, с помощью autolisp можно найти координаты каждого...

Пятнадцать трапеций, координаты вершин первой заданы
Пятнадцать трапеций, координаты вершин первой заданы, каждая последующая образована путем поворота предыдущей на 20 градусов против часовой стрелки вокруг первой или четвертой вершины исходной...

Диалоговое окно - выпадающий список
Добрый день , пытаюсь освоить диалоговое окно и сильно туплю . как пример хотелось бы создать диалоговое окно с выпадающим списком по номеру детали, вот мой код: (DEFUN tr_1 (/ p1 p2 p3 L h ) ;...

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

Построить параллелепипед в заданной аксонометрии
Написать программу, что просит указать базовую точку, после чего построит параллелепипед с указанными рёбрами. а- 500 в - 350 с - 550 В аксонометрии диметрии Добавлено через 36 минут У меня...

Посчитать значение выражения на Autolisp
Помогите разобраться с этим. Построить в графическом режиме языком AutiLISP. y=(2-x)^3/(3-x)^2

Объединить два кода AutoLISP в один. (Twix)
1-код. -- Предлагает выбор отрезка. После чего надписывает над отрезком его длину в рабочей области чертежа и делает это многократно до выхода. 2-код. -- Предлагает выбрать две точки и вычисляет...

Применение функций разветвления на языке LISP в AutoCad
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превышает восьми: первое число номер вертикали (при счете слева направо), второе номер горизонтали (при счете снизу...

Не могу доделать программу
Зависает при запуске программы в командной строке (defun c:obob () (setq dcl_id (load_dialog "obob_zc")) (if (not (new_dialog "obob_zc" dcl_id)) (exit) ) (action_tile "accept"...

Использование команды chamfer через autolisp
Всем доброго времени суток. Проблема в следующем: делаю деталь через autolisp, по сути она представляет собой цилиндр, но с обеих сторон есть фаски. Не понимаю, как выделить контур нижнего основания,...

Построение дуг
Добрый день! Помогите, пожалуйста, начертить две горизонтальные дуги(сверху и снизу), которые соединяют два прямоугольника: (defun c:m3() (setq p1 (getpoint "Choose the starting point")) ...

Что выполняет данный код?
Здравствуйте, пожалуйста объясните что выполняют функции в данном коде? (setq echo nil) (LOOP (PRIN1 (QUOTE *)) (EVAL (READ)) ((NULL RDS)) ) (setq i1 0) (setq j1 nil)

Распределение по слоям отрезков по длине
Добрый день, я не давно пишу программы на AutoLISP. Написал не большой скрипт для распределения по слоям отрезков. (defun C:послоям (/) (vl-load-com) (setq lst (list "LINE")) (progn...

Загрузка программы на Lisp
Добрый день. Начал писать программку на Lisp c диалогом на DCL. Сделал панель с кнопкой в AutoCAD и столкнулся с такой неприятной вещью, при каждом новом запуске AutoCAD приходится заново загружать...

Построение призмы
Можете, пожалуйста, помочь исправить код... Целый день мучаюсь, никак не получается выдавит призму (defun c:prismi (/ basept side hgt prism) (setq basept (getpoint "\укажите базовую точку: "))...

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

Автоматическая расстановка дуг на полилинии и отрезках
Добрый день! Прошу подсказать, есть ли файл lisp с автоматической возможностью расстановкой дуг на объектах? Вручную ставить очень долго...

Запрос у пользователя выбора значения переменной
Добрый день! Хочу добавить в программу выбор значения переменной из предложенного списка, но никак не могу найти, как это сделать. Сейчас выглядит так: Хотел бы, чтобы было что-то похожее на...

Просьба прокомментировать готовую программу на 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...

Разработать микросервис (графическое определение координат и площади)
Ищу программиста для разработки микросервиса, выполняющего графическое определение координат точек и площадей на основе входных данных. Детальное объяснение задачи в прилагаемом видео...

Как скриптом начертить чертеж
Добрый день. Я новичок в AutoCAD У меня возникла проблема. Как при помощи скрипта начертить чертеж как на рис. в системе AutoCAD. Буду рад ваше помоши.

Разработка модуля автоматизированного проектирования конструктивного элемента для AutoCAD
Конструктивный элемент - мансардная крыша: полувальмовая. Приложение должно на основе данных пользователей осуществлять проектирование конструктивного элемента. Функции: • выбор сечения...

Сортировка элементов в списке
Здравствуйте! Стоит такая задача: Необходимо удалить близко стоящие отметки(тип TEXT). Я предполагал, что можно создать список из этих примитивов, а потом сравнивая координаты по X, редактировать....

Дополнить код, выравниванием надписи вдоль отрезка
Надо добавить в код возможность выравниванием надписи (т.е. длины) вдоль отрезка. (defun c:L_post () (while (setq obj (car (entsel "\nВыберите отрезок (или нажмите Enter для выхода): "))) ...

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

Задать размер полилинии
Приветствую. Обращаюсь за помощью. Очень часто подписываю длину полилинии. Помогите придумать какой-то лисп либо как-то автоматизировать данное занятие. В чем суть. Есть несколько видов линий - это...

Определить функцию, вставляющую заданный элемент в указанное место списка
Определить функцию, вставляющую заданный элемент в указанное место списка не могу понять как сделать ,помогите написать

2d модель на AutoLisp
Здравствуйте!!! Кто то может оставить код для создание любой 2д модели с помощью autolisp для изучения?

Некорректная работа после первого запуска скрипта
Доброго времени суток, такая проблема: после первой удачной попытки запуска данного скрипта при повторных попытках он начинает работать неправильно и фигуры создаются где попало. Лечится это запуском...

Создать числа в круге в порядке возрастания
В СПДС есть такая команда, которая создает числа в кружочке (по порядку). Но на Mac спдс не устанавливается и есть необходимость в данной команде. Буду признателен за любую подсказку

Прозрачность для объекта
Есть ли способ в AutoLISP задать прозрачность для фигуры? В данном случае нужно поставить 80% прозрачности для box-main (defun c:fl (/ p1 width length height box-main) (command "_.osnap" "_off")...