[olga87]

Здравствуйте Уважаемые программисты!

Есть блок с 2-мя атрибутами. Если изменить с помощью "Редактора атрибутов блока" (по 2му клику по блоку) значение 1го атрибута, например, на 1, то значение 2го атрибута станет автоматически равным 2 (т.е. на 1 больше). Выполняется это кодом ниже.

Подскажите пожалуйста, как изменить код для, например, 10-ти атрибутов в блоке. Т.е. меняем значение только 1го атрибута, остальные атрибуты должны автоматически стать по значению на 1 больше последовательно, т.е. 1,2,3,4...10.

Заранее Спасибо!

Код:

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

(vl-load-com)

(defun c:BlockAttEdit_UnLoad ()
  (if *editor_reactor*
    (vlr-remove *editor_reactor*))
  (princ)
)

(defun BlockAttEdit_OnLoad ()

  (if *editor_reactor*
    (vlr-remove *editor_reactor*))

  (setq obj (vlax-ename->vla-object (car (entsel "\nВыберите блок: "))))
  (if (not editor_reactor)
    (setq editor_reactor (vlr-editor-reactor
	"editor"
	'((:vlr-commandended . commandended)))))
    (setq obj_reactor (vlr-object-reactor
	(list obj)
	"obj"
	'((:vlr-subobjmodified . subobjmodified))))

  (princ "\n *** Блок выбран ***")
  (princ)
)

(defun commandended (reactor params / atts att1 att2)
  (if modified_list
    (foreach blk  modified_list
      (setq atts
        (reverse (vlax-safearray->list
     (vlax-variant-value (vla-getattributes blk))))
     att1      (car atts)
     att2      (cadr atts)
	 )
	 (vla-put-textstring att1 (+ 1 (atoi (vla-get-textstring att2))))
    )
  )
  (setq modified_list nil)
)

(defun subobjmodified (owner reactor params)
  (if (and (not (wcmatch (getvar "cmdnames") "UNDO,U,REDO,OOPS"))
    (not (vl-position owner modified_list)))
    (setq modified_list (cons owner modified_list)))
)

(BlockAttEdit_OnLoad)