MiniProgram 30-09-2024

Пользователь 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 новой записью:

Добавлены новые команды

Узнать больше об этом обновлении...