Leaderboard

вот зачем я стал читать то, что появилось после регена в файле исчезнувшие.dwg ...

Повторилось, записал. 18630

Посмотри код: в sysvar-save проверяется - если устанавливаемая переменная не существует (getvar для несуществующей переменной возвращает nil), то функция и не пытается что-то там куда-то установить. Результирующий список получает только перечень измененных системных переменных с их начальным значением. Судя по всему, в NC5.1 попытка вызова (getvar "aflags") вернет nil - так что в результат sysvar-save эта переменная просто не попадет. Переменные установили, сохранили исходное значение - и после этого уже выполняем восстановление, используя результаты выполнения sysvar-save. По крайней мере логика именно такая у меня была. P.S. NC5.1 в наличии нет и вряд ли появится.

Тоже типа "Плана работ"

боевых с размерами пока нет.... эти выноски собираются в таблицу, типа плана работ...

Куда только таблицы не "пихают" Пример шаблона формат из таблицы.mcdi

Автоматом сейчас только пробел или дефис... upd чет ошибочно думал, что по дефису переносит Не считаю правильным, что АК при переносе рвет слова.. Вручную, ctrl+enter Upd Пере несет Это как? В языке немало слов которые если разбивать на строки вот так бездумно, без дефиса.. Вспомнились.. Вовочка, Скр и мышь

Собственно в процессе работы в нано обнаружил, что исчезли с чертежа универсальные выноски... В процессе расследования выяснилось, что не только они((( по ctrl+A на "апсалютно пустом чертеже" в оригинале с этим чертежом аналогичная шляпа((( что привело к такому результату, точно сказать не могу... учитывая, что нана складывается по несколько раз на дню иногда предлагает сохранить перед смертью иногда после возрождения... соответственно в зависимости от того в какой момент он меня подловил (сколько я успел наработать увлекшись и забыв жамкать каждые 30 сек ctrl+S) иногда принимаю сомнительное предложение сохранить/восстановить иногда нет... ---------- в итоге пережил несколько неприятных минут пока не сообразил, выделить все и двинуть объекты до этого коллеги то же жаловались, что нана ныкает объекты... но в этот раз конечно эпичненько у него получилось))) ------------- в аттаче файлик, все видимое удалил, невидимое на скрине выше... надеюсь разработчики че нить сделают, чтоб такое не повторялось... беда даже не в том, что пропало... когда что то исчезает замечаешь не сразу, двигаешь копируешь.. а потом хоппа оно появилось, но уже не на своем месте или вообще нафих тут не нужно исчезнувшие.dwg добавлено через 3 минут зы кстате а текст и мтекст хоть быстрым выбором выбирается, но редактировать проблематично в этом жэж чертежике добавлено через 6 минут суслик тексты там есть исчезнувшие тексты.dwg

да, это чуть разные команды в чем различие сходу не скажу, но вторая более продуктивная

Здравствуйте! Такой вопрос. Стоит программа NanoCAD 22. Хочу сделать таблицу nanocad с разделенными листами. Но так как 1ый лист (рамка) отличается от последующих размер страниц должны быть разными. Хотел реализовать через "Строки" - "Высота страницы", но высоту страницы выставляет одну и ту же везде, а мы бы хотелось сделать на первой одну высоту, а на других уже больше. Можно ли как-то это реализовать? Пробовал делать через команду "Начать новую страницу". Определил сколько мне надо строк на 1ой странице, потом на последующих и разбил их вручную (строка по 8мм). Но столкнулся с проблемой, если текст переполняет ячейку то он либо увеличивает высоту ячейки, либо добавляет еще одну (в зависимости от поставленный свойств во вкладке "вписывание", во вкладке "вписывание" сжатие по горизонтали и уменьшение текста мне не подходит) и уже таблица заходит на рамку. Получается такой способ не подходит.

Тоже была такая задача для спецификаций и кабельных журналов. Привязка форматов работала очень криво. С нашими рамками не работала вообще. И ещё нужен купленный СПДС. В итоге сделал такой шаблон: В пространстве модели создал одну таблицу на тысячу строк с высотой 8 и параметром вписывания "добавлять виртуальные строки" (без произвольного увеличения высоты строк). Создал 30 листов с рамками и основными надписями, пронумеровал. На листах создал видовые экраны с частями таблицы. Шаблон готов. Данные в таблицу копирую через буфер обмена ctrl+c/ctrl+v. Удаляю лишние листы. Таблица готова. Удобно печатать/переводить в PDF через пакетную печать.

Попробуйте еще прилагаемую таблетку. Проверил только для текстов и мтекстов. Похоже. список можно расширить и другими типами (какими?) DOLOY_ANNO.lsp

в актуальных версиях спдс графикс ситуация аналогична нане...

для динамических работает команды: drz_AtrSynch drz_AtrSynchHard на нанодев сильно я б не надеялся, даже если это в след версии сделают, другое стопудово поломают((( добавлено через 2 минуты мультивыносок, атрибутов блоков.... и царицей морскою... хотя по хорошему этим давно должны были разработчики озаботиться, коль аннотативность толком показывать до сих пор не умеют

Вы хоть опишите словами, чего эта программа должна делать. Учитывая, что объяснять надо человеку, который геодезию последний раз видел с задней парты лет этак 25 назад

В принципе несложно, только работать будет долго (vl-load-com) (defun c:kpblc-unanno (/ adoc layers ent ent_count) (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) (setq ent_count 0) (vlax-for item (vla-get-layers adoc) (setq layers (cons (cons item (mapcar (function (lambda (prop / temp) (setq temp (vlax-get-property item prop)) (vl-catch-all-apply (function (lambda () (vlax-put-property item prop :vlax-false) ) ) ) (cons prop temp) ) ) '("freeze" "lock") ) ) layers ) ) ) (vlax-for blk_def (vla-get-blocks adoc) (if (equal (vla-get-isxref blk_def) :vlax-false) (vlax-for ent blk_def (setq ent (vlax-vla-object->ename ent)) (if (assoc "AcadAnnotative" (cdr (assoc -3 (entget ent '("*"))))) (progn (entmod (append (entget ent) (list (cons -3 (mapcar (function (lambda (x) (if (= (car x) "AcadAnnotative") (list (car x)) x ) ) ) (cdr (assoc -3 (entget ent '("*")))) ) ) ) ) ) (setq ent_count (1+ ent_count)) ) ) ) ) ) (foreach item layers (foreach prop (cdr item) (vl-catch-all-apply (function (lambda () (vlax-put-property item (car prop) (cdr prop)) ) ) ) ) ) (if (> ent_count 0) (princ (strcat "\nAnnotative deleted from " (itoa ent_count) " entities")) ) (vla-endundomark adoc) (princ) ) Код не проверял, написано на коленке. добавлено через 1 минуту Я к этой фразе код писал. Если, конечно, как обычно, я ничего не напутал

Да все тексты аннотативные. Причем не стиль, а вручную сделаны аннотативными добавлено через 6 минут Но это тоже не очень хорошо. Включено видеть во всех масштабах. А не видно

Еще небольшая прога c_piket.lsp

где включается печать листов при закрытии файла чтоб как в автокаде

spdataextraction as is как в платформе не знаю