zhaoxt 发表于 2023-4-25 20:48:56

程序bug求教

本帖最后由 zhaoxt 于 2023-4-25 21:13 编辑

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

xyp1964 发表于 2023-4-28 21:10:24


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

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

liuhe 发表于 2023-4-25 23:17:53

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 发表于 2023-4-25 21:03:45

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

zhaoxt 发表于 2023-4-25 21:07:34

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

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

liuhe 发表于 2023-4-25 22:45:02

本帖最后由 liuhe 于 2023-4-25 22:47 编辑

楼上牛逼6666666666


liuhe 发表于 2023-4-25 22:47:43

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


6666666大佬原理是啥

zhaoxt 发表于 2023-4-25 22:58:34

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


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

zhaoxt 发表于 2023-4-25 23:28:53

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 发表于 2023-4-26 08:57:01

能把最终的程序分享一下吗？
页: [1] 2
查看完整版本: 程序bug求教