如何删除TABLE表格的表头

q3_2006

;   DeleteColumns (2)
;   DeleteRows (2)
只能删除数据行的行和列..如果想删除表头该怎么写呢..请大师指导一下,谢谢!

q3_2006

(Vlax-Invoke-Method tb 'DeleteRows 0 1)就行了吧..还是确定一下..这样写对不..

Lisphk

0行，就是表头吧

marting

1. (defun c:tt ()
   
2.   (if (and (setq e (car (entsel "\n选择表格:")))
   
3.            (setq o (vlax-ename->vla-object e))
   
4.            (= (vla-get-objectname o) "AcDbTable")
   
5.            (setq row (getint "\n删除行号:"))
   
6.       )
   
7.     (progn
   
8.       (if (not
   
9.             (vl-catch-all-apply
   
10.               (function
    
11.                 (lambda nil (vla-deleterows o  row 1))
    
12.               )
    
13.             )
    
14.           )
    
15.         (princ (strcat "\n删除了第 " (itoa row) " 行."))
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    
21. 
    

(defun c:tt ()<br />   (if (and (setq e (car (entsel "\n选择表格:")))<br />            (setq o (vlax-ename->vla-object e))<br />            (= (vla-get-objectname o) "AcDbTable")<br />            (setq row (getint "\n删除行号:"))<br />       )<br />     (progn<br />       (if (not<br />             (vl-catch-all-apply<br />               (function<br />                 (lambda nil (vla-deleterows o  row 1))<br />               )<br />             )<br />           )<br />         (princ (strcat "\n删除了第 " (itoa row) " 行."))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />