获得CAD坐标并输出到EXCEL的LIST

jinsx

现有如下LISP程序:

(defun c:tu()
  (setvar "cmdecho" 0)
  (COMMAND ".UNDO" "BE")
  (command "-units" "2" "3" "2" "3" "" "")
  (setq fp (open "d:/POINT.xls" "a") s (getvar "cmdecho") n (getint "TOTAL NO: "))
  (princ "NO" fp)(princ "\t" fp)
  (princ "X" fp)(princ "\t" fp)
  (princ "Y" fp)(princ "\n" fp)
  (repeat n
       (setq k (getstring "\NO（如：1）！")
             p (getpoint "SELECT POINT！")
             x (strcat "X=" (rtos (nth 0 p)))
             y (strcat "Y=" (rtos (nth 1 p))))
    (princ k fp)(princ "\t" fp)
    (princ x fp)(princ "\t" fp)
    (princ y fp)(princ "\n" fp))  
    (close fp)
  (setvar "cmdecho" s))
  (princ "\n提示：INPUT TU！")
  (princ)

想改成能输出X,Y,Z 坐标并自动生成序列号,试了几次没能成功,只能求教高手出手帮助一下了.我想需要这个功能的兄弟也很多大家集思广义一下,看还需要修改什么!网上的那个获得CAD坐标并输出到指定行的程序不太好用!

jinsx

高手们路过帮忙改一下,谢谢了!

jinsx

自己已经搞定,有需要的兄弟留言!

xiaoliang200

咋弄的，给我一个看看

liu_kunlun

居然有这种办法！！但我的试验不成功，不知何故？

stylsn

发个给我试试呀，多谢多谢 stylsn@live.COM

偏爱云~小吴

先顶一下。确实需要的人很多啊，大神们都睡觉了么