이것은 선택한 숫자를 일괄적으로 2배하여 자동기입되는것입니다,,,,
2배,,,3배,,,~~~~????
배수를 기입할수 있게 해서 생성할수 있도록 부탁합다,,,ㅠㅠㅠ

(defun c:t2 (/ e n i s1 s2 num1 num2 ex1 ex2 old new chg )
(prompt “nSelect Text: “)
(setq e (ssget ‘((-4 . ““))))
(IF E
(PROGN
(SETQ n (sslength e))
(setq i 0)
(repeat n
(setq s1 (ssname e i)
s2 (entget s1)
num1 (cdr (assoc 1 s2))
num2 (atof num1)
ex1 (* num2 2) ;;;;;두번째 숫자가 곱
ex2 (rtos ex1 2 3)
old (assoc 1 s2)
new (cons 1 ex2)
chg (subst new old s2)
) ;_ end of setq
(entmod chg)
(setq i (1+ i))
(princ)
) ;_ end of repeat
) ;_ end of PROGN
) ;_ end of IF
) ;_ end of defun

외부에 있는 table.txt 화일에서 값을 가져오게 하는 리습인데
table.txt 요 화일에 어떠게 해야 값이 들어오는지 모르겠네요
아시는 분 답변 부탁 드립니다

(defun ca_fun()

(setq ooo (open “c:\table.txt” “r”)
ttt 1
)
(while ttt
(setq txt1 (read-line ooo))
(if (= txt1 bn_t)
(setq remark (read-line ooo)
ttt nil
)
)
)

(if (= num_n 1)
(setq remark remark)
(setq remark (strcat (rtos num_n 2 0) “-” remark))
)

(close ooo)

); defun