cad 리습 수정(더하기—>곱하기)

안녕하세요~

아래 더하기 리습은 현재 제가 쓰고 있는 리습입니다…

요즘 cad 작업할때 곱하기도 자주 사용하게 되여 이렇게 글을 올립니다..

아래와 같은 스타일로 곱하기 리습 가능한지 알아볼려고 글을 올립니다…

부탁드립니다 ^^;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (덧셈);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xx (/ #a #b #index #c #d)
(vl-load-com)
(setq #a “”);;여기가 제외되는문자
(prompt “n≫≫≫덧셈할문자들을 선택:”)
(if (setq #b(ssget ‘((0 . “text”))))
(progn
(setq #index 0)
(repeat (sslength #b)
(setq #c(cons(atof(vl-string-subst “” #a(vla-get-textstring(vlax-ename->vla-object(ssname #b #index)))))#c))
(setq #index(1+ #index))
);;repeat
(setq #d(apply ‘+ #c))
(if(zerop(rem #d(fix #d)))
(setq #d(itoa(fix #d)))
(setq #d(rtos #d))
);;if
(vla-put-textstring(vlax-ename->vla-object(car(entsel “n≫≫≫ 교체될문자선택:”)))(strcat #a #d))
);;progn
);;if
);;defun