[Konstruktiv54]

Добрый день, уважаемые форумчане! )
Недавно наткнулся на программку dimcheck.lsp господина Протасова Г.Н.
При ёё запуске меняется цвет у откорректированных вручную размеров.
Нельзя ли изменить её так, что бы размер подкрашивался автоматически, после его корректировки?

[TararykovDG]

Или с использованием ректоров

Код:

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

(defun objectModified(reac data / ) ; примитив изменен
  (if (= (strcase (cdr (assoc 0 (entget (cadr data))))) "DIMENSION")
    (setq last_change_dimension_obj (cadr data))
    )
)

(defun commandEnded(reac data / ed) ; конец какой-то комады ACad
  (if (and (member (car data) (list "DDEDIT" "_DDEDIT"))
           last_change_dimension_obj
           )
    (progn
      (setq ed (entget last_change_dimension_obj))
      (if (/= (cdr (assoc 1 ed)) "")
        (progn
          (setq ed (if (assoc 62 ed)
                     (subst (cons 62 1) (assoc 62 ed) ed) ; здесь вместо 1 (красный) можно задать другой цвет
                     (append ed (list (cons 62 1))) ; здесь вместо 1 (красный) можно задать другой цвет
                     )
                )
          (entmod ed)
          (entupd last_change_dimension_obj)
          )
        )
      (setq last_change_dimension_obj nil)
      )
    )
)


; -------------------------------------------------------------------
(setq AcDb_Reac (vlr-acdb-reactor "Реактор базы: "
		  (list '(:VLR-objectModified . objectModified)
			)
		  )
      )
; -------------------------------------------------------------------

; -------------------------------------------------------------------
(setq Cmnd_Reac (vlr-command-reactor "Реактор команд: "
		  (list '(:VLR-commandEnded . commandEnded)
			)
		  )
      )
; -------------------------------------------------------------------

Этот код нужно сохранить в какай-нибудь lisp файл и добавить этот файл в автозагрузку ACad'а

[Лиспер]

TararykovDG, попробуй пары тэгов [code][lisp][/lisp][/code]:

Код:

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

 (defun objectModified(reac data / ) ; примитив изменен
  (if (= (strcase (cdr (assoc 0 (entget (cadr data))))) "DIMENSION")
    (setq last_change_dimension_obj (cadr data))
    )
)

(defun commandEnded(reac data / ed) ; конец какой-то комады ACad
  (if (and (member (car data) (list "DDEDIT" "_DDEDIT"))
           last_change_dimension_obj
           )
    (progn
      (setq ed (entget last_change_dimension_obj))
      (if (/= (cdr (assoc 1 ed)) "")
        (progn
          (setq ed (if (assoc 62 ed)
                     (subst (cons 62 1) (assoc 62 ed) ed) ; здесь вместо 1 (красный) можно задать другой цвет
                     (append ed (list (cons 62 1))) ; здесь вместо 1 (красный) можно задать другой цвет
                     )
                )
          (entmod ed)
          (entupd last_change_dimension_obj)
          )
        )
      (setq last_change_dimension_obj nil)
      )
    )
)


; -------------------------------------------------------------------
(setq AcDb_Reac (vlr-acdb-reactor "Реактор базы: "
		  (list '(:VLR-objectModified . objectModified)
			)
		  )
      )
; -------------------------------------------------------------------

; -------------------------------------------------------------------
(setq Cmnd_Reac (vlr-command-reactor "Реактор команд: "
		  (list '(:VLR-commandEnded . commandEnded)
			)
		  )
      )
; -------------------------------------------------------------------

[TararykovDG]

Сообщение от Лиспер TararykovDG, попробуй пары тэгов [code][lisp][/lisp][/code]:

Лиспер, спасибо! Я не знал, что такой фунционал добавили. В справке по применению кодов и формул об это ничего нет. Или я не нашел?

[Лиспер]

Offtop: TararykovDG, если идти в нормальнй редактор (который с кнопочками), там есть дополнительная кнопка - как раз на форматирование lisp-кодов. В таком случае появляется дополнительная панель, позволяющая сразу и распечатать код, и посмотреть его, и скопировать в буфер. Чрезвычайно удобно. Еще раз спасибо Admin'у

[Konstruktiv54]

Во ) почти то, что доктор прописал )
А можно как нибудь его заставить реагировать на _spdedit?
(у меня СПДС стоит)
а то _ddedit пользоваться не совсем удобно...

upd: скрипт выдает ошибку, обычно при сохранении...
; ошибка: В функции *error* возникла ошибка:invalid AutoCAD command: nil
; ошибка: В функции *error* возникла ошибка:invalid AutoCAD command: nil
; ошибка: В функции *error* возникла ошибка:invalid AutoCAD command: nil
; ошибка: В функции *error* возникла ошибка:invalid AutoCAD command: nil