|
|
| Другие темы раздела | ||||||||||||||||||
| AutoLISP Соеденение вершин параллельных объектов (полилиний) Ребята, нужна помощь в написании программы для соеденения вершин параллельных полилиний. Это необходимо для построение разрезов. Алгоритм как я понимаю должен быть такой: выделяю полилинии и считываю координаты точек вершин (p1, p2 ...). Задаю точки вершин и соединяю их. Приветствуются любые подсказки и ссылки на литературу. Спасибо. https://www.cyberforum.ru/ autolisp/ thread2008858.html |
AutoLISP Как вывести значение переменной через текст с указанием точки вставки Работаю в автокаде и решил написать программу для интерполяции высот точек. Указываю значение высоты (которая выше), указываю значение высоты (которая ниже), беру расстояние между точками, беру расстояние от больней точки до нужной точки (которую собственно и высчитываю). Проблема у меня возникла в том, что не могу вывести результат через текст с точностью 0,000 что бы подписать сразу точку в... | |||||||||||||||||
|
AutoLISP Неверно сформированный список на входе
https://www.cyberforum.ru/ autolisp/ thread2003643.html Ошибка:Неверно сформированный список на входе Подскажите, как решить данную проблему. Заранее благодарен. (defun c:lol() (setq p1 (getpoint "Введите начальную точку")) (setq p2 (list (car p1) (+(cadr p1) 50))) (setq p3 (list (+(car p2)(- 500 250)) (cadr p2))) (setq p4 (list (car p3) (+(cadr p3) (-80 50))) (setq p5 (list (+(car p4)(/(-250 150)2)) (cadr p4)) (setq p6 (list... |
AutoLISP AutoLisp - Не вводятся координаты Помогите разобраться, после того как базовая точка задается, появляется следующая команда "Введите длину основания (100):" я ввожу 100 и нажимаю Enter, и вместо того чтоб дальше вводить ширину, опять появляется "Введите длину основания (100):". Почему так происходит? Заранее спасибо)) (defun c:curs1 ( / box_1_d box_1_h box_1_w tolwuna_zad ctypen_2_h ctypen_2_w ctypen_1_h ctypen_1_w cilindr_1_k... https://www.cyberforum.ru/ autolisp/ thread1976086.html | |||||||||||||||||
|
Определить функцию, вставляющую заданный элемент в указанное место списка AutoLISP Определить функцию, вставляющую заданный элемент в указанное место списка не могу понять как сделать ,помогите написать |
AutoLISP Сложение элементов списка с вложенными подсписками
https://www.cyberforum.ru/ autolisp/ thread1968383.html Добрый день столкнулся с проблемой, есть список (Setq test '((5.5 "п.") (6.0 "г.") (5.5 "п.") (4.3 "д.") (2.0 "г.") (17.0 "с."))) Хотелось бы получить список в котором сложены первые элементы подсписков с одинаковыми вторыми элементами "п" с "п", "г" с "г" и т.д. Буквы могут быть разными. Итоговый желаемый вид списка: (Setq test '((11.0 "п.") (8.0 "г.") (4.3 "д.")(17.0 "с."))) ... | |||||||||||||||||
|
AutoLISP Неверно сформированный список на входе
https://www.cyberforum.ru/ autolisp/ thread1966367.html Функция «lp» строит оси координат (строки 6-9), запрашивает положение конечных точек отрезка (строки 12, 13), строит отрезок (строка 15) и его зеркальное отражение относительно начала координат (строки 17-25). Ошибка:Неверно сформированный список на входе Подскажите, как решить данную проблему. Заранее благодарен. (defun lp() ;1 |
AutoLISP Определить функцию и передать её в apply Задание такое: в зависимости от переданного значения функции, с помощью apply выполнять либо сложение элементов списка, либо умножение элементов списка. т.е. apply func(x) '(1 2 3 4), если x = 1, то результат 10, если x=2, то 24 вот, что сделал я: определяю функцию func (defun func_(x) (cond ((eql 1 x)(plus))(eql 2 x)(TIMES)) затем пытаюсь вызвать aplly (apply func_(1) '(1 2 3 4)) но... | |||||||||||||||||
|
AutoLISP Пятнадцать трапеций, координаты вершин первой заданы
https://www.cyberforum.ru/ autolisp/ thread1932483.html Пятнадцать трапеций, координаты вершин первой заданы, каждая последующая образована путем поворота предыдущей на 20 градусов против часовой стрелки вокруг первой или четвертой вершины исходной трапеции |
AutoLISP AutoLISP; как сделать так, чтобы функции princ , prin1 и print печатали аргумент ПО ОДНОМУ РАЗУ Друзья! Работаю в VisualLISP, AutoCAD Неужели ничего умного не придумали на этот счёт? Вывожу значение какой-нибудь переменной, например: (princ "Hello, word!") Вот охота была два раза любоваться на одно и то же значение. Спасибо, кто откликнется. https://www.cyberforum.ru/ autolisp/ thread1913502.html | |||||||||||||||||
|
Просьба прокомментировать готовую программу на 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 points) (or (command "_line" (car points) (cadr points) "") |
AutoLISP AutoLisp (Autocad 2010) Задача по помещению окружностей в центр треугольника
Суть задания: нужно создать такую функцию, которая бы просматривала все элементы на чертеже, выбирала круги радиуса, меньше указанного и запихивала их в центр первого найденного треугольника.
Исходя из того, что мне не понятно:
1) Как найти (опре
Наверх
| |||||||||||||||||
