这个功能如何在cad中实现？

tianyuan

有这样一个程序，坐标全部输出到电子表格中，请问如何在cad中也能实现同样的功能并画上表格线呢？
程序如下：
(defun c:G( / ss i ents f filename str)
  (defun getnum(i)
    (if (< 10)
      (setq val (strcat "J0" (rtos i)))
      (setq val (strcat "J" (rtos i)))
    )
    val)
  
  (setq ss (ssget '((0 . "LWPOLYLINE"))))
  (setq filename (getfiled "打开存放数据的Excel电子表格文档" "e:\\wjh\\study\\autolisp\\zh\\" "XLS" 1))
  (setq f (open filename "w"))
  (setq i 0)
  (repeat (sslength ss)
    (setq ents (entget (ssname ss i)))
    (setq ents (mapcar 'cdr (vl-remove-if-not '(lambda(e) (= (car e) 10)) ents)))
    (setq i (1+ i))
  )
  (princ)
  (setq i 0)
  (repeat (length ents)
    (setq item (nth i ents))
    (if (> i 0)
      (setq str (strcat (getnum i)"\t"(rtos (distance item (nth (1- i) ents)) 2 2) "\t"(rtos (cadr item) 2 3)"\t"(rtos (car item) 2 3)"\t""钢钉"))
      (setq str (strcat (getnum i)"\t""\t"(rtos (cadr item) 2 3) "\t"(rtos (car item) 2 3)))
    )
            ;(princ "\n")
    (write-line str f)
      (close f)
  (princ)
)

byghbcx

能输出表格，就能画上表格

xiabin68

反过来就要的了，，，

tianyuan

不画表格线，在cad上又如何实现呢？