[Witalij]

Собственно, сабж!
Я очень не люблю перебивать текст в размерах - это сильно увеличивает вероятность косяка по ним в будущем.

Можно ли?:
- выделить квикселектом на листе все размеры с перебитыми величинами
- либо перенести все их на отдельный слой.
Какой лисп для этого нужен?

[Donhuan]

можно.
можно после выделения qselect.
можно и штатными средствами обойтись см. выше.

[VVA]

Лиспы есть здесь Там перебитые размеры выделяются цветом, но в принципе можно и на слой.

Можно ли?: - выделить квикселектом на листе все размеры с перебитыми величинами

Можно, но отдельно линейные, параллельные и т.д. размеры (см. картинку)
Попробуй эту кнопку

Код:

[Выделить все]

 (SSSETFIRST nil (ssget"_X"'((0 . "*DIMENSION")(1 . "?*"))))

[AlexV]

Небольшой dvb на ту же тему...

[Witalij]

Сообщение от AlexV Небольшой dvb на ту же тему...

А как им пользоваться? Я его загрузил - и что?

[AlexV]

Сообщение от Witalij А как им пользоваться? Я его загрузил - и что?

После запуска макроса появляется форма. В комбобоксе "Слой" выбираем нужный слой, на который хотим перенести правленные размеры. Во втором комбобоксе выбираем тип поиска размерных объектов- по всему чертежу или выделением рамкой. Ну и при нажатии на кнопку размеры с исправленным текстом должны перенестись на нужный слой. (проверки на заблокированность и т.д. слоя не делал. Нужно будет - могу дописать.)

[Witalij]

Сообщение от AlexV После запуска макроса

Так как запустить-то его - я его только загрузил!

[Witalij]

Воспользовавшись разными лиспами выбрал в итоге:

Код:

[Выделить все]

;|=============================================================================
*    проверка размеров на правильность проставления. Вручную проставленные
* размеры меняют цвет на 1, вес линии на 2.11 мм. Переназначения текста не
* выполняется
=============================================================================|;
(defun c:kpblc-dimcheck (/ *kpblc-activedoc* selset item temp_text)
  (vl-load-com)
  (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark *kpblc-activedoc*)
  (setq selset (ssget "_X" '((0 . "DIMENSION"))))
  (while (and selset
       (> (sslength selset) 0)
       (setq item (ssname selset 0))
       (ssdel item selset)
       ) ;_ end of and
    (setq item (vlax-ename->vla-object item))
    (if (and (/= (vla-get-textoverride item) "")
      (not (wcmatch (vla-get-textoverride item) "*<>*"))
      ) ;_ end of and
      (progn
 (vla-put-color item 1)  ; цвет - красный
 (vla-put-lineweight item 015) ; вес линии - 2.11
 (vla-put-linetype item "ZIGZAG") ; тип линии - ??
 (vla-put-LinetypeScale item 0.25) ; тип линии - ??
 (setq temp_text (vla-get-textoverride item))
 ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of while
  (vla-endundomark *kpblc-activedoc*)
  (princ)
  ) ;_ end of defun

Скрипт выделяет типом линии и цветом все "вручную" забитые размеры.
Вопрос - как мне загрузить перед заданием типа линии сам тип линии Зигзаг??

Для возврата использую:

Код:

[Выделить все]

;|=============================================================================
*    проверка размеров на правильность проставления. Вручную проставленные
* размеры меняют цвет на 1, вес линии на 2.11 мм. Переназначения текста не
* выполняется
=============================================================================|;
(defun c:kpblc-dimcheck-undo (/ *kpblc-activedoc* selset item temp_text)
  (vl-load-com)
  (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark *kpblc-activedoc*)
  (setq selset (ssget "_X" '((0 . "DIMENSION"))))
  (while (and selset
       (> (sslength selset) 0)
       (setq item (ssname selset 0))
       (ssdel item selset)
       ) ;_ end of and
    (setq item (vlax-ename->vla-object item))
    (if (and (/= (vla-get-textoverride item) "")
      (not (wcmatch (vla-get-textoverride item) "*<>*"))
      ) ;_ end of and
      (progn
 (vla-put-color item 5)  ; цвет - красный
 (vla-put-lineweight item 015) ; вес линии - 2.11
 (vla-put-linetype item "CONTINUOUS") ; тип линии - ??
 (vla-put-LinetypeScale item 1) ; тип линии - ??
;; (vla-put-dimstyle item "Wit") ; Возврат к стандарту
 (setq temp_text (vla-get-textoverride item))
 ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of while
  (vla-endundomark *kpblc-activedoc*)
  (princ)
  ) ;_ end of defun

Вопрос - как вместо (vla-put-color item 5) выполнить (vla-put-color item "ByLayer") - он это не распознаёт!

P.S. лиспом владею суперплохо...

[VVA]

По моему так

Код:

[Выделить все]

 
(vla-put-color item 256) ;_По слою

[AlexV]

Сообщение от Witalij Так как запустить-то его - я его только загрузил!

Ну, так же, как и любой VBA макрос. Проще всего - Alt + F8 -> "выполнить". Либо создать кнопку, повесить на нее макрос
^C^C-vbarun DimLay.dvb!Module1.main (при этом файл dvb проекта должен находится в папке, путь к которой задан в "Настройка"> "Файлы">"Путь доступа к вспомогательным файлам")