0 / 0 / 1
Регистрация: 06.03.2013
Сообщений: 13
1

AutoLisp: доработать меню

28.10.2013, 20:29. Показов 1092. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана задача выравнивание отрезков в автокаде, сам код я написал осталось дописать меню, чтобы можно было вводить значения dx и dy с клавиатуры и использовать их в коде.
lsp файл:
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 (defun c:myfun ()
    (setq dcl_id (load_dialog "e:\\myfun.dcl"))
    (if (not (new_dialog "myfun" dcl_id) ) (exit))
    (action_tile "accept" "(done_dialog)")
    (start_dialog)
 (unload_dialog dcl_id)
 
 
 
    (setq 
        nabor (ssget "X" '((0 . "LINE")))
        nline (sslength nabor)
        i 0
        fdx 10
        fdy 10
    )
    (repeat nline
        (setq currentline (ssname nabor i)
            ed (entget  currentline)
            t1 (assoc 10 ed)
            t2 (assoc 11 ed)
        )
        (setq x1 (nth 1 t1))
        (setq y1 (nth 2 t1))
        (setq x2 (nth 1 t2))
        (setq y2 (nth 2 t2))
        
        (setq fdx0 (abs (- x1 x2)))
        (setq fdy0 (abs (- y1 y2)))
        
        (if (/= x1 x2)
            (progn
                (if (<= fdx0 fdx)
                    (progn
                        (setq x (/ (+ x1 x2) 2))
                        (setq x1 x x2 x)
                    )
                )
            )
        )
    
        (if (/= y1 y2)
            (progn
                (if (<= fdy0 fdy)
                    (progn
                        (setq y (/ (+ y1 y2) 2))
                        (setq y1 y y2 y)
                    )
                )
            )
        )
    
        (setq ed (subst (list 10 x1 y1)(assoc 10 ed)ed))
        (setq ed (subst (list 11 x2 y2)(assoc 11 ed)ed))
    
        (setq i (+ 1 i))
    
        (entmod ed)
        (entupd currentline)
    )
)
(c:myfun)
dcl файл:
Lisp
1
2
3
4
5
6
7
myfun : dialog {label = "Sample Dialog Box";
    {label = "Hello, world";}
     :boxed_column{label = "Значения отклонений";
     :edit_box {label = "Maximum dx:";}
     :edit_box {label = "Maximum dy:";}}
    :button {key = "accept"; label = "OK"; is_default = true;}
 }
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.10.2013, 20:29
Ответы с готовыми решениями:

Доработать меню
Дана задача выравнивание отрезков в автокаде, сам код я написал осталось дописать меню, чтобы можно было вводить значения dx и dy с...

Доработать пункт меню
case 2:{ int i, j,size; char nameInput FILE *f1; ...

Доработать меню, нужна подсказка
Здравствуйте! Вот код меню, это только заготовка) &lt;div id=&quot;parent&quot;&gt; &lt;ul class=&quot;menu&quot;&gt; &lt;li&gt;&lt;a...

1
Заблокирован
29.10.2013, 00:27 2
Зачем постить одно и тоже в разных ветках, вы бы еще в поиске исполнителей написали...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.10.2013, 00:27
Помогаю со студенческими работами здесь

Меню, как доработать? (Python)
Вот код, не работает программа, не вызывает функции. В чем дело?:cry: from random import random N,M = map(int, input().split()) arr =...

Доработать маленькую и простенькую программу, которая делает popup-меню
Собственно условие: Сделать popup меню из 4х пунктов &quot;Дополенение&quot;,&quot;Удаление&quot;,&quot;Очистка БД&quot;,&quot;Выход&quot;. При нажатии на каждый...

Пужно доработать воспроизведение звука в меню ( 1 секунда звук), спс заранее
Пишу игру в XNA 4 Получилось что? при пересечении текстуры курсора с другой текстурой играется Play звук Mamon : protected...

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

Фрактал в Autolisp
Добрый день, уважаемые посетители форума! Подскажите пожалуйста, как можно построить фрактал из квадратов на языке AutoLisp. Картинка...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Язык программировани­я C++: сравнение с другими языками
Programming 06.02.2025
Современная разработка программного обеспечения предлагает множество языков программирования, каждый из которых обладает уникальными характеристиками и областями применения. C++ занимает особое место. . .
Язык программировани­­­я C++: достоинства и недостатки
Programming 06.02.2025
C++ считается одним из самых влиятельных языков программирования, продолжающим занимать ведущие позиции в мире разработки программного обеспечения. Этот язык появился как расширение языка C с. . .
Регулярные выражения в Python
BasicMan 06.02.2025
Регулярные выражения - это последовательности символов, определяющие правила поиска и сопоставления текстовых данных. В Python они используются для поиска подстрок, проверки соответствия текста. . .
Как создать свой мод для Майнкрафт с нуля на Java
IT_Exp 06.02.2025
Разработка мода для Minecraft начинается с правильной настройки среды разработки. Для создания мода потребуется Java Development Kit (JDK), интегрированная среда разработки и Minecraft Forge. JDK. . .
Async/await и асинхронное программировани­е в Java
IT_Exp 06.02.2025
Асинхронное программирование - это подход к организации вычислительных процессов, позволяющий приложениям эффективно использовать доступные ресурсы системы. В контексте Java этот метод приобретает. . .
Как исправить android.os.Netw­orkOnMain­Thread­Exception
hw_wired 06.02.2025
Исключение NetworkOnMainThreadException возникает при попытке выполнить сетевые операции в главном потоке Android-приложения. Главный поток отвечает за обработку пользовательского интерфейса и должен. . .
Как в Java определить, что массив содержит определенное значение
hw_wired 06.02.2025
В Java класс Arrays предлагает несколько способов для проверки наличия значений в массивах. Наиболее широко применяемый метод заключается в использовании комбинации Arrays. asList() и contains(). . . .
Как использовать virtualenv в Python. Виртуальные среды/окружения
hw_wired 06.02.2025
В Python виртуальные окружения решают одну из ключевых задач разработки - изоляцию зависимостей между проектами. Virtualenv создает отдельное пространство для каждого проекта, где устанавливаются. . .
Кнопка в HTML, которая работает как ссылка
hw_wired 06.02.2025
В HTML существует несколько подходов к созданию кнопки, которая функционирует как ссылка. Базовым элементом выступает тег button, который можно преобразовать в ссылку с помощью JavaScript. Для этого. . .
Как обновить страницу с помощью JavaScript
bytestream 06.02.2025
JavaScript предоставляет несколько базовых методов для обновления веб-страницы, которые встроены непосредственно в язык и доступны через объектную модель браузера. Основной метод обновления страницы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru