Search the Community

При запуске пишет неверный тип аргумента numberp nil. Подскажите, пожалуйста, с чем это связано? Я в этой теме вообще новичок (((( Программа с окном dcl и так-то и лично для меня много уже подфункций. + знаете как уменьшить масштаб размеров? - в автокаде приемлемо, но в нанокаде очень большие RCHsovstroknom.lsp OknoRCH.dcl

В АК крутит атрибуты в ноль по ПСК, по объекту и на произвольный угол... В НК на произвольный угол не умеет. Посмотрите пожалуйста, кто разбирается.. может можно починить? AttrRot.lsp

Собственно вопрос так можно вставить объект из базы в определенную точку (vl-cmdf "spStdSelected" "4BE7954F2D054B6F" "0,0") но группы, вставляются в цикле, и прервать цикл можно только по Esc (что естественно прерывает выполнение Lisp) Собственно вопрос: есть ли какая переменная, настройка что бы выполнить однократную вставку группы из БД?

Добрый день. Автокад 21 Нанокад 22 После перевода "самодельной" лисп программы под нанокад - долгое время выполнения программы. Для исключения проблем в дилетанском коде прилагаюcircle_test.lsp простую тестовую программку. Время выполнения в автокад: 1 сек. Время выполенния в нанокад: 12 сек. Есть ли способ ускорить? (Может системные переменные какие либо?) Всем ответившим заранее спасибо.

nanoCAD платформа 23.0.6169.4115 (build 6276) + СПДС 23.0.4115.6119 (build 4115) Что за бред происходит при импортировании форматов в Альбом? Исходные данные, например: три документа SOI1, SOI2, SOI3, в каждом по 4 листа: 1) При выполнении команды "Импортировать форматы" выделенных (выбранных/селектированых) листов всех документов в пространстве модели - альбом наполняется в следующим порядке: [SOI3 лист 4], [SOI3 лист 3], [SOI3 лист 2], [SOI3 лист 1], [SOI2 лист 4], [SOI2 лист 3], [SOI2 лист 2], [SOI2 лист 1], [SOI1 лист 4], [SOI1 лист 3], [SOI1 лист 2], [SOI1 лист 1] т.е. в обратном порядке, соответственно на выходе получаю листы (layout) c документами в обратном порядке с обратным порядком листов в них... ? Что? Зачем? Почему? Для чего это нужно? 2) При импортировании без выделения (выбора/селектирования) форматов в пространстве модели - альбом наполняется в следующим порядке: [SOI1 лист 1], [SOI3 лист 1], [SOI2 лист 1], [SOI2 лист 2], [SOI1 лист 2], [SOI3 лист 2], [SOI3 лист 3], [SOI1 лист 3], [SOI2 лист 3], [SOI2 лист 4], [SOI3 лист 4], [SOI1 лист 4] в итоге получаю подряд 3 титульника (первые листы) трёх разных документов и далее все вторые, третьи и четвертые листы из разных документов... Для чего это нужно? Соответственно вопрос простой - как получить нормальный порядок документов и листов в них? (для дальнейшей печати в PDF и/или на бумаге). На практике, в комплекте рабочей документации имеется 10 разных типов документов с автоматически генерируемыми таблицами данных (опросные листы на КИПиА), в каждом документе от 5 до ~20 листов. Каким образом мне их печатать и/или формировать PDF? Upd: экспериментально удалось установить что порядок импорта форматов в альбом зависит от порядка создания/копирования объектов (форматов листов) в поле чертежа, при чём В ОБРАТНОМ ПОРЯДКЕ - т.е. первыми импортируются ПОСЛЕДНИЕ созданные листы )))) Где логика? При этом ни порядок расположения листов в поле чертежа, ни название (шифр) листа/документа, ни нумерация листов ни как не влияют на порядок импорта в Альбом. Пример альбома 1.dwg Upd: При дальнейших попытках сформировать с помощью инструмента «Альбомы» документы с листами по порядку, выяснилось что импорт в альбом (SPADDTOALBUM) осуществляется в том же порядке, в котором селектированые объекты добавляются в новый набор SelectionSet [функция SELECT1/3/4/6 / ssget]. С учетом этого единственный возможный вариант наполнения Альбома листами документов по порядку - это ручной последовательный выбор каждого листа-формата в пространстве чертежа (но для нескольких десятков листов в разных документах не вариант). При создании набора селектированых объектов с помощью секущей рамки (SELECT1/3/4/6), происходит создание набора в котором первый объект - это всегда последний созданный в чертеже объект. Соответственно, для устранения обнаруженной логической ошибки, функцию «Импортировать форматы» необходимо дополнить одним из возможных алгоритмов: 1) После выполнения выборки объектов типа «СПДС_Форматы» из текущего набора необходимо выполнять автоматическуюгруппировку/сортировку по атрибуту «Обозначение» (шифр документа) и затем сортировку этих объектов по атрибуту «Лист» по возрастанию (1…n) и затем добавлять листы в Альбом с сохранением порядка сортировки. 2) Выполнять импорт объектов типа «СПДС_Форматы» из текущего набора, или из всего чертежа (модель/лист) всегда в предсказуемом, ожидаемом порядке – последовательно слева>>направо, сверху>>вниз. 3) Предоставить пользователю следующий выбор способа импорта Форматов в Альбом: - «в порядке выделения (выбора) форматов пользователем», - «в порядке нумерации листов», - «Слева-направо, сверху вниз», + опция определяющая откуда следует импортировать форматы «Все форматы из пространства модели», «Все форматы из пространства листа», «Форматы расположенные в листах: [список листов]». Таким образом будет обеспечен удобный функционал и предсказуемая, ожидаемая логика работы стандартного инструмента «Альбомы». В качестве оперативной временной «заплатки/костыля» можно написать отдельный LISP-скрипт который будет предлагать пользователю выбор объектов секущей рамкой и формирование из этого набора нового набора содержащего только Форматы а затем выполнять сортировку, чтобы текущий набор содержал Форматы в последовательности от первого к последнему листу .

Написал свою интерпетацию этой программы на LISP, возможно будет работать в nanocad (я не проверял, проверьте, отпишитесь) Команда GEOBRIDGE - выбрать полилинию. Откроется сайт, где нужно указать систему координат. На карте отобразится выбранный контур. geobridge.lsp

Доброго дня. Брал здесь: https://forum.dwg.ru/showthread.php?t=167215 Куда мышкой кликаете - там номер появляется. Всё просто. Работает так: 1. В командной строке набираете MNUM. 2. Тип нумерации числовая - целые и вещественные числа, либо буквенная "А, Б, С...Я" прописными русскими. 3. Префикс - это символ перед номером; нач. значение, интервал - это понятно; постфикс - символ после номера. 4. Программа создаёт текстовые объекты в указанной вами точке с заданными параметрами - слой, стиль текста, высота текста, сжатие. AutoNum_M_v.1.1.LSP Выкидывает ошибку: MNUM - MNUM ошибка: load_dialog failed to load file "C:\Users\Yurij\AppData\Local\Temp\AutoNum_M.DCL"

Привет, столкнулся с такой же проблемой и написал LISP для регенерации дин. блоков в нанокаде. Одно условие - в дин. блоке должны быть только параметры видимости без растяжений, перемещений и т.д. Команда называется agp_bl_regen ссылка на lisp в загрузках

Что удалось наскрести. лиспов по данной теме много, всем чего то округлять нужно. Одна проблема - эти лиспы никак не настраиваются. вот что есть то есть. С дугами так вообще беда, непонятно что округлять. Откопал лисп от LeeMac. Сразу видно Программиста. Все настраивается в заголовке, перечислены объекты и что планируется изменять. Как раз той самой дуги нету, но ее спокойно добавляем и указываем, что будем округлять, например, только центральную точку. Мне, в целом, достаточно. Взял здесь: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rounding-of-line-and-pline-vertices/m-p/4396563 Хотелось бы добавить один момент: нужно обозначить элементы, над которыми уже произведена опреация округления. Пусть меняет цвет, например, на красный. Что вписать?

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

По работе приходится сталкиваться с такими файлами, в которых криво начерченны стены СПДС, отрезки и т.д., как на картинке ниже, что меня жутко раздражает и я трачу много времени на исправление таких вещей. В какой-то момент я пришел к тому, что я просто в свойствах округляю число в координатах до целого, в данном случае "...59.9995" меняю на "...60". Я подумал, может есть какой-то инструмент, который может это сам делать, например, выравнивать начальные и конечные координаты выбранных элементов с заданным округлением, или, например, привязывать их просто к сетке? Или может lisp какой-то есть такой, ведь это кажется логически простой задачей, может кто-то уже этим озадачивался?

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

1. Если я вас правильно понял, то можно. Т.е. на выходе в новом файле мы получаем, что хотим - линию, вызванную командой. 2. Но. Как только команд становится более одной, реактор начинает выполняться минимум по 3 раза: И чем больше строк в реакторе, тем больше он его гоняет туда сюда: Но как я понял из соседнего поста (https://forum.nanocad.ru/index.php?/topic/28231-vypolnit-lisp-pri-otkrytii-fayla-kak/&do=findComment&comment=126875), "размножение" реактора связано не с использованием команд, а с чем-то ещё. UPD: да, не от кол-ва элеменитов зависит. С чистого нанокада 1 линия сразу же задвоилась. Т.к. если как минимум в рамках той же сессии Нанокада заменить выше означенные 5 линий на вот такое: ...то alert сработает раз 10 последовательно. 3. На конструкцию с командой CLOSE программа почему-то не реагирует вообще, хоть в одну команду её с "newdocument" (как сделано у вас изначально), хоть разделяй (хотя мож тут я что-то неверно делаю): В моём понимании ПЕРЕД срабатыванием команды CLOSE в этом случае должен вылезти alert. Но его нет. добавлено через 0 минут Но в целом, если купировать эти проблемы, то да, решение прям то, что надо.

То, для чего я спрашивал про параметры и зависимости, в этом случае реализовано через Эксель. Я, задавая вопрос, такого варианта реализации в голове не держал вообще. Потому и говорю, что - да, это рабочая схема, но по факту меня вряд ли устроит в итоге, потому и пишу про таблички (от содержимого её ячеек же тож можно зависимость подцеплять, если хочется при необходимости). Замени "первая строка выноски" на "именованная ячейка таблицы" и с точки зрения LISP-программы получишь ровно тот же механизм экстракции данных.

А можно ли как-то при вставке параметрики задать ей не только точку вставки, но и значения опреденных переменных..? Или это возможно только через "вставляем - заново_выбираем_уже_вставленные_объекты - меняем значения"? К примеру: на чертеже есть Nшт СПДС-выносок, первая строка у них соответсвенно имеет значения "1,2,3, ололо, пыщ...N". А у вставляемого объекта "4BE7954F2D054B6F" есть переменная ААА, нединамическая. Можно ли: 1. Вставить в чертеж ровно N объектов (по кол-ву выносок)? 2. При вставке назначить им значения череменной ААА в соответсвиии с имеющимися "1,2,3, ололо, пыщ...N"? Хочется вставить в чертеж N параметрических объектов с чётким и разным МАСШТАБОМ ОФОРМЛЕНИЯ и определенным значением одной из переменных (тоже стыренных из имеющихся уже на чертеже объектов)... В теории это даже можно чисто из таблиц костыльно реализовать... Проблема в масштабе оформления, который параметрике извне (кроме LISP и аналогов) то ли вообще не назначается, то ли как-то через очень длинную попу делается (которую я к тому же ещё и не помню). =(

Возможно... Начал постепенно осваивать .Net, в силу того, что халява OpenDCL не поддерживается в NС и теперь создаю диалоги в VS. Не хотелось бы уходить от Lisp'a, т.к. очень уж к ниму привык. Надеюсь, что со временем, разработчики реализуют в .Net возможность создание собственных Lisp функций (я про это...), и тем самым, будет возможность расширить его функционал и в некоторых моментах увеличить скорость выполнения. Тогда, как мне кажется, у Lisp'а будут шансы на жизнь, хотя-бы на энтузиазме сторонних разработчиков.

Я малоопытен в использовании LISP'ов, но после загрузки вышепредставленного LISP'а при попытке проставить пикеты на полилинии выдает ошибку (NC 5.1) добавлено через 9 минут kpblc, нет, к сожалению дело не в этом...

Вопрос был: Можно или нельзя? А не: Достаточно ли важны причины использования функции для того ,чтобы получить ответ на свой вопрос? Не понимаете для чего это мне нужно - ну так не пишите ничего. Не стоит показывать свое недовольство от непонимания мотивов вопроса. После ваших претензий хотелось из принципа оставить вас в неведении. Но для других форумчан, в том числе kpblc, отвечу: Автокад (а теперь и Нанокад) стоят у меня в Автозагрузке Win 10. Т.е. при загрузке ОС автоматически загружаются программы, открываются указанные мной папки и т.д. Во время работы при необходимости открыть нужный мне файл dwg я просто кликаю на него и в течении пары секунд в Автокаде загружается лента инструментов и файл, в котором я начинаю работать. При этом Автокад претерпел очень серьезные настройки, вплоть до псевдонимов, горячих клавиш, адаптации рабочего пространства, загрузки необходимых модулей lisp и изменение фона пространства модели. Я привык работать так, чтоб мне было не просто удобно, а комфортно, чтоб работа приносила удовольствие. Я человек, который не довольствуется тем, что есть, а подстраивает рабочее место под свои нужды и видение. И меня неимоверно раздражает тот факт, что при запуске Нанокада открывается ненужный мне файл Без имени0 с ненужной мне сеткой на весь экран и ненужным мне знаком ПСК. Все это тоже со временем будет настраиваться через шаблон, чтоб всей этой ненужной фигни не было в новых файлах. Но все равно останется ненужный мне файл Без имени0. Вот это я и хочу исправить. Просто я хочу отключить все ненужные мне функции и оставить только необходимое мне + добавить то, чего не хватает. добавлено через 6 минут Т.е. для получения ответа мне нужно обосновать свои мотивы, и если вы сочтете их важными - предоставите ответ??? Ну уж точно не вам решать важно это или нет. Знаете ответ - скажите. Нет - не надо устраивать охоту на ведьм и выдумывать несуществующие заговоры. Но специально для вас: ДА! Вы меня раскусили, я занимаюсь промышленным шпионажем (форма недобросовестной конкуренции, при которой осуществляется незаконное получение, использование, разглашение информации, составляющей коммерческую, служебную или иную охраняемую законом тайну с целью получения преимуществ при осуществлении предпринимательской деятельности, а равно получения материальной выгоды)

Легко! А сработает загрузка package? А подгрузится меню? Запустится ли lisp? Сработает ли реализация IExtensionApplication? В каком месте и когда все развалится до соплей? Эммм... Дык код уж сто лет как не публиковал. Примерчик скинь А то я тут с другими задачами закопался по самые уши

Добрый день! Прошу помощи, есть lisp который позволяет нумеровать атрибуты в блоках последовательно по согласно выбору по щелчку мышки. В АКАДЕ работает без проблемм. В нанокаде отказывается, в коде не силен, прошу помощи по адаптации этого кода для нанокада. (defun *error* (msg) (if (= msg "Function cancelled") (princ msg)(princ));if (setvar "CMDECHO" cmd) (setvar "PICKAUTO" pca) );*error* (defun C:KAN ( / ass cmd pca dn n at ast val) (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)) cmd (getvar "CMDECHO") pca (getvar "PICKAUTO") n 0);setq (setvar "CMDECHO" 0) (initget "Number Renumber") (setq kw (getkword "\n[Number/Renumber]? <N>")) (if (null kw) (setq kw "Number")) (if (= kw "Number") (setvar "PICKAUTO" 0)) (setq dn (getint "\nInput Start or Offset Number: <1>")) (if (null dn) (setq dn 1)) (prompt (strcat "\nSelect Blocks for " kw "ing: ")) (ssget) (setq ass (vla-get-ActiveSelectionSet adoc)) (vlax-for sb ass (if (= (vla-get-objectname sb) "AcDbBlockReference") (progn (setq at (car (vlax-safearray->list (vlax-variant-value (vla-getattributes sb)))) ast (vla-get-TextString at) val ast);setq (while (wcmatch val "*@*") (setq val (substr ov 2))) (vla-put-TextString at (strcat (vl-string-right-trim val ast) (if (= kw "Number") (itoa (+ n dn))(itoa (+ (atoi val) dn)))));vla-put (setq n (1+ n)));progn (alert "Oops! It's not a Block!"));if );vlax-for (setvar "CMDECHO" cmd) (setvar "PICKAUTO" pca) );end KAN.lsp

Здравствуйте Уважаемые специалисты NanoCAD! Подскажите пожалуйста, возможно ли отследить, например, что запущен именно "NanoCAD", НО НЕ "NanoCAD СПДС", "NanoCAD GeoniCS" и т.п.? Хотелось бы выполнять такую проверку на старте кода lisp, который должен запускаться и выполняться только в "чистом" NanoCAD. Другими словами, пользователь нажал кнопку (код) и выпадает сообщение, например, "Данная команда доступна только в "чистом "NanoCAD".

Lisp.Очистка форматирования MTEXTA (StripMtext.Адаптированный) Описание- Часто возникает ситуация, когда текстовая составляющая чертежа не имеет единого стиля. Это происходит, например, при копировании текста из чужого чертежа, также бывает, что и свой ранее созданный текст по неизвестным причинам приобретает иное форматирование, не смотря на то, что внешне выглядит также, как и при его создании (например, перед содержимым текстового поля появляется код форматирования \pxqc). И так, чтобы моментально очистить такое форматирование МТекста существует бесплатное LISP-приложение для NanoCAD StripMtext. Разработчики приложения — Steve Doman и Joe Burke. Отдельное спасибо EdwardSt StripMtext v5-0c-nanо.lsp

Привет, попробуй использовать команду agp_bl_regen из lispa, который я выкладывал ссылка на lisp в загрузках

один переобразовали командой ТЕКСТВМТЕКСТ, следующий щелк мышкой (выделили), затем жмакнули пробел и т.д. щелк, пробел, щелк, пробел ... ну или пишите/ищите lisp (выбрать, что быстрее)