Search the Community

Переработал для себя lisp, которым пользовался в autocadе, и добавил некоторые специально для nanocada. Выкладываю, может кому-нибудь пригодится. Работоспособность проверялась в Nanocad СПДС 22. Установка: - скопировать все файлы в папку, - прописать эту папку в настройках nanocada как путь к вспомогательным файлам - добавить файлы CustomFunc.LSP, SNanoHelp.LSP, comBlock.lsp в автозагрузку comBlock.lsp CustomFunc.LSP SNanoHelp.LSP _DynBlock_Template.dwg bl_redefine.DCL block_prop_copy.DCL printDialog.DCL printOpt.DCL Рамки форматаV4.dwg Upd. Добавил файлы в загрузки

Здравствуйте! Столкнулся с двумя проблемами при адаптации lisp'а под nano. 1. Не работает функция ERROR определённая локально. 2. Попытка предотвратить прерывание кода функцией vl-catch-all-apply не увенчалась успехом. Код всё равно прерывается и не выполняется полностью. Для демонстрации привожу тестовую команду TEST1. Если на запрос выбора примитива нажать Esc, выполнение кода прерывается. Локальное определение функции ERROR игнорируется, и выполняется функция ERROR определённая глобально. В итоге, в командной строке результат: ошибка: функция прервана А должно быть: Конец команды TEST1 Тестировал: Платформа nanoCAD, версия 22.0, сборка ВСЕ. Встречал здесь на форуме адаптированный под nano набор функций Pltools, в котором все перечисленные функции присутствуют. И задаюсь теперь вопросом - эти функции работают некорректно только у меня на 22 версии? Какие есть варианты решения данных проблем? Переопределение функции ERROR глобально не вариант! Отказаться от vl-catch-all-apply не могу( (defun C:TEST1 (/ *ERROR*) (defun *ERROR* (MSG / ) (princ "\n Сработала локальная функция *ERROR*") (princ) ) (vl-load-com) (vl-catch-all-apply (function (lambda () (entsel "\n Нажмите Esc:") ) ) ) (princ "\n Конец команды TEST1") (princ) )

Почему-то нету кнопки прикрепить в этой ветке форума у меня) Лисп удаления дублирующихся блоков во всём чертеже: https://ftp.nanosoft...665d415e5ade6d2 UPD. Кнопка появилась)) pl_bl-del-copy.LSP

Отличная тема, спасибо большое! Привык к таким полезностям в автокаде, теперь, работая в нанокаде, ощущаю что их очень не хватает! PS: как подгружать lisp'ы?

А что собственно поддерживает DCL? В SDK только четыре простейших примера. На сайте и в хелпе ничего не нашел. На лисп хоть есть список функций. Не могу вывести на экран вот такое окошко: ddsetup : dialog { label = "Формат листа"; : boxed_radio_column { label = "Параметры вставки"; : radio_button { label = "Вставить лист и настроить чертеж"; // mnemonic = "LS"; key = "ListAndSet"; } : radio_button { label = "Только вставить лист"; // mnemonic = "IL"; key = "InsertList"; } : radio_button { label = "Только настроить чертеж"; // mnemonic = "SD"; key = "SetDrawing"; } : popup_list { label = "Масштаб:"; key = "lscale"; edit_width = 24; // mnemonic = "S"; } } : boxed_column { label = "Лист"; : radio_row { : radio_button { label = "Первый лист"; // mnemonic = "p1"; key = "page1"; is_enabled=false; } : radio_button { label = "Следующий лист"; // mnemonic = "p2"; key = "page2"; is_enabled=false; } } : popup_list { label = "Формат:"; key = "format"; edit_width = 24; // mnemonic = "f"; is_enabled=false; } : radio_row { : radio_button { label = "Горизонтальный"; // mnemonic = "h"; key = "hor"; is_enabled=false; } : radio_button { label = "Вертикальный"; // mnemonic = "V"; key = "ver"; is_enabled=false; } } : toggle { label = "Только рамка"; // mnemonic = "B"; key = "bonly"; is_enabled=false; } : spacer { width = 2; } : text { key = "disp"; value = "xy"; width = 30; is_enabled=false; } : toggle { label = "Указать точку вставки"; // mnemonic = "bp"; key = "basepoint"; is_enabled=false; } } : boxed_radio_column { label = "Настройки чертежа"; : edit_box { label = "Ширина полилинии:"; // mnemonic = "W"; key = "lwid"; edit_width = 5; edit_limit = 10; is_enabled=false; } : toggle { label = "Настроить размерные стили"; // mnemonic = "DS"; key = "DimStyle"; is_enabled=false; } : toggle { label = "Настроить текстовые стили"; // mnemonic = "TS"; key = "TextStyle"; is_enabled=false; } } ok_cancel; } Вызываю диалог кодом, передранным с helloworld.lsp: (defun qqq () (setq dcl_id (load_dialog "DDSETUP.DCL")) (new_dialog "ddsetup" dcl_id) (start_dialog) (unload_dialog dcl_id) ) (defun c:qqq () (qqq) ) Сначала нанокад ругался на mnemonic, ну закомментировал. Теперь нанокад молча чего-то делает, но на экран ничего не выводит. Подозреваю, что не выполняется какой-то из элементов диалога, но какой именно не понятно.

Всем привет! Обнаружил, что функция ANGLE в NC возвращает отличные от AC значение угла. в AC, функция возвращает угол в диапазоне от 0.0 до 2*Pi в NC, функция возвращает угол от 0.0 до Pi и от -Pi до 0.0 В итоге, для совместимости функции в AC и NC, использую такую обёртку: (defun ATP:angle (p1 p2 / ang) (if (minusp (setq ang (angle p1 p2))) (+ pi pi ang) ang ) )

Надо подсветить таблицу для передачи ее штатной команде экспорт в Excel (defun C:drz_ExpotrSumRepSS () (setq ss1 (ssget "_A" '((0 . "SPDSTABLE2")(300 . "Отчет сводный")))) (sssetfirst nil ss1) (command "TABLEEXCELEXPORT") ; (princ) ) если таблица одна, то экспортируется нормально, а вот если несколько, то набор слетает и нана просит выбрать таблицу.. Собственно вопрос, как подсветить только один объект из выбора?

Всем привет! Столкнулся ещё с одним багом. В частности, некорректно работают методы задания новых координат для полилинии. Проверил так: (vlax-put {Object} 'Coordinates {ListPoints}) и так: (vla-put-Coordinates {Object} {VariantPoints}) Результат один - неверный. Правда, не во всех случаях) Ошибка проявляется когда для полилинии устанавливаем более короткий список вершин. Во вложении видео с тестовой командой TestLW, где я создаю новую полилинию поверх восьмигранника, а затем, указывая новые вершины треугольника, пытаюсь её преобразовать. В результате получаю полилинию не в виде треугольника, а что-то иное, частично позаимствованное от старой фигуры. Тестовый Lisp файл во вложении. TestLW.mp4 TestLW.LSP

Здравствуйте, подскажите куда копать, чтобы просветиться в вопросе... В справке вычитал, что кроме LSP с кодом на LISP, нанокад может воспринимать ещё и LSC (бинарный файл LISP). Гдеб по подробней почитать об этом формате и том как из LSP получить LSC? Автокад умеет работать с FAS файлами, LSC - нечто подобное?

Нумерация точек чертежа вручную с возможностью задавать префикс, суффикс и угол поворота текста. Num_Nc.lsp

Значения координат точек (X,Y,Z) выводятся в системе координат nanoCAD, округленные до двух знаков после запятой. Вывод координаты Z можно отрегулировать. geo_koord_mleader_adapt.lsp

bug.lsp

Отрисовка условного обозначения откосов дороги с возможностью регулировать расстояние между штрихами (2,4). Ролик снят в nanoCAD 20.1 otkgp_1.lsp

<Каталог> <nanoCAD. Программирование и автоматизация> Подготовил на Powershell скрипт синтаксического разбора LISP модулей с последующей генерацией диаграммы связности функций при помощи GraphViz. Актуальная версия скрипта будет пока лежат здесь. Сейчас скрипт в первом приближении. Я запускаю скрипт из под ISE, но, в принципе, работает и из командной строки. Скрипт опробован на трех модулях: bgtools_3.11a_Nc_21.lsp, pltools_NC.lsp, StripMtext_v5-0c1_NC.lsp При запуске скрипта предлагается выбрать LISP файл для анализа и отметить списки, которые необходимо по окончании работы экспортировать в Excel. Результатом работы является текстовый файл в каталоге \dot. Для обработки текстового файла необходим комплект утилит GraphViz. Я экспериментировал с утилитами Dot, Circo и Twopi. В каталоге \dot лежат командные файлы заточенные под мои каталоги. Их необходимо отредактировать. Кроме этого, можно экспериментировать с: опциями заполнения окончательного изображения диаграмм (строка опции в текстовом DOT файле) ratio=fill|expand с размером генерируемых изображений в дюймах (строка опции в текстовом DOT файле) size=24|36|48 c опцией разрешения изображения для растров (опция в командном файле) -Gdpi=0|100|200|300 ... с другими параметрами Важно! При обработке утилитами GraphViz почему то в режиме имен файлов по умолчанию "-O" нормально воспринимаются любые имена файлов, а при указании конкретных имен "-o" только имена файлов без пробелов. В результате получаем схему взаимосвязей вызовов функций вида: bgtools_3.11a_Nc_21.lsp pltools_NC.lsp StripMtext_v5-0c1_NC.lsp

Установлен стиль печати монохром, а на печать выходят цветные линии, что делать? Для того чтобы распечатать чертеж в монохроме ( черно-былым) необходимо чтобы цвета на чертеже были указаны в индексах. Если цвет задан RGB( 0,0,0), то СТВ-таблицы его не обрабатывают и на печать выходит цвет. Lisp "layers(1)" производит автоматическую замену цвета слоя заданного в RGB на индексированный. Пример работы: 1. Цвет слоя задан в RGB 2. Загрузить lisp 3. После выполнения команды CHGTCL в командной строке появится сообщение о заменённых цветах в слоях 4. В Диалоге Слои цвет задан индексом layers (1).lsp

Только начинаю разбираться с NanoCAD, посему прошу сильно не пиннать) Форум прочел, но ответа на свой вопрос не нашел( Есть файл .lsp, добавлен в автозагрузку, для запуска функций из него - нужно в командной строке LSP - О - функция Хотелось бы этот процесс упростить, путем добавления пользовательского меню, с кнопками вызывающими функии из моего файла. Как это делать с JS и VBS - посмотрел в примерах, все работает, а вот с LISP как быть? Помогите пожалуйста, может быть примером кто поделиться?

<Каталог> <nanoCAD. Программирование и автоматизация> (Перевод стаей о типах LISP из Справки к AutoCAD 2015 и дополнительная информация специфичная для nanoCAD) Integer AutoCAD 2015. LISP. About Integers Integer - это целые числа, которые не содержат десятичной точки. Для хранения целых чисел используется 32 бита. 31 бит используется для хранения числа а один бит для хранения знака числа. Диапазон целых чисел в целом находится в пределах +/- 2^31 или (от - 2 147 483 648 до 2 147 483 647). Как утверждается в Справке к AutoLISP AutoCAD 2015, в некоторых функциях значения Integer интерпретируются как 16-битные чиста в пределах от - 32 678 до 32 677. Однако, практика показывает, что на данный момент не всё так однозначно. Например, если в nanoCAD выполнить присвоение переменной числа 2 147 483 647, то вместо ожидаемого максимально возможного целого числа, получим действительное число (REAL). А, при последующем добавлении к нему единицы значение данного действительного числа будет увеличиваться в положительную сторону. При этом, если мы инициируем переменную значением 2 147 483 646, то получим правильную верхнюю границу INT в 2 147 483 647 и переход к отрицательным значениям при последующем прибавлении 1 (единицы). Но, если мы инициируем переменную не числом 2 147 483 647, а выражением (setq xInt (- (expt 2 31) 1)), что, казалось бы, должно привести к аналогичному результату, результат получим совершенно другой. Более того, оказывается, что в AutoCAD 2015 и в nanoCAD 20.1 "граница" между INT и REAL в случае выполнения вышеупомянутых арифметических операций и оценке типа переменной при помощи функции type выглядит несколько по разному. AutoCAD: nanoCAD: Предполагается, что, в случае превышения результата арифметических операций над INT, результат автоматически приводится к REAL. Однако, практика показывает, что это не всегда верно. Рассмотрим две операции сложения и умножения вида: 1) 384 758 647 * 12 = 4 617 103 764 2) 384 758 647 + 4 232 345 117 = 4 617 103 764 Предполагается, что операции будут эквивалентными, но в действительности получаем: Резюме. Для корректной работы с целыми числами необходимо быть полностью уверенным, что их значения не выйдут за границы целочисленных значений LISP. Если есть сомнения, то лучше использовать действительные (REAL) числа, осознано преобразовывая их обратно к целочисленным значениям, в случае использования функций, работающих только с INT. Да, это трудоёмко и не всегда удобно, однако, позволит избежать непредсказуемых ошибок преобразования типов, как описанных выше, так и не описанных. Real AutoCAD 2015. LISP. About Reals REAL - это действительные числа с десятичной точкой. Числа в диапазоне от -1 до 1 могут содержать 0 (ноль) слева от десятичной точки. Значения REAL занимают 64 бита и соответствуют типу double в Си. Границы допустимых значений типа REAL примерно от 4.94 x 10-324 до 1.79 x 10308. При выходе за эти границы, будет получено значение "Infinity" (бесконечность) или 0.0 (ноль). Поскольку представленные десятичные числа имеют одинарную точность, то Машинный эпсилон (наименьшее положительное число) ε, при котором не распознаются два числа a и b: 1 < a/b < 1+ε, ε ≈ 5,96 x 10-8. Похоже, что Мантисса действительного числа состоит из 7 знаков, включая десятичную точку. И не просто состоит, но записывается в память именно с такой точностью. Поскольку в AutoLISP как AutoCAD, так и nanoCAD отсутствуют функции округления из Common LISP, типа round или trancate, прикладываю файл с функциями от Lee Mac. http://www.lee-mac.com/round.html LM_round.lsp Что нужно знать про арифметику с плавающей запятой List AutoCAD 2015. LISP. About Lists AutoCAD 2015. LISP. About Point Lists AutoCAD 2015. LISP. About Dotted Pairs List - это базовый тип LISP, представляющий собой Списки атомарных элементов и других списков. Функции, используемые для получения доступа к элементам списков: Для получения доступа к координатам 2D и 3D точек в точечных списках рекомендуется обращаться не через функцию nth, а через функции: car - для доступа к первой координате, cadr - для доступа ко второй координате и caddr - для доступа к третьей координате. Функции car и cdr могут последовательно комбинироваться и обеспечивать доступ к атомарным элементам и вложенным спискам иерархического списочного дерева до 4-го уровня вложенности. car, cdr .... cddddr About Entity Context and Coordinate Transform Data Обсуждение на форуме. 2020-10-14 LISP в nanoCAD 20.1 https://forum.nanocad.ru/index.php?/topic/11617-lisp-v-nanocad-201/&tab=comments#comment-74317

Есть программы которая считывает атрибуты блока и заполняет таблицу (например: общие данные). Случайно заметил глюк. При очередном открытии файла (после просмотра его автокадом) атрибуты блоков немного "поплыли". Помогает команда в командной строке "атробновить". Атрибуты в пространстве модели после этого выглядят нормально. Но программное чтение атрибута не видить его значения. При этом в свойствах блока значения атрибутов видно. Чтобы исправить ситуацию приходится ручками заходить в редактирование атрибута блока и не редактируя выйти. Что это может быть? и как избежать?

В AutoLISP различие результата выполнения функций print и prin1 заключается в частности в том, что функция print предваряет вывод очередной порции текста переводом строки. В nanoCAD этого не происходит ! TestPrint.lsp test-print_nanoCAD.txt test-print_AutoCAD.txt

Создание списка слоев с заданными параметрами. В диспетчере слоев создается список слоев с определённым названием, типом и весом линий. CreateLayers.LSP

Экспорт координат указанных точек, выбранных объектов: точек, блоков, полилиний, сплайнов в текстовый файл или Excel. Округление координат происходит в соответствии с текущими настройками команды _UNITS coorN_nano.LSP

Выравнивание всех выбранных отрезков, начерченных с некоторым отклонением от 90 градусов по вертикали или горизонтали. (Исправление чертежей, начерченных "кривыми ручками"). Данная программа работает как в AUTOCAD, так и NANOCAD. Большое спасибо Автору программы! -------------------------------------------------------------------------- ;; Программа для выравнивания отрезков по осям X и Y ;; Если отрезки не будут лежать в плоскости МСК ;; результат работы не определен. -------------------------------------------------------------------------- Автор программы: Программу разработал Александр Ривилис по запросу участника форума caduser.ru под ником Forma. Ссылка на первоисточник: http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=20481&MID=114446&phrase_id=592044#message114446 Прикрепленный файл: l_align_xy.lsp С уважением.

Актуальна ли эта http://bushman-andrey.blogspot.ru/2012/08/lisp-autocad.html проблема для NC?