API应用 获取拾取点处单元格行列及格内文字

csharp

更新 API 后可用

1. (defun c:tt (/ tb vt vc p lst str)
   
2.   (if (setq tb (car (xdrx_entsel "\n选择表格: " '((0 . "*Table")))))
   
3.     (progn
   
4.       (setq vt (getvar "viewdir")
   
5.             vc (xdrx_table_direction tb)
   
6.       )
   
7.       (while (and (setq p (getpoint "\n测试点: "))
   
8.                   (setq lst (xdrx_table_select tb p vt vc 0 0))
   
9.              )
   
10.         (setq str (xdrx_table_textstring tb (cadr lst) (car lst)))
    
11.         (xdrx_msgbox
    
12.           (strcat "行: "
    
13.                   (itoa (cadr lst))
    
14.                   " 列: "
    
15.                   (itoa (car lst))
    
16.                   "\n"
    
17.                   "文字 = "
    
18.                   str
    
19.           )
    
20.           "Point Position"
    
21.           4
    
22.           0
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt (/ tb vt vc p lst str)<br />   (if (setq tb (car (xdrx_entsel "\n选择表格: " '((0 . "*Table")))))<br />     (progn<br />       (setq vt (getvar "viewdir")<br />             vc (xdrx_table_direction tb)<br />       )<br />       (while (and (setq p (getpoint "\n测试点: "))<br />                   (setq lst (xdrx_table_select tb p vt vc 0 0))<br />              )<br />         (setq str (xdrx_table_textstring tb (cadr lst) (car lst)))<br />         (xdrx_msgbox<br />           (strcat "行: "<br />                   (itoa (cadr lst))<br />                   " 列: "<br />                   (itoa (car lst))<br />                   "\n"<br />                   "文字 = "<br />                   str<br />           )<br />           "Point Position"<br />           4<br />           0<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

st788796

先列后行？一直没有注意这个顺序

lucas3

你们两位高人应该自我介绍一下，{:soso_e113:}，对你们的神秘身份很有兴趣:lol

iLisp

不懂，啥高级咚咚

csharp

lucas3 发表于 2014-10-10 19:22
你们两位高人应该自我介绍一下，，对你们的神秘身份很有兴趣

C#初学者，由练习Net扩展A/Vlisp函数入门，基本放弃 Alisp

Free-Lancer

1. (defun Table:Select (tb pt / row column)
   
2.   (vla-select
   
3.     tb
   
4.     (vlax-3d-point pt)
   
5.     (vlax-3d-point '(0.0 0.0 1.0))
   
6.     (vlax-3d-point '(0.0 1.0 0.0))
   
7.     (getvar "aperture")
   
8.     (getvar "aperture")
   
9.     :vlax-false
   
10.     'row
    
11.     'column
    
12.   )
    
13.   (list row column)
    
14. )
    
15. ;|
    
16. acTableselectWindow 1
    
17. acTableSelectCrossing 2
    
18. |;
    
19. (defun table:selectregion (tb p1 p2 mod / rmin rmax cmin cmax)
    
20.   (vla-selectsubregion
    
21.     tb
    
22.     (vlax-3d-point p1)
    
23.     (vlax-3d-point p2)
    
24.     (vlax-3d-point '(0.0 0.0 1.0))
    
25.     (vlax-3d-point '(1.0 0.0 0.0))
    
26.     mod
    
27.     :vlax-false
    
28.     'rmin
    
29.     'rmax
    
30.     'cmin
    
31.     'cmax
    
32.   )
    
33.   (list rmin rmax cmin cmax)
    
34. )

(defun Table:Select (tb pt / row column)<br />   (vla-select<br />     tb<br />     (vlax-3d-point pt)<br />     (vlax-3d-point '(0.0 0.0 1.0))<br />     (vlax-3d-point '(0.0 1.0 0.0))<br />     (getvar "aperture")<br />     (getvar "aperture")<br />     :vlax-false<br />     'row<br />     'column<br />   )<br />   (list row column)<br /> )<br /> ;|<br /> acTableselectWindow 1<br /> acTableSelectCrossing 2<br /> |;<br /> (defun table:selectregion (tb p1 p2 mod / rmin rmax cmin cmax)<br />   (vla-selectsubregion<br />     tb<br />     (vlax-3d-point p1)<br />     (vlax-3d-point p2)<br />     (vlax-3d-point '(0.0 0.0 1.0))<br />     (vlax-3d-point '(1.0 0.0 0.0))<br />     mod<br />     :vlax-false<br />     'rmin<br />     'rmax<br />     'cmin<br />     'cmax<br />   )<br />   (list rmin rmax cmin cmax)<br /> )