(defun c:ff()
    (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
    (setq acSpc (vlax-get acDoc (if (= 1 (getvar 'CVPORT)) 'paperspace 'modelspace)))
 
 (setq wr1 '("10 + 10 + 15")
       wr2 '("10 + 10 + 10 + 30 + 40")
       wr3 '("10 + 10 + 10 + 30")
       wr4 '("10 + 10 + 10 + 30")
       wr5 '("10 + 10 + 10 + 30 + 40 + 50")
       wr6 '("10 + 10 + 10 + 30 + 40 + 50 + 60")
       wr7 '("10 + 10 + 10 + 30")
       wr8 '("10 + 10 + 10 + 30")
 )
 (setq Lst (list wr1 wr2 wr3 wr4 wr5 wr6 wr7 wr8))
 (setq hei (+(getvar 'TEXTSIZE)(getvar 'LTSCALE))) ;라인스케일 더하기 현재 문자크기 

 (setq wid(* 0.8 hei (apply 'max(mapcar 'strlen(mapcar 'car Lst))))); 문자 리스트중 가장긴 값 
 
 (setq pt(getpoint "\nSpecify point for Table:"))
 
 (setq myTable (vla-addtable acSpc (vlax-3d-point (trans pt 1 0)) 9 2 hei wid))
  (vla-settext myTable 0 0 "전선 수량 산출")
 (setq n 1)
 (foreach x Lst
  (vla-settext myTable n 0 (rtos n))
  (vla-settext myTable n 1 (car x))
  (setq n (1+ n))
 )
 (princ)
)