程序bug求教

zhaoxt

求教一下诸位大侠。我为了工作方便编写了个cad里分类统计的程序，框选后根据标注的地类自动统计归类并写入EXCEL表格。程序大部分达到了目的，但结果还是有点不尽如人意，写入excel时候莫名其妙的会有几个数据不写入，如截图里表格里的空白。但通过查看分类列表。这个数据是在的，并不是没有归类到列表里，求教下各位大侠，知道的帮我分析分析看是什么原因。cad图形仅测试用，删掉了无关的地形。

xyp1964

飞雪神光

1. (setq col 1)
   
2.         (foreach n hd-lst (vlax-put-property xcells 'item  (setq col(1+ col))  1 n))
   
3.         (setq col 1)
   
4.         (foreach n st-lst (vlax-put-property xcells 'item   (setq col(1+ col))  2 n))
   
5.         (setq col 1)
   
6.         (foreach n gy-lst (vlax-put-property xcells 'item   (setq col(1+ col))  3 n))
   
7.         (setq col 1)
   
8.         (foreach n ncdl-lst (vlax-put-property xcells 'item (setq col(1+ col))   4 n))
   
9.         (setq col 1)
   
10.         (foreach n qtld-lst (vlax-put-property xcells 'item (setq col(1+ col))   5 n))
    
11.         (setq col 1)
    
12.         (foreach n gq-lst (vlax-put-property xcells 'item   (setq col(1+ col))   6 n))
    
13.         (setq col 1)
    
14.         (foreach n ktsm-lst (vlax-put-property xcells 'item (setq col(1+ col))   7 n))
    
15.         (setq col 1)
    
16.         (foreach n hlsm-lst (vlax-put-property xcells 'item (setq col(1+ col))   8 n))
    
17.         (setq col 1)
    
18.         (foreach n nczjd-lst (vlax-put-property xcells 'item(setq col(1+ col))   9 n))
    
19.         (setq col 1)
    
20.         (foreach n glyd-lst (vlax-put-property xcells 'item (setq col(1+ col))   10 n))
    
21.         (setq col 1)
    
22.         (foreach n gyyd-lst (vlax-put-property xcells 'item (setq col(1+ col))   11 n))

(setq col 1)<br />         (foreach n hd-lst (vlax-put-property xcells 'item  (setq col(1+ col))  1 n))<br />         (setq col 1)<br />         (foreach n st-lst (vlax-put-property xcells 'item   (setq col(1+ col))  2 n))<br />         (setq col 1)<br />         (foreach n gy-lst (vlax-put-property xcells 'item   (setq col(1+ col))  3 n))<br />         (setq col 1)<br />         (foreach n ncdl-lst (vlax-put-property xcells 'item (setq col(1+ col))   4 n))<br />         (setq col 1)<br />         (foreach n qtld-lst (vlax-put-property xcells 'item (setq col(1+ col))   5 n))<br />         (setq col 1)<br />         (foreach n gq-lst (vlax-put-property xcells 'item   (setq col(1+ col))   6 n))<br />         (setq col 1)<br />         (foreach n ktsm-lst (vlax-put-property xcells 'item (setq col(1+ col))   7 n))<br />         (setq col 1)<br />         (foreach n hlsm-lst (vlax-put-property xcells 'item (setq col(1+ col))   8 n))<br />         (setq col 1)<br />         (foreach n nczjd-lst (vlax-put-property xcells 'item(setq col(1+ col))   9 n))<br />         (setq col 1)<br />         (foreach n glyd-lst (vlax-put-property xcells 'item (setq col(1+ col))   10 n))<br />         (setq col 1)<br />         (foreach n gyyd-lst (vlax-put-property xcells 'item (setq col(1+ col))   11 n))

liuhe

zhaoxt 发表于 2023-4-25 22:58
感谢大佬！虽然我也不明白原因是什么，但这样改了下确实可以了！简洁高效和稳定。也许是vl-position函数 ...

(setq i 1)
  (foreach x(list hd-lst      st-lst          gy-lst      ncdl-lst
                  qtld-lst    gq-lst          ktsm-lst    hlsm-lst
                  nczjd-lst   glyd-lst          gyyd-lst
                 )
    (setq col 1)
    (foreach n x
      (vlax-put-property xcells 'item (setq col (1+ col)) i n)
    )
    (setq i(1+ i))
  )

liuhe

错误: 输入的列表有缺陷   程序不完整

zhaoxt

liuhe 发表于 2023-4-25 21:03
错误: 输入的列表有缺陷   程序不完整

不好意思，第一个函数段（vla-put-visible xlsapp）后面少了个")"

liuhe

楼上  牛逼  6666666666

liuhe

飞雪神光 发表于 2023-4-25 22:29

6666666  大佬原理是啥

zhaoxt

飞雪神光 发表于 2023-4-25 22:29

感谢大佬！虽然我也不明白原因是什么，但这样改了下确实可以了！简洁高效和稳定。也许是vl-position函数的用法不对?总之非常感谢！

zhaoxt

liuhe 发表于 2023-4-25 23:17
(setq i 1)
  (foreach x(list hd-lst      st-lst          gy-lst      ncdl-lst
                  qtld-lst    gq-lst          ...

谢谢哦。程序仅仅实现了功能，还有很多不完善和待优化的地方.

edsion24

能把最终的程序分享一下吗？