||||(defun ttxt(/)
    (setq sa (entget (ssname (ssget) 0)))
    (setq otxt (assoc 1 sa))
    (cdr otxt)
    )
(DEFUN C:TXT(/)
  (setq err_org *error* *error* si_err)
  (graphscr)
;  (setq tup (getstring "\n Number of digits to right of decimal point<0~8>:"))
;  (setq tun (atoi tup))
;  (setvar "luprec" tun)
  (setvar "luprec" 1)
  (setq txtype (getstring "\연산방법을 선택하시요<+,x>:"))
(while
  (setq set (ssget))
  (setq count 0)
  (setq ttx (ttxt))
  (setq txtx (strlen ttx))
  (cond
    ((= "+" txtype) (setq count1 '(+ 1)) (setq ttr 1.0))
    ((= "x" txtype) (setq count1 '(* 1)) (setq ttr 0.0))
    ((= "X" txtype) (setq count1 '(* 1)) (setq ttr 0.0))
  )
  (while
    (setq nme (ssname set count))
    (setq otx (cdr (assoc 1 (entget nme))))
    (setq tx (atof otx))
    (setq count1 (append  count1 (list tx)))
    (setq count (+ 1 count))
    (setq txt (rtos (- (eval count1) ttr)))
    (setq ntxt (cons 1 txt))
    (entmod (subst ntxt otxt sa))
  )
)
  (setvar "luprec" 3)
  (setq *error* err_org)
  (princ)
)


@ LISP자료실에 가져온건데요...
연산을 옵션으로 선택하지말고...
더하기 LISP
곱하기 LISP
각각 명령어로 지정해서 쓰고 싶거든요...
무지해서 염치불구하고 부탁드립니다...
두개로 좀 나누어 쓸수있게 해주세요...


이 게시물을...