A.Kudrjashov Posted June 3, 2021 Report Share Posted June 3, 2021 (edited) 49 минут назад, tok сказал: Бился с адаптацией под Nanocad лиспа для получения точек полилинии в формате для тахеометров лейка, ничего к сожалению не получается. Может кто нибудь помочь в этом непростом деле? Я не знаю, что именно должно было получиться, но что-то получилось ... Спойлер Файлы: EXP-GSI_test.dwg exp_gsi_2.LSP 111.gsi Скрипт отформатировал для большей читабельности. В двух местах поставил пробел: Спойлер Спойлер Больше ничего не делал. Проверил под nanoCAD 20.1 Edited June 3, 2021 by A.Kudrjashov 2 Quote Link to comment Share on other sites More sharing options...
tok Posted June 3, 2021 Report Share Posted June 3, 2021 Премного благодарен, даже не рассчитывал на такую оперативность. Еще раз огромное Вам спасибо, все работает замечательно. С уважением, Александр. Quote Link to comment Share on other sites More sharing options...
Narumarus Posted June 16, 2021 Report Share Posted June 16, 2021 (edited) Кто-нибудь уже пробовал адаптировать под nanoCAD лисп CCutter.lsp быстрой подрезки внутри/снаружи контура? Спойлер https://forum.dwg.ru/showthread.php?t=42985 Сходу пришлось закомментировать в nanoCAD 20.1 не реализованы: (setvar "edgemode" emode) (setvar "projmode" pmode) CookieCutter2 v1.2a mod by VVA.lsp Edited June 16, 2021 by Narumarus Добавил файл Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted June 19, 2021 Report Share Posted June 19, 2021 Для версии ниже 21 закомментировать также (vla-EndUndoMark doc) (vla-StartUndoMark doc) Остальное- посмотрю 2 1 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted June 23, 2021 Report Share Posted June 23, 2021 (edited) В коде недокументированная отсутствующая в AutoCAD функция @delta в (TraceSpline obj): (@delta ang1 ang2) Edited June 23, 2021 by lidia.antipina.ru Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted June 23, 2021 Report Share Posted June 23, 2021 ; https://forum.dwg.ru/showthread.php?t=12287&highlight=%40delta ; Как в lispe начертить биссектрису прямого угла длиной 50 мм, координаты вершины угла я знаю. ; Может как то полярные координаты в lispe используются, как? ; written by Uhden, John (defun @delta (a1 a2) (cond ((> a1 (+ a2 pi)) (- (+ a2 pi pi) a1) ) ((> a2 (+ a1 pi)) (- a2 a1 pi pi) ) ((- a2 a1)) ) ) 1 1 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 2, 2021 Report Share Posted July 2, 2021 Также часто встречаются конструкции (Command "._XXX" ...) или (vl-cmdf "._XXX" ...), в которых надо поменять префикс на "_." Будет (Command "_.XXX" ...) или (vl-cmdf "_.XXX" ...) добавлено через 0 минут Создала пожелание #36469 3 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 30, 2021 Report Share Posted July 30, 2021 (edited) Вопрос: объекты, пересекающие кромки должны именно удаляться или обрезаться (надо проверить под AutoCAD, у кого есть он). У меня под Nc 20.3, 21.0 удаляются целиком. То если налезла на кромку полилиния, то удаляется она целиком, а не сегменами: ;shortcut ;;; Button for CCIN ;;; *^C^CCCin;\;Yes; ;Команды ;CCin - CC с точкой внутри, запрос на удаление объектов ;CCout - CC с точкой снаружи, запрос на удаление объектов ;CCinD - CC с точкой внутри, удаление объектов ;CCinDM - CC с точкой внутри, удаление объектов, бесконечный цикл ;LA Nc 21.0 - работает только с полилинями и окружностями, эллипсами ;LA Nc 21.0 - удаляет целиком (надо отсекать часть?) объекты внутри/снаружи и пересекаемые. (defun c:CCin () (CookieCutter2a t nil)) (defun c:CCout () (CookieCutter2a nil nil)) ;;; CC internal Delete All (defun c:CCinD () (CookieCutter2a t "Yes")) ;;; CC internal Delete All Multiple (defun c:CCinDM ()(while t (CookieCutter2a t "Yes"))) CookieCutter2 v1.2a mod by VVA_Nc.lsp Edited July 30, 2021 by lidia.antipina.ru 1 Quote Link to comment Share on other sites More sharing options...
Narumarus Posted July 30, 2021 Report Share Posted July 30, 2021 Обрезать по контуру, как говорят, те, кто пользовался этим скриптом: - Выделил прямоугольником, и получил ровный пустой прямоугольник. Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 30, 2021 Report Share Posted July 30, 2021 3 минуты назад, Narumarus сказал: Обрезать по контуру, как говорят, те, кто пользовался этим скриптом: - Выделил прямоугольником, и получил ровный пустой прямоугольник. Будем копать дальше Quote Link to comment Share on other sites More sharing options...
aerohost Posted October 13, 2021 Author Report Share Posted October 13, 2021 Коллеги, может кто накрутить данный лисп под ncad ? https://cadabyss.wordpress.com/2010/01/04/stripmtext-v5-0/ Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 13, 2021 Report Share Posted October 13, 2021 (edited) См. приложение. В простых случаях вроде работает. Может сойдет? PS. Нужно более детально пройтись по всему коду. Проблема в функциях (vl-bb-ref ...) и (vl-bb-set ...) Они имеют смысл в автокаде, но не в нанокаде. В начале файла заменил, а дальше было лениво. StripMtext v5-0c1.lsp Edited October 13, 2021 by EdwardSt 1 Quote Link to comment Share on other sites More sharing options...
aerohost Posted October 13, 2021 Author Report Share Posted October 13, 2021 18 минут назад, EdwardSt сказал: См. приложение. Может сойдет? StripMtext v5-0c1.lsp 61 \u043a\u0411 · 0 загрузок Iisp хоть начал заводиться, но функционал lispa не работает .... Спойлер Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 13, 2021 Report Share Posted October 13, 2021 (edited) Попробуйте так StripMtext v5-0c1.lsp Кстати, этот код вроде что-то делает в 21.0, а в 20.1 ругается еще и на функцию (ssget...) Сложная она... Edited October 13, 2021 by EdwardSt 1 Quote Link to comment Share on other sites More sharing options...
aerohost Posted October 13, 2021 Author Report Share Posted October 13, 2021 (edited) 12 минут назад, EdwardSt сказал: Попробуйте так StripMtext v5-0c1.lsp 61 \u043a\u0411 · 0 загрузок Класс, вроде функционал работает (ncad 21), потестирую, отпишусь, в случаи если все ок, рекомендую вам сделать отдельную тему в кат. "доп к ncad" Edited October 13, 2021 by aerohost Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 13, 2021 Report Share Posted October 13, 2021 23 минуты назад, aerohost сказал: Класс, вроде функционал работает (ncad 21), Похоже, все-таки, дело не только в этих функциях. От них зависела только работоспособность в принципе. Но в АС (исходный код) и NC (модифицировано выше) прога работает по-разному . Нужно более детально копаться в работающей программе, чтоб найти НЕ ТАК работающие функции. Досадно... Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 13, 2021 Report Share Posted October 13, 2021 Только что, EdwardSt сказал: Нужно более детально копаться в работающей программе, чтоб найти НЕ ТАК работающие функции. Досадно... В выходные постараюсь посмотреть. 1 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted October 13, 2021 Report Share Posted October 13, 2021 Просьба приложить примеры для тестирования, чтобы не изобретать добавлено через 6 минут Подобная прога должна работать change text styles (cts) 1.8.LSP 2 Quote Link to comment Share on other sites More sharing options...
aerohost Posted October 14, 2021 Author Report Share Posted October 14, 2021 9 часов назад, lidia.antipina.ru сказал: Просьба приложить примеры для тестирования, чтобы не изобретать добавлено через 6 минут Подобная прога должна работать change text styles (cts) 1.8.LSP 41 \u043a\u0411 · 0 загрузок не совсем то, я так понимаю ваш приложенный лисп переводит на выбранный текстовый стиль текст. Лисп который я приложил выше, должен выполнять удаление форматирования текста( принуженный поставленный цвет, текстовый стиль, ширину и высоту текста) скажем так привести к цвету по слою, стиль текста поставить по "Стилю" ширину и высоту выставить по размеру самого текста. Чуть позже скину примерчик... Quote Link to comment Share on other sites More sharing options...
Boroda888 Posted October 14, 2021 Report Share Posted October 14, 2021 Было уже нечто подобное и работающее или не устраивает? 1 Quote Link to comment Share on other sites More sharing options...
aerohost Posted October 14, 2021 Author Report Share Posted October 14, 2021 36 минут назад, Boroda888 сказал: Было уже нечто подобное и работающее или не устраивает? У лиспа выше, побольше функционала Quote Link to comment Share on other sites More sharing options...
aerohost Posted October 19, 2021 Author Report Share Posted October 19, 2021 (edited) Ребята, у кого то получилось накрутить лисп ? Edited October 20, 2021 by aerohost Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 19, 2021 Report Share Posted October 19, 2021 20 минут назад, aerohost сказал: Ребята, у кого то получилось накрутит лисп ? Разбираюсь потихоньку. Основная проблема - интерпретация полей в таблицах AutoCAD. Таблицы nanoCAD данный скрипт, понятное дело вообще игнорирует. Это следующая тема. Как и если получится, напишу. 1 1 Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 20, 2021 Report Share Posted October 20, 2021 В 19.10.2021 в 10:27, aerohost сказал: Ребята, у кого то получилось накрутит лисп ? ... все печально. Скрипты и примеры будут ниже во вложении. nanoCAD 20.x 1.1 Тестирование под NC20.x показало, что в процессе попытки чтения текстовой составляющей объекта и возврата ее назад, у объекта теряется определение полей. В самом простейшем случае, при попытке очистки цвета мы из Спойлер получаем Спойлер При этом единственное место где обрабатывается код объекта это Спойлер Вывод содержимого строк до и после форматирования в nanoCAD и AutoCAD показывает, что они идентичны. В AutoCAD все нормально. Спойлер Никаких других манипуляций с объектом в данном режиме очистки я пока не наблюдаю. Там есть и другие проблемы, но эта наиболее принципиальная. Если не обращать внимание на поля, то остальное вроде как работает. Я протестировал на своем примере. 1.2 Есть еще одна непонятная проблема: Если после очистки выполнить Undo, то повторная очистка не выполняется, так как вот этот код неправильно читает текстовые фрагменты. Спойлер Но, если просто в поле настроек фильтра очистки передернуть галочку опции, то все начинает работать нормально. Истоки проблемы тоже пока не нашел. nanoCAD 21.x Но сама большая засада обнаружилась под nanoCAD 21.x. Выше описанная операция очистки цвета, которая более менее выполняется под NC20, под NC21 выдает вот такой результат: Спойлер Проверка текстовой строки до после обработки подтверждает "корректность" вывода Спойлер То есть под NC21 есть ещё какие то принципиальные "нововведения". ... как то так, грустно и печально. Скрипт в первом приближении: StripMtext v5-0c1_NC.lspGCA.lsp Тестовый файл: (12-07-13_18.10.2021)StripMText_Sample_NC20.dwg Файл GCA.lsp надо бросить куда-нибудь, где до него дотянется NC. 1 2 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted October 20, 2021 Report Share Posted October 20, 2021 Есть еще txt-edit_Nc.lsp - удаляет форматирование для всего файла или выборочно. Для сброса цвета - см. bgtools 3.11a_Nc_21.lsp - работающие команды отмечены + в BGINFO. Насчет StripMtext v5-0c1_NC.lsp вызывает сомнение обработка команд VBScript.RegExp txt-edit_Nc.lsp 3 2 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.