Search the Community
Showing results for tags 'lisp'.
-
Добрый день. Роясь в автокадовских лиспах и проверяя их на совместимость с 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
