帮我看看程序怎么运行不起

duhan6401

我有一个这样的列表(("永管ZK248" "40" 219734.0 3.38701e+06 98710) ("永管ZK247" "40" 220133.0 3.38698e+06 98310) ("永管ZK245" "45" 220578.0 3.38693e+06 97862) ("永管ZK243" "45" 221556.0 3.
38673e+06 96841) ("永管ZK242" "40" 222451.0 3.38648e+06 95868) ("永管ZK241" "40" 223362.0 3.386e+06 94772) ("永管ZK240" "35" 224378.0 3.38625e+06 93685) )，想弄到电子表格里头是这样子的，
自己写的插件是下面这样的。可以一步一步运行，是不能整个程序一次性运行，不知道哪里的问题。求助

• (defun c:wtt (/ aa pttxt yujikongshen1 konghao1 ptx pty ss1 dist1)
•   (setq ss1 (reverse ss1))
•   (setq K (length ss1))
•   (setq i 0)
•   (setq  aa (open "d://钻孔坐标.xls" "w"));建立文本;W会把文本里面的内容清除
•   (princ "孔号" aa);用princ写入孔号
•   (princ "\t" aa)
•   (princ "预计孔深" aa);用princ写入孔深
•   (princ "\t" aa)
•   (princ "X坐标" aa);用princ写入X坐标
•   (princ "\t" aa)
•   (princ "Y坐标" aa);用princ写入Y坐标
•   (princ "\t" aa)
•   (princ "桩号" aa);用princ写入桩号
•   (princ "\n" aa);这个格式就换行
•   (repeat K
•     (setq pttxt (nth i ss1);;取得坐标文字
•       konghao1 (car pttxt);;取得孔号
•       yujikongshen1 (cadr pttxt)
•       ptx (caddr pttxt);;取得X坐标
•       pty (cadddr pttxt);;取得y坐标
•       dist1 (nth 4 pttxt)
•     )
•     (princ konghao1 aa);用princ写入孔号
•     (princ "\t" aa)
•     (princ yujikongshen1 aa);用princ写入孔深
•     (princ "\t" aa)
•     (princ ptx aa);用princ写入X坐标
•     (princ "\t" aa)
•     (princ pty aa);用princ写入Y坐标
•     (princ "\t" aa)
•     (princ dist1 aa);用princ写入桩号
•     (princ "\n" aa);这个格式就换行
•     (setq i (+ i 1))
•   )
•   (close aa);;关闭文本（结束后必须关闭）
• )
  

guosheyang

http://bbs.mjtd.com/thread-187020-1-1.html
这里有做好的代码

liuhe

建议前期新手学习csv文件，excel文件有点麻烦，需要专门的函数、csv文件  也可以用excel打开

2. (defun c:wtt (/ aa pttxt yujikongshen1 konghao1 ptx pty ss1 dist1)
   
3.   (SETQ        SS1 '(("永管ZK248" "40" 219734.0 3.38701e+06 98710)
   
4.               ("永管ZK247" "40" 220133.0 3.38698e+06 98310)
   
5.               ("永管ZK245" "45" 220578.0 3.38693e+06 97862)
   
6.               ("永管ZK243" "45" 221556.0 3.38673e+06 96841)
   
7.               ("永管ZK242" "40" 222451.0 3.38648e+06 95868)
   
8.               ("永管ZK241" "40" 223362.0 3.386e+06 94772)
   
9.               ("永管ZK240" "35" 224378.0 3.38625e+06 93685)
   
10.              )
    
11.   )
    
12.   (setq ss1 (reverse ss1))
    
13.   (setq K (length ss1))
    
14.   (setq        i    0
    
15.         LST1 (LIST "孔号" "预计孔深" "X坐标" "Y坐标" "桩号")
    
16.   )
    
17.   (setq aa (open "d:\\钻孔坐标.CSV" "w"));;;注意  \\  //和区别，最好前期玩csv文件
    
18.   ;;;注意  \\  //和区别，最好前期玩csv文件，这个简单，excel 前期学习台麻烦
    
19.                                         ;建立文本;W会把文本里面的内容清除
    
20. ;;;  (princ "孔号" aa);用princ写入孔号
    
21. ;;;  (princ "\t" aa)
    
22. ;;;  (princ "预计孔深" aa);用princ写入孔深
    
23. ;;;  (princ "\t" aa)
    
24. ;;;  (princ "X坐标" aa);用princ写入X坐标
    
25. ;;;  (princ "\t" aa)
    
26. ;;;  (princ "Y坐标" aa);用princ写入Y坐标
    
27. ;;;  (princ "\t" aa)
    
28. ;;;  (princ "桩号" aa);用princ写入桩号
    
29. ;;;  (princ "\n" aa);这个格式就换行
    
30.   (write-line
    
31.     (vl-string-right-trim
    
32.       ","
    
33.       (APPLY 'STRCAT
    
34.              (MAPCAR (FUNCTION (LAMBDA (X) (STRCAT X ","))) LST1)
    
35.       )
    
36.     )
    
37.     AA
    
38.   )
    
39.   (repeat K
    
40.     (setq pttxt        (nth i ss1)
    
41.                 ;;取得坐标文字
    
42. ;;;      konghao1 (car pttxt);;取得孔号
    
43. ;;;      yujikongshen1 (cadr pttxt)
    
44. ;;;      ptx (caddr pttxt);;取得X坐标
    
45. ;;;      pty (cadddr pttxt);;取得y坐标
    
46. ;;;      dist1 (nth 4 pttxt)
    
47.     )
    
48.     (write-line
    
49.       (vl-string-right-trim
    
50.         ","
    
51.         (APPLY 'STRCAT
    
52.                (MAPCAR (FUNCTION (LAMBDA (X)(STRCAT (vl-princ-to-string X) ",")))
    
53.                                  pttxt
    
54.                        )
    
55.                )
    
56.         )
    
57.       AA
    
58.       )
    
59.    
    
60. ;;;    (princ konghao1 aa);用princ写入孔号
    
61. ;;;    (princ "\t" aa)
    
62. ;;;    (princ yujikongshen1 aa);用princ写入孔深
    
63. ;;;    (princ "\t" aa)
    
64. ;;;    (princ ptx aa);用princ写入X坐标
    
65. ;;;    (princ "\t" aa)
    
66. ;;;    (princ pty aa);用princ写入Y坐标
    
67. ;;;    (princ "\t" aa)
    
68. ;;;    (princ dist1 aa);用princ写入桩号
    
69. ;;;    (princ "\n" aa);这个格式就换行
    
70.     (setq i (+ i 1))
    
71.   )
    
72.   (close aa)
    
73.   ;;关闭文本（结束后必须关闭）
    
74. )
    

(defun c:wtt (/ aa pttxt yujikongshen1 konghao1 ptx pty ss1 dist1)<br />   (SETQ        SS1 '(("永管ZK248" "40" 219734.0 3.38701e+06 98710)<br />               ("永管ZK247" "40" 220133.0 3.38698e+06 98310)<br />               ("永管ZK245" "45" 220578.0 3.38693e+06 97862)<br />               ("永管ZK243" "45" 221556.0 3.38673e+06 96841)<br />               ("永管ZK242" "40" 222451.0 3.38648e+06 95868)<br />               ("永管ZK241" "40" 223362.0 3.386e+06 94772)<br />               ("永管ZK240" "35" 224378.0 3.38625e+06 93685)<br />              )<br />   )<br />   (setq ss1 (reverse ss1))<br />   (setq K (length ss1))<br />   (setq        i    0<br />         LST1 (LIST "孔号" "预计孔深" "X坐标" "Y坐标" "桩号")<br />   )<br />   (setq aa (open "d:\\钻孔坐标.CSV" "w"));;;注意  \\  //和区别，最好前期玩csv文件<br />   ;;;注意  \\  //和区别，最好前期玩csv文件，这个简单，excel 前期学习台麻烦<br />                                         ;建立文本;W会把文本里面的内容清除<br /> ;;;  (princ "孔号" aa);用princ写入孔号<br /> ;;;  (princ "\t" aa)<br /> ;;;  (princ "预计孔深" aa);用princ写入孔深<br /> ;;;  (princ "\t" aa)<br /> ;;;  (princ "X坐标" aa);用princ写入X坐标<br /> ;;;  (princ "\t" aa)<br /> ;;;  (princ "Y坐标" aa);用princ写入Y坐标<br /> ;;;  (princ "\t" aa)<br /> ;;;  (princ "桩号" aa);用princ写入桩号<br /> ;;;  (princ "\n" aa);这个格式就换行<br />   (write-line<br />     (vl-string-right-trim<br />       ","<br />       (APPLY 'STRCAT<br />              (MAPCAR (FUNCTION (LAMBDA (X) (STRCAT X ","))) LST1)<br />       )<br />     )<br />     AA<br />   )<br />   (repeat K<br />     (setq pttxt        (nth i ss1)<br />                 ;;取得坐标文字<br /> ;;;      konghao1 (car pttxt);;取得孔号<br /> ;;;      yujikongshen1 (cadr pttxt)<br /> ;;;      ptx (caddr pttxt);;取得X坐标<br /> ;;;      pty (cadddr pttxt);;取得y坐标<br /> ;;;      dist1 (nth 4 pttxt)<br />     )<br />     (write-line<br />       (vl-string-right-trim<br />         ","<br />         (APPLY 'STRCAT<br />                (MAPCAR (FUNCTION (LAMBDA (X)(STRCAT (vl-princ-to-string X) ",")))<br />                                  pttxt<br />                        )<br />                )<br />         )<br />       AA<br />       )<br />     <br /> ;;;    (princ konghao1 aa);用princ写入孔号<br /> ;;;    (princ "\t" aa)<br /> ;;;    (princ yujikongshen1 aa);用princ写入孔深<br /> ;;;    (princ "\t" aa)<br /> ;;;    (princ ptx aa);用princ写入X坐标<br /> ;;;    (princ "\t" aa)<br /> ;;;    (princ pty aa);用princ写入Y坐标<br /> ;;;    (princ "\t" aa)<br /> ;;;    (princ dist1 aa);用princ写入桩号<br /> ;;;    (princ "\n" aa);这个格式就换行<br />     (setq i (+ i 1))<br />   )<br />   (close aa)<br />   ;;关闭文本（结束后必须关闭）<br /> )<br />

duhan6401

liuhe 发表于 2023-11-30 13:33
建议前期新手学习csv文件，excel文件有点麻烦，需要专门的函数、csv文件  也可以用excel打开

谢谢，我终于找到问题了，ss1数据是前面一个程序得来的，这个程序调用时候不能在后面重新定义，导致K就一直是0，就不能循环。我还得研究下你程序里头的那一堆mapcar

liuhe

duhan6401 发表于 2023-12-1 10:50
谢谢，我终于找到问题了，ss1数据是前面一个程序得来的，这个程序调用时候不能在后面重新定义，导致K就一 ...

CSV文件是都号文件格式，每一行都是文字内容，用“，”隔开。那个作用是把第一行的内容，组成一个逗号隔开的字符串，直接用write-line   写一行。

duhan6401

liuhe 发表于 2023-12-1 11:18
CSV文件是都号文件格式，每一行都是文字内容，用“，”隔开。那个作用是把第一行的内容，组成一个逗号隔 ...

(or pmtbl (setq pmtbl 2000))
(or yxws(setq yxws 1))
(defun c:wzbsc (/ aa pttxt yujikongshen1 konghao1 ptx pty  dist1 K)
            (setq K (length ss1))
        (setq ss1 (reverse ss1))
        (setq i 0)
                        (setq LST1 '( "孔号" "预计孔深" "X坐标" "Y坐标" "桩号"))
                        (setq aa (open "d:\\钻孔坐标.CSV" "w"));;;注意\\和//区别，W会把文本里面的内容清除
                (write-line (vl-string-right-trim "," (APPLY 'STRCAT (MAPCAR (FUNCTION (LAMBDA (X) (STRCAT X ","))) LST1))) AA);;;每个元素后加逗号
        (repeat K
                                  (setq pttxt (nth i ss1) )
                                  (write-line (vl-string-right-trim "," (APPLY 'STRCAT (MAPCAR (FUNCTION (LAMBDA (X) (STRCAT (vl-princ-to-string X) ","))) pttxt ))) AA )
                                (setq i (+ i 1))
                        )
        (close aa)        ;;关闭文本（结束后必须关闭）
)
这段代码编译时候总是出错，; 错误: 参数值错误: 非负: -1，不知道是哪个东西的原因。