返回选中单元格的内容用哪个函数？

hhhlike

(xdrx_table_textstring (car(entsel))) 返回的是整个表格的内容，我要返回选中单元格的内容用哪个函数？哪位大神知道，请指教

XDSoft

(xdrx-table-hittest tbl pt '(0 0 1.0) 0.1 0.1))

1. (defun c:tt ()
   
2.   (if (and (setq tbl
   
3.                   (car (xdrx-entsel "\nSelect Table<Exit>:" '((0 . "*table")))
   
4.                   )
   
5.            )
   
6.            (setq pt (getpoint "\nPick Cell<Exit>:"))
   
7.            (setq cell (xdrx-table-hittest tbl pt '(0 0 1.0) 0.1 0.1))
   
8.       )
   
9.     (progn
   
10.       (xdrx-prompt
    
11.         (xdrx-string-formatex
    
12.           "\nSelect Cell:%d,%d \nTextstring is:%s"
    
13.           (car cell)
    
14.           (cadr cell)
    
15.           (apply 'xdrx-table-textstring (cons tbl cell))
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

(defun c:tt ()<br />   (if (and (setq tbl<br />                   (car (xdrx-entsel "\nSelect Table<Exit>:" '((0 . "*table")))<br />                   )<br />            )<br />            (setq pt (getpoint "\nPick Cell<Exit>:"))<br />            (setq cell (xdrx-table-hittest tbl pt '(0 0 1.0) 0.1 0.1))<br />       )<br />     (progn<br />       (xdrx-prompt<br />         (xdrx-string-formatex<br />           "\nSelect Cell:%d,%d \nTextstring is:%s"<br />           (car cell)<br />           (cadr cell)<br />           (apply 'xdrx-table-textstring (cons tbl cell))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

Command: TT
Select Table<Exit>:
Pick Cell<Exit>:
Select Cell:3 1
Textstring is:1649.0318

hhhlike

晓东老大，用xdrx-table-hittest 每次都返回(0,0)，我用的是cad2007,不能返回单元格的行号和列号，直接用你的代码也返回不了