Пользователь alz разместил новый ресурс: MiniProgram - Набор различных макросов. Узнать больше об этом ресурсе...
Пользователь alz обновил ресурс MiniProgram новой записью: Добавлены функции Узнать больше об этом обновлении...
Пользователь alz обновил ресурс MiniProgram новой записью: Добавлена команда, небольшое исправление. Узнать больше об этом обновлении...
Пользователь alz обновил ресурс MiniProgram новой записью: Обновление Узнать больше об этом обновлении...
Из сообщений о программке не понял, можно ли управлять списком словарей? Чтоб не лишиться заодно и необходимого.
Ну словарь то у каждого элемента всего один, другой вопрос сколько в нем записей, тут кардинально грохается весь словарь. Я использую эту программу для чистки чертежей сделанных то ли в архикаде то ли через спдс, в общем словари в размерах лично мне точно не нужны, особенно если из-за них эти размеры скопировать нельзя)
Ээээ... Мы сами не местные! Есть известный лисп: Код: (defun c:dr (/ notdelete adoc) ;;;notdelete список неудаляемых словарей (vl-load-com) (setq adoc (vla-get-activedocument (vlax-get-acad-object)) notdelete '("ACAD_IMAGE_DICT" "ACAD_COLOR" "ACAD_FIELDLIST" "ACAD_GROUP" "ACAD_IMAGE_VARS" "ACAD_LAYOUT" "ACAD_MATERIAL" "ACAD_MLEADERSTYLE" "ACAD_MLINESTYLE" "ACAD_PLOTSETTINGS" "ACAD_PLOTSTYLENAME" "ACAD_SCALELIST" "ACAD_TABLESTYLE" "ACAD_VISUALSTYLE" "ACAD_WIPEOUT_VARS" "ACAD_PDFDEFINITIONS" "ACAD_DWFDEFINITIONS" "ACAD_BACKGROUND" "ACAD_CIP_PREVIOUS_PRODUCT_INFO" "ACAD_COLOR" "ACAD_DETAILVIEWSTYLE" "ACAD_SECTIONVIEWSTYLE" "AcAec" "AcDbVariableDictionary" "AcDsDecomposeData" "ADE_QUERY_LIBRARY" "AEC_CLASSIFICATION_SYSTEM_DEFS" "AEC_DISP_REP_CONFIGURATIONS" "AEC_DISP_REP_SETS" "AEC_DISP_REPS" "AEC_DISPLAY_PROPS_DEFAULTS" "AEC_PROPERTY_SET_DEFS" "AEC_VARS" "ASE_INDEX_DICTIONARY" "Autodesk_MAP" ) ) ;_ end of setq (vla-startundomark adoc) (mapcar '(lambda (d) (vl-catch-all-apply '(lambda () (if (not (member d notdelete)) (dictremove (namedobjdict) d) ) ;_ end of if ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of lambda (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 3)) (entget (namedobjdict)))) ) ;_ end of mapcar (repeat 3 (vla-purgeall adoc)) (vla-auditinfo adoc :vlax-true) (vla-endundomark adoc) (princ) ) ;_ end of defun Список сохраняемых словарей в нем составляли коллегиально и долго. Чтобы лишнего не убить. Например, "Autodesk_MAP" - чтобы не убить нужный нам в Map 3D. И "словари" здесь во множественном числе. Или этот лисп для словарей файла? А у Вас о словарях элементов?
Словарь это прицепленный к объекту элемент ExtensionDictionary, который по аналогии с xdata хранит записи XRecord. Ну в вашем я не вижу выбора объектов, походу сразу из документа удаляются словари, в этой программе словарь удаляется из конкретного выбранного в чертеже объекта.
Пользователь alz обновил ресурс MiniProgram новой записью: Добавлены новые команды Узнать больше об этом обновлении...
Пользователь alz обновил ресурс MiniProgram новой записью: Добавлены команды Узнать больше об этом обновлении...
Пользователь alz обновил ресурс MiniProgram новой записью: Добавлены команды Узнать больше об этом обновлении...
Уважаемый alz, можно ли в команде ChangeObjectColor изменить принимаемый цвет с с RGB на ACI? В идеале сюда еще бы добавить перекраску блоков
Тут для выбора цвета используется стандартная палитра автокада, так что тут на выбор и ргб и обычный выбор по номеру, автокад в принципе работает походу только с ргб, все стандартные цвета так же имеют соответствующий код. Команда перекрашивает блоки так же как и остальные объекты, просто у блока как и у других сложных объектов типа размеров или мультилиний какие-то элементы внутри могут иметь свои цвета, для перекрашивания объектов внутри блоков сделана другая команда - 8) ColorChange (Форматирование) - изменяет цвет, толщину линий или слой всех объектов в выбранных блоках или всех блоках чертежа
Пользователь alz обновил ресурс MiniProgram новой записью: Обновление Узнать больше об этом обновлении...
Уважаемый alz, можно ли в команде ChangeObjectColor изменить принимаемый цвет с с RGB на ACI? Почему-то стала сбиваться настройка, не запоминает выбранный цвет.
Чет это похоже на немного некорректное восстановление сохраненного цвета из настроек, и это явно не что-то новое а со времен написание команды, так как с тех времен в нее я не залазил точно, Точнее цвет то восстанавливается корректно, но да, как ргб, будет время проверю.
Пользователь alz обновил ресурс MiniProgram новой записью: Обновление Узнать больше об этом обновлении...
Пользователь alz обновил ресурс MiniProgram новой записью: Обновление Узнать больше об этом обновлении...
