다중선택으로 잡아서 색상을 변경하는리습 변환부탁드려요

안녕하세요 제가 여러번 질문을 드려서 죄송한데,
이전에 쓰던 리습이 안되서 질문도 했었는데, 원래 오토캐드를 사용하지않고 지스타 캐드라고 정품인데, 라이센스 가격이 저가인 캐드를 사용합니다, 이번에 16버전으로 업데이트하면서 리습이 안되서 제가 혼자 연구도 해보고 하다가 아는 지인에게 물어보니, vla라는게 이번 버전에서 안먹힌다고 하더라구요….. 혹시 vla를 안쓰고 리습을 만드는 방법이 없을까요 ㅠㅠ 너무 필요한리습이라서 이렇게 글로 남겨봅니다.
 -리습에 대한 설명은 다중으로 잡고 텍스트에 D10을 포함 하면 색상이100 이런식으로바뀌는 리습니다.

(vl-load-com)
(defun c:CS( / ss str)
 (if (setq ss (ssget ‘((0 . “TEXT”))))
  (vlax-for ob (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
   (cond
      ((wcmatch (setq str (strcase (vlax-get ob ‘textstring))) “*D10*”)
    (vlax-put ob ‘color 100)
      )
      ((wcmatch str “*D13*”)
    (vlax-put ob ‘color 130)
      )
      ((wcmatch str “*D16*”)
    (vlax-put ob ‘color 160)
     )
      ((wcmatch str “*D19*”)
    (vlax-put ob ‘color 190)
     )
      ((wcmatch str “*D22*”)
    (vlax-put ob ‘color 220)
      )
      ((wcmatch str “*D25*”)
    (vlax-put ob ‘color 20)
      )
      ((wcmatch str “*D29*”)
    (vlax-put ob ‘color 181)
      )
      ((wcmatch str “*D25*”)
    (vlax-put ob ‘color 20)
      )
      ((wcmatch str “*D32*”)
    (vlax-put ob ‘color 136)
      )
     ((wcmatch str “*D35*”)
    (vlax-put ob ‘color 235)
      )
     ((wcmatch str “*D38*”)
    (vlax-put ob ‘color 138)
      )
   )
  )  
 )
 (princ)
)