안녕하세요.
현재 사용중인 덧셈 뺄셈 리습입니다.
이 리습을 이용하여 곱셈 나눗셈으로 변경하고 싶은데 도저히 감이 안와서 도움을 받고자 올려봅니다.
(Defun C:23 (/ QQ COUNT SEA A B C ANS)
(Setq COUNT 0)
(Setq SEA (Ssget))
(SETQ QQ (GETREAL “nINPUT * OR / :”))
(If SEA
(Repeat (Sslength SEA)
(If (/= “TEXT” (Cdr (Assoc 0 (Setq SEL (Entget (Setq SEN (Ssname SEA COUNT)))))))
(Setq COUNT (1+ count))
(Progn
(setq a (assoc 1 sel)
C (+ (ATOF (CDR A)) QQ)
)
(IF (= C (FLOAT (FIX C)))
(SETQ C (ITOA (FIX C)))
(SETQ C (RTOS C 2 1))
)
(SETQ b (cons 1 C)
ans (subst b a sel)
count (1+ count)
)
(entmod ans)
)
)
)
)
(princ)
)
오홋~ 이미 올라와 있군요~ 감사합니다~
혹시 MTEXT에도 적용이 가능할까요?