请高手看看这段用LISP往EXCEL里写数据的代码哪不对！？？

zlzxtfl

monkeycctv,把解决的说下——共享

zlzxtfl

我通过测试该代码，发现是在写入EXECL时出现错误，其他的代码ＣＡＤ实体都都读到值．把写入excel的五段关闭(即用；当作注释)，更换成XDCAD论坛的改用打开execl文件，写内容(print 内容　文件名)和---结束 时关闭文件
(close fp)；我在相关位置增加了如下几行代码，ＯＫ
附代码：(setq fname (getstring "\n输入保存的文件名name offile:"))
                              ; ; ;彔入存储实体属性信息的文件名，可包括盘符路径
      　　  (setq fp (open fname "w"))  
．．．．．．．．．．．．
　　　　　　(setq objh         (vla-get-handle ent)
           　　　　   obji   (rtos (vla-get-ObjectID ent))
             　　　 　objl         (vla-get-Layer ent)
             　　　　 objc   (rtos (vla-get-Color ent))
                      objtp  (vla-get-Linetype ent)
                )
　　　　　　　　　　　(princ objh  fp)(princ "\t" fp)
　　　　　　　　　　　(princ obji  fp)(princ "\t" fp)　
　　　　　　　　　　　(princ objl  fp)(princ "\t" fp)
　　　　　　　　　　　(princ objc  fp)(princ "\t" fp)         ; 同行用"\t"
　　　　　　　　　　　(princ objtp  fp)(princ "\n" fp)　　　　;注意，要用转行符"　\n"
．．．．．．
;---结束后关闭文件
(close fp)　

如有需要的，可交流．网上可参考，测量点写入EXECL，就明白我附上的代码意思．

LIULISHENG

我要学习这个