(XD::Table:Values)获取AcDbTable单元格 Value 列表

yuanziyou · 发表于 2021-11-1 23:25:46

学习使人进步！

liuminxin45 · 发表于 2021-11-9 09:20:21

谢谢大师！！感谢馈赠！

oojtgsfi · 发表于 2021-11-9 10:14:15

感谢！！！！！！！！

pang_xdcad · 发表于 2021-11-26 11:33:00

啥也不说了，感谢楼主分享哇！

guosheyang2 · 发表于 2021-11-26 11:52:30

学习下谢谢！

guosheyang2 · 发表于 2021-11-26 13:12:36

本帖最后由 guosheyang2 于 2021-11-26 13:14 编辑

;函数名称: XD::Table:Values
;调用格式: (XD::Table:Values tb)
;参数说明: tb -- 表格 Object
;返回值: 表
;函数简介: 获取AcDbTable单元格 Value 列表
(defun xd::table:Values (tb / rl col i j lst)
  (setq col (vla-get-columns tb)
      i -1
  )
  (repeat (vla-get-rows tb)
(setq j -1
      i (1+ i)
)
(repeat col
   (setq rl
         (cons (variant-value (vla-GetCellValue tb i (setq j (1+ j))))
      rl
         )
   )
)
(setq rl(reverse rl))
(setq lst (cons rl lst)
      rl  nil
)
  )
(reverse lst)
)
      加了一行reverse  我是2017版  加上才对头

Peter08 · 发表于 2022-5-3 14:10:49

good work!!

WhoCanSay · 发表于 2022-5-19 08:03:15

非常谢谢ＳＴ大师

白杨恒毅 · 发表于 2022-7-29 16:35:31

学习学习学习学习学习学习学习学习学习学习

liu-he · 发表于 2022-9-12 22:08:52

6666666666666666666666666

zjy2999 · 发表于 2022-9-13 11:15:13

多谢分享！！！！

15989144277 · 发表于 2022-11-8 14:38:36

谢谢分享，很方便的功能

wolaixuexi · 发表于 2022-11-27 12:19:15

好好学习天天向上

jakeing · 发表于 2022-12-19 19:28:48

谢谢大神分享！

l_高手 · 发表于 2023-2-23 17:47:00

好好学习，天天增效

账号		自动登录	找回密码
密码			立即注册

[表格] (XD::Table:Values)获取AcDbTable单元格 Value 列表