블럭 색상 일괄변경 Lisp이 오류나요
컨텐츠 정보
- 302 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
블럭 색상 한번에 변경하는 lisp인데 갑자기 이러한 에러 메시지가 뜨는데
코딩 에러인지 한번 봐주세요
Error: no function definition: VLAX-GET-ACAD-OBJECT <<이렇게 에러 메시지가 뜹니다.
Lisp 코딩은 이러합니다.
(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)
)