A.Kudrjashov Posted October 21, 2021 Report Share Posted October 21, 2021 (edited) 15 часов назад, lidia.antipina.ru сказал: Насчет StripMtext v5-0c1_NC.lsp вызывает сомнение обработка команд VBScript.RegExp Меня больше огорчило то, что в NC21 не сработала даже та часть скрипта, что сработала в NC20. Кстати, с полями при применении txt_edit_NC та же самая фигня. Повторяем предыдущий эксперимент и получаем из Спойлер в AutoCAD все нормально: Спойлер а в nanoCAD 20/21 после применения команды поля исчезают Спойлер Спойлер С другой стороны, хорошо, когда есть хоть что-то стабильное. P.S. А нельзя сделать так, чтобы информационное пространство статей форума занимало несколько побольше жизненного пространства браузера ? Спойлер Edited October 21, 2021 by A.Kudrjashov Дополнения 1 Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 21, 2021 Report Share Posted October 21, 2021 15 часов назад, lidia.antipina.ru сказал: Для сброса цвета - см. bgtools 3.11a_Nc_21.lsp - работающие команды отмечены + в BGINFO. BGCOLOR в NC20.x работает нормально, [хотя и пишет, что Спойлер а в NC21.x после применения не позволяет выполнить Undo ни из командной строки, ни из верхней панели. Спойлер Создается ощущение, что у LISP под nanoCAD перспективы не самые радужные. 1 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted October 21, 2021 Report Share Posted October 21, 2021 Тестировала под Win 10 Pro, у Вас какая? добавлено через 6 минут 1 час назад, A.Kudrjashov сказал: Создается ощущение, что у LISP под nanoCAD перспективы не самые радужные. Перспективы нормальные, но сложно бежать вдогонку за продуктом с начальным отставанием в 20 лет. Вы же знаете, что программ без ошибок не существует в природе 1 Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 21, 2021 Report Share Posted October 21, 2021 12 минут назад, lidia.antipina.ru сказал: Тестировала под Win 10 Pro, у Вас какая? На данном рабочем месте Windows 7. Но, если еще и это будет влиять ! Конечно, программ без ошибок не бывает. Печально, когда в новой версии ошибок становится больше. Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 21, 2021 Report Share Posted October 21, 2021 Тоже попытался погрузиться в проблемный код. В результате докопался до очень неприятной проблемы. Вся логика работы программы основана на замене пустой символьной строкой определенной последовательности символов форматирования. При этом интерфейсная часть формирования списка параметров и захват объектов вроде работают корректно. Даже окно свойств сохраняет свои значения при запуске обеих САПР - NС и АС Выявлено различие в реализации функции (defun RE:Replace ... в NС и АС., а именно в части метода 'Replace Спойлер Судя по всему, в нанокаде неверно применяются маски 'Pattern. Например: маска pat = "\\\\[Ff].*?;" применяется для поиска имени файла шрифта. маска pat = "\\\\W[0-9]?[.]?[0-9]+;" применяется для поиска фрагмента изменения ширины символов. Выяснилось, что в NC метод 'Replace при применении этих масок не заменяет найденные фрагменты, а просто "обнуляет" всю строку. в АС происходит "обнуление" только фрагмента, отвечающего маске Вполне возможно, что разработчикам удастся оперативно найти исток проблемы. Возможно, имеет место просто тупая замена внутри функции-метода 'Replace одной переменной (фрагмент) другой переменной (вся строка). Такую ошибку достаточно легко исправить. В нашем же случае это является очень труднопреодолимым препятствием, т.к. реализация метода нам-пользователям недоступна. Хотя, можно попробовать самостоятельно написать прямо внутри функции RE:Replace собственный парсинг строки. Но это довольно хлопотное и кропотливое дело. Я бы порекомендовал использовать лиспы из перечисленных выше, пусть не столь всеобъемлюющих, но достаточно функциональных. 1 1 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted October 22, 2021 Report Share Posted October 22, 2021 Создан дефект. Год назад было поправлено для передачи строки с символом \0, но вероятно не совсем корректно 3 Quote Link to comment Share on other sites More sharing options...
oleg25 Posted October 22, 2021 Report Share Posted October 22, 2021 В 21.10.2021 в 12:56, lidia.antipina.ru сказал: Вы же знаете, что программ без ошибок не существует в природе Спойлер Конечно знаем, но знание и вера две разных категории. А в nanoCAD мы верим) 1 1 Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 28, 2021 Report Share Posted October 28, 2021 В продолжение темы. Конечно, победить метод 'Replace мне не удалось. Но, возможно, на наше счастье метод 'Execute работает штатно, что позволило внести некоторые изменения в код (извиняюсь за корявость этих изменений) и добиться работоспособности программы. Протестировать на всех видах объектов не удосужился. Внесены были только точечные изменения для реализации функции замены подстроки. Можете попробовать доработанный вариант, файл в атаче. StripMtext v5-0c-nanо.lsp 3 1 Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 29, 2021 Report Share Posted October 29, 2021 14 часов назад, EdwardSt сказал: Можете попробовать доработанный вариант, файл в атаче. Под NC20.1 сразу выпадает ошибка Undo. Спойлер Под NC21.0 поле точно также исчезает Спойлер Спойлер Спойлер P.S. Я думаю, что, если есть большая потребность, то лучше не спеша написать заново. Как минимум, код будет под полным контролем. В nanoCAD что-то работает принципиально не так, как в AutoCAD. И, вообще, о кросс-платформенных (NC/AC) LISP кодах, похоже, лучше не мечтать. Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted October 29, 2021 Report Share Posted October 29, 2021 (edited) 3 часа назад, A.Kudrjashov сказал: Под NC20.1 сразу выпадает ошибка Undo. (1) (Скрыть контент) Под NC21.0 поле точно также исчезает (2) (Показать контент) (3) (Показать контент) (4) (Показать контент) P.S. Я думаю, что, если есть большая потребность, то лучше не спеша написать заново. Как минимум, код будет под полным контролем. В nanoCAD что-то работает принципиально не так, как в AutoCAD. И, вообще, о кросс-платформенных (NC/AC) LISP кодах, похоже, лучше не мечтать. Я везде втыкаю проверку версии nano для startundomark, endundomark. Аналогично для нереализованных/не нужных/устаревших сисваров if_nano.lsp добавлено через 7 минут 3 часа назад, A.Kudrjashov сказал: о кросс-платформенных (NC/AC) LISP кодах, похоже, лучше не мечтать. Почему, все достижимо. Но надо иметь ввиду, что старые лиспы часто тащут историю от царя гороха, причем можно написать гораздо проще. А еще перед этим пробежаться по списку реализованных команд nano, может этих лисп-функций уже не требуется Edited October 29, 2021 by lidia.antipina.ru 2 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted October 29, 2021 Report Share Posted October 29, 2021 Если переписывать лиспы, то предпочтительно, используя COM (vl-, vla-, vlax) Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 29, 2021 Report Share Posted October 29, 2021 36 минут назад, lidia.antipina.ru сказал: Почему, все достижимо. Но надо иметь ввиду, что старые лиспы часто тащут историю от царя гороха, причем можно написать гораздо проще. Если бы проблема была только в истории или объеме ... Проблема в том, что функционал не работает, как предполагается. То есть, кроме принципиального решения задачи и отладки кода, необходимо еще параллельно искать нестыковки в реализациях ACAD/nanoCAD или NC20.x/NC21.x. У подавляющего числа пользователей, а LISP автоматизация ориентирована прежде всего на обычных [продвинутых] пользователей, просто нет столько времени копаться в чужом коде. Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 29, 2021 Report Share Posted October 29, 2021 36 минут назад, lidia.antipina.ru сказал: Если переписывать лиспы, то предпочтительно, используя COM (vl-, vla-, vlax) Это более эффективно, но менее универсально. Я все-таки не оставляю попыток делать лиспы максимально универсальными, независимыми (или минимально зависимыми) от платформы. Поэтому vl* - функциям перехожу только когда совсем лениво и затратно реализовывать на классических функциях автолиспа. Возможно, это слишком оптимистичный подход - доверять разработчикам в том, что более старые функции уж_точно_вылизаны_до_предела, но я исхожу именно из этого посыла. Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted October 29, 2021 Report Share Posted October 29, 2021 4 часа назад, A.Kudrjashov сказал: Под NC21.0 поле точно также исчезает (2) (Скрыть контент) Ваш тестовый пример очень хорош для отладки, за что отдельное спасибо. На нем в частности выявил, что и исходная программа в АС14 неверно справляется с некоторыми конструкциями. Например, поле в ячейке таблицы обработать программа не может и аварийно вываливается. Еще раз оговорюсь, весь функционал не тестировал. Описание полей внутреннего форматирования в многострочном тексте очень уж развесистое. Постарался устранить только очевидную ошибку некорректной замены фрагмента текста другой текстовой строкой (что, вроде бы удалось). А вот то, что при изменении текста теряется связь с полем, - это уже более глубинный вопрос к потрохам нанокада, выходящий за рамки просто обработки текстовой строки, и мною не рассматривался. 1 Quote Link to comment Share on other sites More sharing options...
A.Kudrjashov Posted October 29, 2021 Report Share Posted October 29, 2021 Синтаксический разбор вызовов LISP модулей (PowerShell)https://forum.nanocad.ru/index.php?/blogs/entry/82-sintaksicheskiy-razbor-vyzovov-lisp-moduley-powershell/ ... в первом приближении. Quote Link to comment Share on other sites More sharing options...
aerohost Posted November 1, 2021 Author Report Share Posted November 1, 2021 (edited) Коллеги,а у кого то есть Лисп который делает ширину однострочного мтекса по ширине самого текста? Например сам текст шириной 10 единиц , а самое поле мтекста 35 единиц. И надо чтоб бы Лисп сделал ширину текста из 35 к 10. Лиспы которые рассматривались выше, где позиции(чекбоксы) "ширина" 'высота" думал решают эти проблемы, оказывается нет (это все надо для того, чтоб сделать корректный фон у текста), спасибо Edited November 1, 2021 by aerohost Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted November 2, 2021 Report Share Posted November 2, 2021 Файл в атаче Там первая функция - примитивный выбор объекта. Без проверки, что выбран мтекст, и без остальных изысков. Если есть необходимость, можно усложнить выбор. И вторая функция - собственно изменитель МТекста (ширина, высота и масштаб рамки заливки) BoundMText.lsp 1 1 Quote Link to comment Share on other sites More sharing options...
aerohost Posted November 2, 2021 Author Report Share Posted November 2, 2021 (edited) 59 минут назад, EdwardSt сказал: Файл в атаче Там первая функция - примитивный выбор объекта. Без проверки, что выбран мтекст, и без остальных изысков. Если есть необходимость, можно усложнить выбор. И вторая функция - собственно изменитель МТекста (ширина, высота и масштаб рамки заливки) BoundMText.lsp 508 \u0411 · 3 загрузки все класс, работает, но с выбором беда, только поштучно, если можно было бы массово выбирать, было б просто замечательно. Попробую сам, что нибудь накрутить, спасибо ! Edited November 2, 2021 by aerohost Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted November 2, 2021 Report Share Posted November 2, 2021 5 минут назад, aerohost сказал: но с выбором беда, только поштучно, Тут только вопрос в пожеланиях))) Изначально речь шла об изменении текста. А способ выбора, проверка на дурака и т.п. - это отдельное ТЗ. Уточните требования и попробуем помочь 2 Quote Link to comment Share on other sites More sharing options...
aerohost Posted November 2, 2021 Author Report Share Posted November 2, 2021 (edited) 13 минут назад, EdwardSt сказал: Тут только вопрос в пожеланиях))) Изначально речь шла об изменении текста. А способ выбора, проверка на дурака и т.п. - это отдельное ТЗ. Уточните требования и попробуем помочь Все тоже самое, только не каждый раз выбирать поштучно мтекст, запустил ЛИСП выбрал скопом Мтекста и все.Спасибо! Ну еще было б неплохо, если лисп не будет брать в оборот пробелы, считал бы их как символ. Но это не столь важное, главное скоп реализовать бы :)) Ну если красиво делать, можно задать условие, Да\нет скрытый фон Мтекста :)) Спойлер Edited November 2, 2021 by aerohost Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted November 2, 2021 Report Share Posted November 2, 2021 Чем дальше в лес, тем толще партизаны))) Задача обрастает пожеланиями с неимоверной скоростью. Тут сразу несколько контр-вопросов: 1. Выбор. Учитывать предварительный выбор и использовать его или только запрос новых Отфильтровывать МТексты в момент выбора (в том числе и в предварительном выборе) с соответствующим сообщением или сначала выбрать, а потом применить изменения только для мтекстов 2. С пробелами не совсем понял. Приведенная программа определяет реальные размеры прямоугольника мтекста и заменяет ими исходные, которые доступны для редактирования через окно свойств или через ручки Спойлер Если имеется ввиду перенос в строке по достижении пробела, то это значительно более сложная задача. Т.е. примерно следующий алгоритм: сначала увеличение ширины текста на невообразимую величину, а уже после этого применить исходный алгоритм, который уменьшит пользовательскую ширину до реально получившейся. Не уверен в разумности такого алгоритма. Запросто можно наворотить нежелательные изменения. 3. включение/отключение заднего фона регулируется опять же через окно свойств. Приведенный лисп только меняет масштаб рамки фона (по умолчанию он 1,5), если такой параметр присутствует. Если необходимо включение/отключение непосредственно в программе, то это усложняет ее дополнительным соответствующим запросом. Там дальше появятся вопросы о цвете фона, использовать ли фиксированный цвет и т.п. PS. Как всегда, интерфейсная часть (все эти вопросы-галочки, что, если и т.п.) - самая тяжеловесная часть программы. По моему опыту это 90% кода и результат не всегда всех устраивающий. Т.к. обязательно кто-то захочет еще расположить в углу котенка. Поэтому, как освобожусь, постараюсь сделать компромиссный вариант с запросом или использованием предварительного выбора. Остальные пожелания - "неучет" пробелов в тексте, включение/отключение фона и запрос цвета - не обещаю. 1 Quote Link to comment Share on other sites More sharing options...
aerohost Posted November 2, 2021 Author Report Share Posted November 2, 2021 (edited) 1 час назад, EdwardSt сказал: Чем дальше в лес, тем толще партизаны))) Задача обрастает пожеланиями с неимоверной скоростью. Тут сразу несколько контр-вопросов: 1. Выбор. Учитывать предварительный выбор и использовать его или только запрос новых Отфильтровывать МТексты в момент выбора (в том числе и в предварительном выборе) с соответствующим сообщением или сначала выбрать, а потом применить изменения только для мтекстов 2. С пробелами не совсем понял. Приведенная программа определяет реальные размеры прямоугольника мтекста и заменяет ими исходные, которые доступны для редактирования через окно свойств или через ручки вот эти (Показать контент) Если имеется ввиду перенос в строке по достижении пробела, то это значительно более сложная задача. Т.е. примерно следующий алгоритм: сначала увеличение ширины текста на невообразимую величину, а уже после этого применить исходный алгоритм, который уменьшит пользовательскую ширину до реально получившейся. Не уверен в разумности такого алгоритма. Запросто можно наворотить нежелательные изменения. 3. включение/отключение заднего фона регулируется опять же через окно свойств. Приведенный лисп только меняет масштаб рамки фона (по умолчанию он 1,5), если такой параметр присутствует. Если необходимо включение/отключение непосредственно в программе, то это усложняет ее дополнительным соответствующим запросом. Там дальше появятся вопросы о цвете фона, использовать ли фиксированный цвет и т.п. PS. Как всегда, интерфейсная часть (все эти вопросы-галочки, что, если и т.п.) - самая тяжеловесная часть программы. По моему опыту это 90% кода и результат не всегда всех устраивающий. Т.к. обязательно кто-то захочет еще расположить в углу котенка. Поэтому, как освобожусь, постараюсь сделать компромиссный вариант с запросом или использованием предварительного выбора. Остальные пожелания - "неучет" пробелов в тексте, включение/отключение фона и запрос цвета - не обещаю. Да я уже накрутил фильтр и скоп, чуть попозже попробую накрутить фон, если получться. Если у вас получится быстрее фон накрутить, то круто ! я непрофи в lisp и кодинге upd: Разное поведение lispa на разный Mtext, где перенес текст на новую строку (где был пробел) , этот Мтекст был создан в старых версиях Ncad, А где не перенес текст на новую строку, этот Mtext был создан в (ncad 11,20,21) Ну и ладно, так тоже хорошо Спойлер BoundMText.lsp Edited November 2, 2021 by aerohost 1 Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted November 2, 2021 Report Share Posted November 2, 2021 (edited) 41 минуту назад, aerohost сказал: upd: Разное поведение lispa на разный Mtext, Пример не понял. Можно сам файл *.dwg с одной из надписей? Для отключения фона достаточно добавить (setq da (subst (cons 90 0) (assoc 90 da) da)) Для включения фона: (cons 90 1) или (cons 90 2), и дополнительная установка цвета (использование DXF-групп 63, 420 - 439) Edited November 2, 2021 by EdwardSt 1 Quote Link to comment Share on other sites More sharing options...
aerohost Posted November 3, 2021 Author Report Share Posted November 3, 2021 (edited) 22 часа назад, EdwardSt сказал: Пример не понял. Можно сам файл *.dwg с одной из надписей? Для отключения фона достаточно добавить (setq da (subst (cons 90 0) (assoc 90 da) da)) Для включения фона: (cons 90 1) или (cons 90 2), и дополнительная установка цвета (использование DXF-групп 63, 420 - 439) Вроде как сделал, вроде как работает и в тоже время не работает скрытие фона. Если с помощью лиспа делать скрытие фона вновь созданного МТЕКСТА, по лисп почему то не работает. Но если у МТЕКСТА вручную установить фон, потом с помощью Групповые коды DXF 90 поставить на 2( скрыть фон), потом поставить DXF 90 поставить на 3 ( показать фон) то все работает( Это отображено в конц gif). Кто знает в чем причина ? Такое ощущение, что у вновь созданного МТЕКСТА как будто не существует DXF 90, при ручной операции он появляется, и получается с помощью лиспа получается перезаписывается DXF 90 на 0 1 2 3. Я так понимаю ошибка в коде лиспа, который перезаписывает DXF 90 (Если он создан\существует), а реализовать надо, что бы не перезаписывал, а создавал новый при его отсутствии Спойлер mtext.dwgBoundMText.lsp Edited November 3, 2021 by aerohost Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted November 3, 2021 Report Share Posted November 3, 2021 (edited) 4 часа назад, aerohost сказал: Вроде что то сделал, но не работает... я про маску текста, посмотрите, может решится проблема в два клика) mtext.dwgBoundMText.lsp Сейчас немного занят... Но практически сразу обозначилась проблема по поводу переноса в МТексте. Обращаю внимание, что она не связана с лисповски скриптом! Наблюдается проблема на уровне интерпретации DWG-формата. Для демонстрации подготовил пример с проблемной надписью. Тестовый Мтекст скопировал на новое место и применил к нему скрипт, изменяющий пользовательские размеры мтекста до его реальных текущих. Спойлер Наблюдаем корректное изменение размеров (прямоугольник полностью охватывает мтекст, ручки строго в углах прямоугольника, фон распространяется на целевой прямоугольник текста) Спойлер Наблюдаем корректное изменение размеров, о чем свидетельствуют ручки и значения в окне свойств. Но NC не "вписался" в определившиеся размеры (причем, корректно определившиеся!), осуществил перенос текста по символу пробела и закрасил фон уже по новому получившемуся прямоугольнику. Если еще раз попробовать изменить границы, то наблюдаем Спойлер Прямоугольник, фон и ручки сошлись ожидаемым образом. Но не так, как задумывал пользователь! Интерпретация результата: Лисповская программа в среде NC корректно определила реальные занимаемые размеры мтекста, корректно присвоила их пользовательским размерам мтекста, но дальше NC не вписывает мтекст в правильно определенные размеры и вставляет перенос. Считаю это однозначным багом, на который обратят внимание разработчики, т.к. сохраненный в NC файл правильно отображается в АС, в отличие от NC. Для купирования проблемы в скрипте можно применить костыль в виде (setq s (* (cdr (assoc 42 da)) 1.001) ... Т.е., увеличить ширину на 0.1%. Глазу незаметно, а результат вроде близок к искомому. Высоту менять нет необходимости. mtext-дефект.dwg Edited November 3, 2021 by EdwardSt 1 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.