求1读取CAD中XYZ坐标到电子表格以及反向操作的LSP

偏爱云~小吴

求1读取CAD中XYZ坐标到电子表格以及反向读取CSV输序号标注到CAD的LSP
读取到CAD中是为了排序以检查坐标，
读取CSV是为了输入数据
请大神们帮忙

偏爱云~小吴

2. (defun c:tu()
   
3.   (setvar "cmdecho" 0)
   
4.   (COMMAND ".UNDO" "BE")
   
5.   (command "-units" "2" "3" "2" "3" "" "")
   
6.   (setq fp (open "d:/POINT.xls" "a") s (getvar "cmdecho") n (getint "TOTAL NO: "))
   
7.   (princ "NO" fp)(princ "\t" fp)
   
8.   (princ "X" fp)(princ "\t" fp)
   
9.   (princ "Y" fp)(princ "\n" fp)
   
10.   (repeat n
    
11.        (setq k (getstring "\NO（如：1）！")
    
12.              p (getpoint "SELECT POINT！")
    
13.              x (strcat "X=" (rtos (nth 0 p)))
    
14.              y (strcat "Y=" (rtos (nth 1 p))))
    
15.     (princ k fp)(princ "\t" fp)
    
16.     (princ x fp)(princ "\t" fp)
    
17.     (princ y fp)(princ "\n" fp))   
    
18.     (close fp)
    
19.   (setvar "cmdecho" s))
    
20.   (princ "\n提示：INPUT TU！")
    
21.   (princ)

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

偏爱云~小吴

与我想要的有一些区别

荒野孤行

请见此连接，可参照修改：http://bbs.mjtd.com/thread-113519-1-1.html