【原创】练习表格设置列宽

Lisphk

自己写的代码，练习用VLISP设置表格的列宽

1. (defun c:tt ()
   
2.   (if (and (setq width (getreal "\n表格列宽<退出>:"))
   
3.            (setq e (ssget ":E:P" '((0 . "ACAD_TABLE"))))
   
4.            (setq o (vlax-ename->vla-object (ssname e 0)))
   
5.       )
   
6.     (progn
   
7.       (setq numCols (vla-get-columns o)
   
8.             i       -1
   
9.       )
   
10.       (repeat numCols
    
11.         (vlax-invoke o 'SetColumnWidth (setq i (1+ i)) width)
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:tt ()<br />   (if (and (setq width (getreal "\n表格列宽<退出>:"))<br />            (setq e (ssget ":E:P" '((0 . "ACAD_TABLE"))))<br />            (setq o (vlax-ename->vla-object (ssname e 0)))<br />       )<br />     (progn<br />       (setq numCols (vla-get-columns o)<br />             i       -1<br />       )<br />       (repeat numCols<br />         (vlax-invoke o 'SetColumnWidth (setq i (1+ i)) width)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Lisphk

同时设置行高和列宽

1. (defun c:tt ()
   
2.   (if (and (setq height (getreal "\n表格行高<退出>:"))
   
3.            (setq width (getreal "\n表格列宽<退出>:"))
   
4.            (setq e (ssget ":E:P" '((0 . "ACAD_TABLE"))))
   
5.            (setq o (vlax-ename->vla-object (ssname e 0)))
   
6.       )
   
7.     (progn
   
8.       (setq numCols (vla-get-columns o)
   
9.             numRows (vla-get-rows o)
   
10.             i       -1
    
11.       )
    
12.       (repeat numCols
    
13.         (vlax-invoke o 'SetColumnWidth (setq i (1+ i)) width)
    
14.       )
    
15.       (setq i -1)
    
16.       (repeat numRows
    
17.         (vlax-invoke o 'SetRowHeight (setq i (1+ i)) height)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

(defun c:tt ()<br />   (if (and (setq height (getreal "\n表格行高<退出>:"))<br />            (setq width (getreal "\n表格列宽<退出>:"))<br />            (setq e (ssget ":E:P" '((0 . "ACAD_TABLE"))))<br />            (setq o (vlax-ename->vla-object (ssname e 0)))<br />       )<br />     (progn<br />       (setq numCols (vla-get-columns o)<br />             numRows (vla-get-rows o)<br />             i       -1<br />       )<br />       (repeat numCols<br />         (vlax-invoke o 'SetColumnWidth (setq i (1+ i)) width)<br />       )<br />       (setq i -1)<br />       (repeat numRows<br />         (vlax-invoke o 'SetRowHeight (setq i (1+ i)) height)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

434939575

感谢分享。请问这个怎么获取每行文字内容