블럭 색상 일괄로 변경해주는 리습인데 봐주세요

저는 초보구요… 고캐드 옛날 자료 검색하다가 줏은것이라서 잘알지 못합니다

블럭생상 일괄변경하는 기능이 꼭필요해서 자문을 구합니다

명령어가 CXX 인것같은데 실행이 안되는 상황이구요

원 글에서는 Error: no function definition: VLAX-GET-ACAD-OBJECT 에러나 난다고하여
댓글 답변에 앞이나 끝부분에 (vl-load-com) 추가하여 실행된다고 하여 저도 앞부분에 추가했습니다.

도움부탁드립니다~



(vl-load-com)
(defun c:cxx ( / oDocument change:colorinblock Sset objList ci)
  (setq oDocument (vla-get-activedocument (vlax-get-acad-object)))
  (defun change:colorinblock ( BlockName Color oDocument )
    (vlax-for obj (vla-item (vla-get-blocks oDocument) BlockName)
      (vla-put-color obj Color)
      (if (eq (vla-get-objectname obj) "AcDbBlockReference")
        (progn
          (foreach Att (vlax-invoke obj 'getattributes) (vla-put-color Att Color))
          (change:colorinblock (vla-get-name obj) Color oDocument)
        )
      )
    )
  )
  (vla-startundomark oDocument)

  (and
    (setq ci (getint "n바꿀 색상을 입력하세요 … : "))
    (princ (strcat "n선택한 객체의 색상을" (itoa ci) " 번으로 변경합니다 …"))
    (setq Sset (ssget))
    (setq objList (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex Sset)))))
    (foreach obj objList
      (vla-put-color obj ci)
      (if (eq (vla-get-objectname obj) "AcDbBlockReference")
        (progn
          (foreach Att (vlax-invoke obj 'getattributes) (vla-put-color Att ci))
          (change:colorinblock (vla-get-name obj) ci oDocument)
        )
      )
      (if (eq (cdr (assoc 0 (entget (vlax-vla-object->ename obj)))) "DIMENSION")
        (progn
          (vl-catch-all-apply 'vla-put-textcolor (list obj ci))
          (vl-catch-all-apply 'vla-put-dimensionlinecolor (list obj ci))
          (vl-catch-all-apply 'vla-put-extensionlinecolor (list obj ci))
        )
      )
    )
  )
  (vla-endundomark oDocument)
  (princ)
)