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

Gu_xl

ynhh 发表于 2014-10-11 09:55
感谢 G 版主的指点
我把你的这些代码都试了
实再是无法做到用光标直接拾取表格中的内容

1. (defun c:tt ()
   
2.   (setq a 0 str "")
   
3.   (while (setq pt (getpoint "\n指定单元格:"))
   
4.     (setq h (* 0.05 (getvar 'viewsize)))
   
5.     (setq p1 (polar pt (* 0.5 pi) h)
   
6.           p2 (polar pt (* 1.5 pi) h)
   
7.     )
   
8.     (setq tb (ssget "f" (list p1 p2) '((0 . "ACAD_TABLE"))))
   
9.     (if        (not tb)
   
10.       (princ "\n没有选择单元格")
    
11.       (progn
    
12.         (setq tb (vlax-ename->vla-object (ssname tb 0)))
    
13.         (vla-Select
    
14.           tb
    
15.           (vlax-3d-point pt)
    
16.           (vlax-3d-point '(0 0 1))
    
17.           (vlax-3d-point '(1 0 0))
    
18.           1
    
19.           1
    
20.           :vlax-true
    
21.           'r
    
22.           'c
    
23.         )
    
24.         (setq b (vla-gettext tb r c))
    
25.         (if (= "" str)
    
26.           (setq str b)
    
27.           (setq str (strcat str "+" b))
    
28.           )
    
29.         (setq a (+ a (atof b)))
    
30.       )
    
31.     )
    
32. 
    
33.   )
    
34.   (princ (strcat "\n" str "=" (rtos a 2 3)))
    
35.   (princ)
    
36. )

(defun c:tt ()<br />   (setq a 0 str "")<br />   (while (setq pt (getpoint "\n指定单元格:"))<br />     (setq h (* 0.05 (getvar 'viewsize)))<br />     (setq p1 (polar pt (* 0.5 pi) h)<br />           p2 (polar pt (* 1.5 pi) h)<br />     )<br />     (setq tb (ssget "f" (list p1 p2) '((0 . "ACAD_TABLE"))))<br />     (if        (not tb)<br />       (princ "\n没有选择单元格")<br />       (progn<br />         (setq tb (vlax-ename->vla-object (ssname tb 0)))<br />         (vla-Select<br />           tb<br />           (vlax-3d-point pt)<br />           (vlax-3d-point '(0 0 1))<br />           (vlax-3d-point '(1 0 0))<br />           1<br />           1<br />           :vlax-true<br />           'r<br />           'c<br />         )<br />         (setq b (vla-gettext tb r c))<br />         (if (= "" str)<br />           (setq str b)<br />           (setq str (strcat str "+" b))<br />           )<br />         (setq a (+ a (atof b)))<br />       )<br />     )<br /> <br />   )<br />   (princ (strcat "\n" str "=" (rtos a 2 3)))<br />   (princ)<br /> )

ynhh

Gu_xl 发表于 2014-10-11 10:44

经在 2014 中测试，可以提取表格中的数据，完全正确。

G 版神勇，你这么雷锋的精神，这么高大上的品德，这么超一流的技术，为你点一万个赞也是值得的！！

再次向 G版致以崇高的敬意

czcxxx

谢谢分享！！！！！

向 G版致以崇高的敬意