728x90 캐드리습31 블럭 이름 변경 리습 (이름 앞,뒤 첨자 추가) 리습 설명 (defun c:renbl ( / key txt op oDocument ) (prompt "\n블럭이름 일괄변경하기 ...") (initget "Front Back") (setq key (getkword "\n앞에넣기(F)/뒤에넣기: ")) (if (= key nil) (setq key "Back")) (cond ((= key "Front") (setq op "앞에")) ((= key "Back") (setq op "뒤에")) ) (setq txt (getstring (strcat "\n" op " 추가할 이름 입력: "))) (setq oDocument (vla-get-activedocument (vlax-get-acad-object))) (vlax-for oBlock (vla-get-blocks oD.. 2023. 2. 14. 이전 1 2 다음 728x90