[olga87]

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

Подскажите пожалуйста, как на lisp можно для выделенного блока изменить с проверкой: для каждого элемента внутри блока, если его цвет, тип линии и вес "По слою", то изменить на "По блоку"?
Блок может быть статическим или динамическим.

Есть такой код ниже, подскажите пожалуйста как можно его изменить для выполнения изменения с "По слою" на "По блоку" для выбранного блока:

Код:

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

 (defun C:changecol ( / c1 c2 ss n)
    (vl-load-com)
	(setq c1 (getint "\nКакой исходный цвет: ") c2 (getint "\nКакой новый цвет: "))
    (defun get-block-entity-list (ent / block_def block_cont res)
        (setq block_def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                                  (vla-get-effectivename ent)
                        )
        )
        (setq block_cont ((lambda (/ res)
                            (vlax-for sub block_def
                              (setq res (cons sub res))
                              )
                            (reverse res)
                            )
                          )
        )
        block_cont
    )
    (setq ss (ssget "_X" (list (cons 0 "INSERT")))
          n 0
    )
    (repeat (sslength ss)
        (mapcar (function (lambda (x) 
                                (cond
                                    ((= (vla-get-color x) c1)
                                        (vla-put-color x c2)
                                    )
                                    ((= (vla-get-objectname x) "AcDbBlockReference")
                                     (mapcar (function (lambda (y) (if (= (vla-get-color y) c1)(vla-put-color y c2)))) (get-block-entity-list x))
                                    )
                                )
                          )
                ) 
                (get-block-entity-list (vlax-ename->vla-object (ssname ss n)))
        )
        (setq n (1+ n))
    )
    (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
    (princ)
)

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

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

На форуме была тема "Нормализация блоков", советую там посмотреть.

[olga87]

Подскажите пожалуйста, почему кодом ниже меняется только цвет?

Код:

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

  (cond
    (
    (and (/= (vlax-get-property obj 'color) 1) (/= (vlax-get-property obj 'color) 5))
	  (progn
	    (vlax-put-property obj 'color acbyblock)
		(vlax-put-property obj 'linetype acbyblock)
		(vlax-put-property obj 'lineweight acbyblock)
	  )
    )
  )

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

(vlax-put-property obj 'linetype "ByBlock")
vlax-put-property obj 'lineweight acLnWtByBlock)


Пошаговая отладка иногда помогает, особенно с остановкой в случае ошибки. И не стоит сильно полагаться на ChatGPT. Работающих кодов на форуме полно.

[olga87]

Спасибо!