[Ingpro]

Этот лисп проставляет размеры с изменёнными настройками (цвета текста и линий размеров), но не возвращает старые настройки. Как это можно исправить, плз...

Код:

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

 (defun C:DIMCOLOR ()
(vl-load-com)
(setvar "DIMCLRT" 22)
(setvar "DIMCLRD" 160)
(setvar "DIMCLRE" 94)
(vl-cmdf "_dimlinear")

;(setvar "DIMCLRT" 0); если раскомментировать, то размеры выполняются стандартными настройками
;(setvar "DIMCLRD" 0)
;(setvar "DIMCLRE" 0)

(princ)
)

[Кулик Алексей aka kpblc]

Перед восстановлением не помешает убедиться, что команда _.dimlinear закончила свою деятельность. cmdactive в помощь. И ключевое слово pause

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Перед восстановлением не помешает убедиться, что команда _.dimlinear закончила свою деятельность. cmdactive в помощь. И ключевое слово pause

Код:

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

 (defun C:DIMCOLOR1 ()
(vl-load-com)
(setvar "DIMCLRT" 22)
(setvar "DIMCLRD" 160)
(setvar "DIMCLRE" 94)
(vl-cmdf "_.dimlinear")
(while (> (getvar 'CmdActive) 0) (command pause))

(setvar "DIMCLRT" 0)
(setvar "DIMCLRD" 0)
(setvar "DIMCLRE" 0)
(princ)
)

Вот так получилось, спасибо, Алексей.

[Кулик Алексей aka kpblc]

Примерно так, код не проверял:

Код:

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

 (defun C:DIMCOLOR (/ adoc sysvar) 
  (vl-load-com)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq sysvar (mapcar 
                 (function 
                   (lambda (x / temp) 
                     (setq temp (getvar (car x)))
                     (setvar (car x) (cdr x))
                     (cons (car x) temp)
                   )
                 )
                 '(("dimclrt" . 22)
                   ("dimclrd" . 160)
                   ("dimclre" . 94)
                  )
               )
  )
  (vl-catch-all-apply 
    (function 
      (lambda () 

        (vl-cmdf "_dimlinear")
        (while (/= (getvar "cmdactive") 0) 
          (vl-cmdf pause)
        )
      )
    )
  )
  (foreach item sysvar 
    (setvar (car item) (cdr item))
  )
  (vla-endundomark adoc)
  (princ)
)

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Примерно так, код не проверял:

Этот код тоже работает, спасибо!
А как можно подправить, чтобы с этими цветами изменить существующие размеры?

[Кулик Алексей aka kpblc]

Я вижу только один вариант - по каждому из размеров получать его DXF представление и менять соответсвующие группы. Ну или через ActiveX проворачивать примерно то же самое.
Сейчас запарка перед выходными, код будет достаточно длинным, и я навскидку не помню DXF-представления для размеров.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Я вижу только один вариант - по каждому из размеров получать его DXF представление и менять соответсвующие группы.

А может можно попроще?

Код:

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

 ;; Изменить цвета для существующих размеров в соответствии с DIMCLRT, DIMCLRD и DIMCLRE
(defun C:DIMCOLCHANGE ()
(vl-load-com)
(setvar "DIMCLRT" 22)
(setvar "DIMCLRD" 160)
(setvar "DIMCLRE" 94)
(vl-cmdf "_.change" (ssget (quote ((0 . "DIMENSION")))) ""))
(princ)
)

Пишет в ком. строке
"Выберите объекты: Точка изменения или [Свойства]: T
Точка изменения или [Свойства]: Не выбрано ни одного изменяемого объекта"
Как указать, что надо изменить цвета в соответствии с DIMCLRT, DIMCLRD и DIMCLRE?

[name02]

Через командный метод не получится отдельно задать разные цвета текста, выносных и размерных линий размеров.
Вот так делает, то что тебе нужно:

Код:

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

 (defun C:DIMCOLCHANGE (/ int sel ent obj DimTextColor DimExtLines_color	DimLines_color)

  (vl-load-com)
  (setq	DimTextColor	  22 ;номер цвета текста
	DimExtLines_color 94 ;номер цвета выносных линий
	DimLines_color	  160 ;номер цвета размерных линий
  ) ;_ end of setq

;;; Нужно ли это тебе не знаю - раскомментируй, если нужно
;;;  (setvar "DIMCLRT" DimTextColor)
;;;  (setvar "DIMCLRD" DimExtLines_color)
;;;  (setvar "DIMCLRE" DimLines_color)

  (and (setq int -1
	     sel (ssget '((0 . "*DIMENSION")))
       ) ;_ end of setq
       (while (setq int	(1+ int)
		    ent	(ssname sel int)
	      ) ;_ end of setq
	 (setq obj (vlax-ename->vla-object ent))

	 (vla-put-TextColor obj DimTextColor) ;номер цвета текста
	 (vla-put-ExtensionLineColor obj DimExtLines_color) ;номер цвета выносных линий
	 (vla-put-DimensionLineColor obj DimLines_color) ;номер цвета размерных линий
       ) ;_ end of while
  ) ;_ end of and
  (princ)
) ;_ end of defun

Нашел в третьей ссылке в гугле по запросу "autocad lisp change dim colors according to DIMCLRD" и подправил под твои нужды код из поста
Все-таки решения по программированию лучше искать в англоязычном поисковике

[Ingpro]

Сообщение от name02 Через командный метод не получится отдельно задать разные цвета текста, выносных и размерных линий размеров. Вот так делает, то что тебе нужно:

Спасибо. Да, так изменяет выбранные размеры, но потом если вызвать команду "Размер", проставляет размеры изменёнными цветами, а это как-бы не надо...
Если добавить после 26 строки в лисп #8

Код:

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

 (setvar "DIMCLRT" 0)
(setvar "DIMCLRD" 0)
(setvar "DIMCLRE" 0)

то происходит возврат к исходным свойствам...

[name02]

В приведенном мною коде цвета меняются у конкретно выбранных размеров. Системные переменные не меняются - строки 10-12 закомментированы.
Для чего тебе вообще понадобилось изменять DIMCLRT, DIMCLRD и DIMCLRE?

[Ingpro]

Сообщение от name02 В приведенном мною коде цвета меняются у конкретно выбранных размеров. Системные переменные не меняются - строки 10-12 закомментированы.

Это понятно, просто было интересно, возможно ли изменить свойства, только изменив Системные переменные.
Чаще всего нужно изменить цвет текста для выбранных размеров, изменение цвета линий добавлены для информации...