LISP如何选择识别CAD表格中的数据？

ynhh · 发表于 2014-10-7 09:56:44

CAD中的表格也有自动累加的功能很好用

但是

当一幅图中有很多表格时，能不能用LISP程序，

选择想各个表格中想要的数据进行自动累加?

请教各位大师，LISP如何选择识别出CAD表格中的数据，以便进行多个表格的累加计算。

谢谢

wangshang323 · 发表于 2014-10-7 13:48:14

首先建议学会搜索。论坛里面有很多东西。
比如你想了解CAD表格可以搜索“表格” 会有很多关于表格的介绍。
http://bbs.mjtd.com/thread-109060-1-1.html
这个就是G版关于表格详细介绍。
授人予鱼不如授人予渔。
希望能帮到你，

ynhh · 发表于 2014-10-7 14:37:44

wangshang323 发表于 2014-10-7 13:48
首先建议学会搜索。论坛里面有很多东西。
比如你想了解CAD表格可以搜索“表格” 会有很多关于表格的介绍。 ...

说实话
之前就找到并研究了
再你说了以后
又好好研究了
但感觉G版的是写入整理
我想要的只是提出光标选定表格中的数字内容
感觉本质上是不同的
G版的代码太高深

实再找不到用什么方法
只是提出光标选定表格中的数字内容
不知大师可否指点一二

ynhh · 发表于 2014-10-8 11:28:24

G版的贴中确实有;;提取表格第2行第1列内容(princ (strcat "第2行第1列文字内容:" (setq str (vla-gettext table 2 1))))
我想知道的是如何用光标选中取出数据内容，可G版的是事先指定行列啊。
请大师在费心指点一下

ZZXXQQ · 发表于 2014-10-8 21:51:47

(defun c:tt () (cdr(assoc 1 (car(nentsel)))))

wangshang323 · 发表于 2014-10-8 23:01:06

ynhh 发表于 2014-10-8 11:28
G版的贴中确实有;;提取表格第2行第1列内容(princ (strcat "第2行第1列文字内容:" (setq str (vla-gettext t ...

估计是参数类型不清楚造成的。
比如 (setq str (vla-gettext table 2 1)))) 这样获得了相应区域表格的内容
但是不知道变量str是什么类型
可以用（type str）查看下，就知道提取出来的类型（一般是字符串）类型
如果是表格里面是数字提出来想要做相应计算就（atof str）就可以吧字符串转成数了、
之后可能会遇到小数位数四舍五入等等问题。
这个你要自己写处理函数或找现成的的。
希望可以帮到你。

比如表格

ynhh · 发表于 2014-10-9 11:56:28

ZZXXQQ 发表于 2014-10-8 21:51

感谢超级版主的指点
可能是我太笨
你这程序多次偿试
均无法得不到想选择的数据文字的内容
命令行均提示如下

命令: TT
选择对象: ; 错误: 参数类型错误: listp <图元名: 7ef0fcc8>

请版主在百忙之中

有空的时候再指点一下

Gu_xl · 发表于 2014-10-11 09:40:26

单元格选择的一些用法，具体可参考VBA的帮助

;;选定指定范围单元格
;;语法(vla-SetSubSelection tb rowMin rowMax colMin colMax)
;;示例
(vla-SetSubSelection tb 0 2 0 3)
;;获取当前选择单元格范围
;;语法 (vla-GetSubSelection tb rowMin rowMax colMin colMax)
;; rowMin rowMax colMin colMax为输出值
;;示例
(vla-GetSubSelection tb 'rowMin 'rowMax 'colMin 'colMax)
;;选择光标位置单元格
;;语法(vla-Select tb wpt wvwVec wvwxvec wxaper wyaper allowOutside resultRowIndex resultColumnIndex)
;;resultRowIndex resultColumnIndex为当前选定单元格的行和列的值
;;示例
(vla-Select
tb
(vlax-3d-point (getpoint))
(vlax-3d-point '(0 0 1))
(vlax-3d-point '(1 0 0))
1
1
:vlax-true
'r
'c
)
;;选择指定位置区域的单元格
;;语法(vla-SelectSubRegion wpt1 wpt2 wvwVec wvwxVec seltype bIncludeCurrentSelection rowMin rowMax colMin colMax)
;;rowMin rowMax colMin colMax 为输出的行和列的值
;;示例
(vla-SelectSubRegion
tb
(vlax-3d-point (setq p1 (getpoint)))
(vlax-3d-point (getcorner p1))
(vlax-3d-point '(0 0 1))
(vlax-3d-point '(1 0 0))
4
:vlax-true
'rowMin
'rowMax
'colMin
'colMax
)

;;选定指定范围单元格 
;;语法(vla-SetSubSelection tb rowMin rowMax colMin colMax) 
;;示例 
(vla-SetSubSelection tb 0 2 0 3) 
;;获取当前选择单元格范围 
;;语法 (vla-GetSubSelection tb rowMin rowMax colMin colMax) 
;; rowMin rowMax colMin colMax为输出值 
;;示例 
(vla-GetSubSelection tb 'rowMin 'rowMax 'colMin 'colMax) 
;;选择光标位置单元格 
;;语法(vla-Select tb wpt wvwVec wvwxvec wxaper wyaper allowOutside resultRowIndex resultColumnIndex) 
;;resultRowIndex resultColumnIndex为当前选定单元格的行和列的值 
;;示例 
(vla-Select 
  tb 
  (vlax-3d-point (getpoint)) 
  (vlax-3d-point '(0 0 1)) 
  (vlax-3d-point '(1 0 0)) 
  1 
  1 
  :vlax-true 
  'r 
  'c 
) 
;;选择指定位置区域的单元格 
;;语法(vla-SelectSubRegion wpt1 wpt2  wvwVec wvwxVec seltype  bIncludeCurrentSelection  rowMin  rowMax  colMin  colMax) 
;;rowMin  rowMax  colMin  colMax 为输出的行和列的值 
;;示例 
(vla-SelectSubRegion 
  tb 
  (vlax-3d-point (setq p1 (getpoint))) 
  (vlax-3d-point (getcorner p1)) 
  (vlax-3d-point '(0 0 1)) 
  (vlax-3d-point '(1 0 0)) 
  4 
  :vlax-true 
  'rowMin 
  'rowMax 
  'colMin 
  'colMax 
)

ynhh · 发表于 2014-10-11 09:46:43

xyp1964 指出的这些数据是从那里来的？

1750+299.5+587.8=2637.3

这三个数据，1750+299.5+587.8 ，是分布在不同的CAD表格中的数据（均为各自表格中累加后的答案数据）

最后的答案 2637.3 ，就是这三个表格中的数据之和

这个问题可能有点难吧，连超级版主指点的试了都不行

我想可能是这些表格中的数据与表格混在一起了

无法直接拾取表格中的答案

感谢各位光临到此看见的朋友

ynhh · 发表于 2014-10-11 09:55:30

Gu_xl 发表于 2014-10-11 09:40
单元格选择的一些用法，具体可参考VBA的帮助

感谢 G 版主的指点
我把你的这些代码都试了
实再是无法做到用光标直接拾取表格中的内容
都是提示: ; 错误: 参数类型错误: VLA-OBJECT nil
让你这么费心
我却没能领悟
实再过意不去
如太费费事劳神
就请大师不要费心了
感谢 G 版

和 Z 版

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

[已解答] LISP如何选择识别CAD表格中的数据？

本帖子中包含更多资源

点评

相关帖子

点评

本帖子中包含更多资源