[olga87]

Здравствуйте Уважаемые специалисты AutoCAD!

Есть код (ниже), который выполняет вставку блока из файла dwg. Но мне необходимо сразу после его вставки (как только пользователь указал точку вставки блока) выполнить определенную процедуру - изменить цвет элементов внутри вставленного блока.

Проблема в том, что эта процедура замены цвета ((vlax-for blk (vla-get-activeselectionset c_doc)) работает, если выбрать блок.
Подскажите пожалуйста, как изменить код, чтобы после вставки блока он сразу обрабатывался процедурой замены цвета?

Код:

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

(setq bname ....".dwg"))


(if (findfile bname)
  (progn

(command "ВСТАВБЛОК" bname "_r" 0 "_s" 1 pause)

(setq c_doc (vla-get-activedocument (vlax-get-acad-object))
			 c_blks (vla-get-blocks c_doc)
)

(cond ( (/= (getvar 'cmdecho) 0) (setq cme (getvar 'cmdecho)) (setvar 'cmdecho 0)))

(if (and c_doc (= 8 (logand 8 (getvar 'UNDOCTL)))) (vla-endundomark c_doc))
(vla-startundomark c_doc)

; (setq ss (ssget ":L" '((0 . "INSERT"))))

(setq b_name (entlast))
???



(vlax-for blk (vla-get-activeselectionset c_doc)
  (setq b_name (vlax-get-property blk (if (vlax-property-available-p blk 'effectivename) 'effectivename 'name)))

  (cond ( (not (vl-position b_name b_lst))
            (vlax-for obj (vla-item c_blks b_name)

  (cond
    (
    (and (/= (vlax-get-property obj 'color) 1) (/= (vlax-get-property obj 'color) 5))
	    (vlax-put-property obj 'color acbyblock)
    )
  )
            )
            (setq b_lst (cons b_name b_lst))
        )
  )
  (vla-update blk)
)

(vla-regen c_doc acAllViewports)
(if (and c_doc (= 8 (logand 8 (getvar 'UNDOCTL)))) (vla-endundomark c_doc))
(if cme (setvar 'cmdecho cme))
(princ)

  ) ;progn

  (princ "\n ошибка "))

(princ)

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

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

olga87, ты упорно путаешь вхождение блока и его описание. И не менее упорно отказываешься посмотреть чужие коды
https://forum.dwg.ru/showthread.php?t=21492 , вся тема.

[olga87]

Дело в том, что у меня общий код - вставить блок и сразу изменить его.

Если отдельно выбрать блок - то можно изменить, но мне нужна последовательность: вставить, изменить. Как это сделать? (без запроса - выберите блок)
*пользователь нажимает кнопку - вставка блока - после вставки без запросов к пользователю элементы вставленного блока меняются.

[===AAA===]

А (entlast) чем не устраивает-то?

Принимать по одной таблетке
сразу же после вставки блока.

Это и будет

(без запроса - выберите блок)