输出结果的问题!

梁旭武

小弟是做测量的，编了一个关于多边形每个端点生成坐标册的程序，现在想请教一下各位高手，大虾，能否让输出的结果自动自成表格呢？装入程序后快捷键是 test (defun c:test()
(command "_OSNAP" "non")
(setq ss(ssget'((100 . "AcDbPolyline"))))
(setq pu(getpoint"\n坐标册放在："))
(setq xu(car pu))
(setq x4(- xu 12))
(setq yu(cadr pu))
(setq x4yu(list x4 yu))
(setq pt(list xu yu))
(command "text" x4yu 4 0 "点号 X坐标 Y坐标")
(setq ss1(ssname ss 0))
(setq ent(entget ss1))
(setq i 0) (setq j 0)
(setq ken 10)
(repeat(length ent)
(setq yy (nth i ent))
(if (eq (car yy ) ken )
(progn
(setq j(+ 1 j))
(setq xy (cdr yy))
(setq jj(rtos j))
(setq jj(strcat "j" jj ))
(setq jj(substr jj 1 (- (strlen jj ) 5 )))
(command "text" xy 3 0 jj)
(setq xx(car pt))
(setq yy( - (cadr pt) 10))
(setq pt(list xx yy ))
(love xy pt jj )
)
)
(setq i(1+ i))
)
) (defun love( k pe r )
(setq x(car k))
(setq y(cadr k)) (setq x1(car pe))
(setq y1(cadr pe))
(setq x1(+ 30 x1))
(setq pe1(list x1 y1)) (setq xj( - (car pe) 10))
(setq pe2(list xj y1))

(command "text" pe2 3 0 r)
(command "text" pe 3 0 (rtos x))
(command "text" pe1 3 0 (rtos y))
)

秋枫

输出到文件，用逗号分隔，每条一行，文件扩展名用csv，可以直接用电子表格程序Microsoft Excel 打开。

wmz

我的办法是,用VBA做界面,调用这段LISP函数(在LISP函数里将结果数据写成文本文件),再调用Excel制表(直接引用Excel对象).

梁旭武

多谢两位大侠，好的，不过我不是很熟悉LISP程序与Excel连接，回家多看一点书才得。