Search the Community
Showing results for tags 'Lisp'.
-
Коллеги. Доброго дня. Может, я не совсем верно определил тему, где написать свое сообщение. Но тем не менее... И надеюсь не стоит объяснять, что такое программа GEOBRIDGE. Но на всякий случай: https://geobridge.ru/docs По этой ссылке Вы можете узнать подробнее о программном продукте GEOBRIDGE. Вопрос прост: Есть ли те, кто хотел бы увидеть и приобрести GEOBRIDGE специально разработанный для платформы NАNOCAD? Так как разработка программ не дешевая задача, то необходимо определить потребность в ней. Напомню, что программа GEOBRIDGE рекомендована ГГО КГА (Геолого геодезическим отделом Комитета по градостроительству и архитектуре г. Санкт-Петербург) для выполнения камеральных геодезических работ, а также полностью соответствуют требованиям ГАУ "Леноблгосэкспертиза". Поскольку GEOBRIDGE устанавливается на данный момент лишь на платформу AutoCAD и только на полноценную дорогостоящую версию, то и возникла идея разработки программы и для других платформ. На данный момент выбрана платформа NАNOCAD, как наиболее перспективная. Прошу в комментариях высказаться за или против, подкрепив свою точку зрения доказательными аргументами. Спасибо.
-
Функция назначенная на выполнение при активации элемента типа :popup_list, выполняется не только при активации данного элемента, но и сразу же при запуске основного модуля. Функции назначенные на выполнение при активации элементов типа :list_box, :button выполняется, как и положено, только при активации элемента на который они назначены. Протестировано на NCadSDK81_3712.2221.3574. В приложении тестовый пример и скрин результата. После старта приложения popuptst , не дожидаясь активации раскрывающегося списка POP2 , сразу же появляется ответ функции popact, как будто элемент :popup_list pop2 был активирован. Как сделать так, что бы функции назначенные на элементы типа :popup_list выполнялись ТОЛЬКО при активации соответствующих элементов ? DCL файл почему-то запрещено присоединять к сообщению. Вот его текст. popuptst.DCL popuptst : dialog { label = "Тест выпадающих списков"; width = 30; //:popup_list { :list_box { key = "pop1"; label = "pop1"; } :button { key = "bpop1"; label = "get 1"; } :popup_list { key = "pop2"; label = "pop2"; } :button { key = "bpop2"; label = "get 2"; } :popup_list { key = "pop3"; label = "pop3"; } :button { key = "bpop3"; label = "get 3"; } ok_cancel; } popuptst.LSP
-
Так как на текущий момент размеры проставляемые в nanocad не учитывают ПСК, то текст в некоторых случаях вставляется в перевернутом виде! Для решения этой проблемы, а также для возможности в дальнейшем изменить ориентацию размерного текста согласно текущей ПСК, есть решение в виде скрипта на LISP (как бы его не любили). Команда запуска DimOrientUCS (Autocad также поддерживается) DimOrientUCS.LSP -
Добрый день. Роясь в автокадовских лиспах и проверяя их на совместимость с NanoCad 7 8, обнаружил очень полезный лисп, расставляющий выноски с координатами указанных точек по чертежу. В версии 7.0х64 Лисп отрабатывает почти до конца, но ничего не отрисовывает. В версии 8.0х64 выноска отрисовывается, но Nanocad вылетает с неустранимой ошибкой Может есть тут кто умный, разбирающийся в Lispе, кто переделает скрипт? vinoska.lsp
-
Добрый день. Добавлю еще несколько Лисов, работающих в NanoCad 1. Расстановка блоков в вершины полилинии. Выставляет блоки по вершинам полилинии. точка привязки блока в вершине. Имя блока задается во время выполнения скрипта. 2. Нумерация вершин полилинии от 1 вершины с задаваемым начальным номером 3. Экспорт координт вершин полилини в Excel Блоки в вершины.zip Нумерация вершин полилинии.zip Экспорт координат полилинии в Excel.zip
-
Выложу то, на чём у меня сейчас работает моя недоавтоматизация. Писалось всё с 2009 года, поэтому код неказистый. Но по принципу "работает - и ладно" используется и не трогается без особой необходимости. Комментарии написал минимально. Но зато с примером использования. Лисп я вообще не перевариваю, но нужно было что-то скриптовое с нормальным взаимодействием с объектами ACAD2006-8. А начинал с VBA. Как это всё работает, и тем более, как я это собрал в кучу - загадка Добавлю загрузчик лиспов из папки (автор - Зуенко Виталий) и простенький пример использования цикла - заполняет вертикальную шкалу по параметрам, запрашиваемым у пользователя из командной строки (можно и горизонтальную, функция внутри позволяет выбирать). Авось, кому пригодится это добро в начинаниях. PAV.lsp LSPloader.lsp Шкала.lsp
-
Итак. Нужно в Нанокаде очищать форматирование объектов Мтекст. Пытался найти программиста чтобы реализовал, но расценки не порадовали, поэтому буду пытаться сам. Пойдем простым логическим путем. Нашел рабочую лиспину (кому интересно см. вложение) на cadusers, пытаюсь запустить в Нанокад. Не работает естественно... "Сервер ActiveX вернул ошибку: Библиотека не зарегистрирована." Отсюда вопросы: Как узнать какую библиотеку он хочет? Отладчик есть у нанокада? Библиотека наверняка автокадовская, если я ее найду и зарегистрирую будет работать? Стоит ли этим вообще заниматься, если я последний раз программировал лет 20 назад? Спасибо! UnFormatMtext.lsp -
Скрипт dgnpurge удаляющий словарь с типами линий DGN - актуально для чертежей полученных из программных продуктов Bentley Inc. Во первых снижает объем чертежа. Во вторых исключает зависание продукта nanocad при сохранении (в т.ч. автосохранении). Пример чертежа Черная дыра.zip Сам скрипт dgnpurge.LSP
-
Есть программки на Лиспе, где загружаются типы линий из внешнего файла с помощью следующего кода: (command "-linetype" "load" "DOT" "acadiso.lin" "") В AutoCAD это работает, в нане - появляется диалоговое окно. Какие еще есть варианты?
-
Программа подсчета суммы длин участков. Работает как в Автокаде, так и в наноКаде. Автор, прости, я не знаю тебя. Прими огромную благодарность за труд! Команда: calcl CALCL.LSP
-
Тема очень хорошая, жаль что не популярная. Внесу и свою лепту. Скрипт вычисляющий суммарную и среднюю длину для отрезков и дуг. Автор Протасов Георгий. mlength.lsp -
Лисп, преобразовывающий сплайны в полилинии. Автор Tony Hotchkiss. spline-to-pline.lsp
-
Никак не могу сообразить как сабж установить программно. Допустим после установки nanoCAD по умолчанию в новом чертеже имеем 1:100. А если надо 2:1 или 1:1 ?
-
Что-то не пойму, usc (пск) нормально вроде работает если использовать вручную. Но как только используешь вызов этой команды из lisp функции, то чепуха получается. Вот в такой строке (command "_UCS" <начало пск> <точка по оси X> "") после ввода второй точки имеем поворот по оси Z. Глюк?
-
После набора в командной строке _dtext, последовательно вводим стиль и/или выравнивание однострочного текста. А также высоту и угол поворота текста. Все нормально работает (судя по поиску на форуме, раньше были проблемы при редактировании). Ежкин кот (код), с LISP'а вызвать проблематично. (command "_dtext" <X,Y,Z> <высота> <угол поворота> "qwerty") работает до ввода строки "qwerty". Опосля получаем пустоту. Т.е. при вводе строки программно - string'а вообще нет. Та же последовательность при вводе вручную - строка есть. Что делать?!
-
Возможен ли вызов сабж? В Автокаде делается так: ;Очистка от всех блоков (command "_-purge" "_b" "*" "_n")
-
Привет всем! В новой версии появилась поддержка Lisp (пусть и в тестовом режиме). Есть программа, которая нормально выполнялась на автокаде. Запуск в Нанокаде Механике 4.0 приводит к зависанию самого Nano. Судя по командной строке зависает в цикле выполнения. Разработчики или энтузиасты, может гляните? Что надо переделать, чтобы работала под NanoCAD? TrueGear.zip
