表格按列拆分

newer

1. (defun c:tt ()
   
2.   (if
   
3.     (and (setq e (car (xdrx_entsel "\n拾取表格" '((0 . "ACAD_TABLE")))))
   
4.          (setq cols (xdrx_table_numcolumns e))
   
5.          (setq
   
6.            eCol        (getint
   
7.                   (xdrx_prompt "\n第一栏截止列号(1-" (- cols 2) "):" t)
   
8.                 )
   
9.          )
   
10.     )
    
11.      (progn
    
12.        (setq ss (xdrx_entity_copy e))
    
13.        (xdrx_table_deleteColumns e ecol cols)
    
14.        (xdrx_table_deletecolumns (entlast) 0 ecol)
    
15.        (setq h1 (xdrx_table_rowheight e 0))
    
16.        (setq h2 (xdrx_table_rowheight e 1))
    
17.        (xdrx_table_settextstring
    
18.          (entlast)
    
19.          0
    
20.          0
    
21.          (xdrx_table_textstring e 0 0)
    
22.        )
    
23.        (xdrx_table_settextheight (entlast) 0 0 (xdrx_table_textheight e 0 0))
    
24.        (xdrx_table_settextstyle (entlast) 0 0 (cadr (xdrx_table_textstyle e 0 0)))
    
25.        (xdrx_table_setrowheight (entlast) 0 h1)
    
26.        (xdrx_table_setrowheight (entlast) 1 h2)
    
27.        (setq box (xdrx_entity_box e)
    
28.              dis (distance (car box) (cadr box))
    
29.        )
    
30.        (xdrx_entity_move
    
31.          (entlast)
    
32.          '(0 0 0)
    
33.          (list (+ dis (xdrx_table_rowheight e 0)) 0 0)
    
34.        )
    
35.      )
    
36.   )
    
37.   (princ)
    
38. )
    
39. 
    

(defun c:tt ()<br />   (if<br />     (and (setq e (car (xdrx_entsel "\n拾取表格" '((0 . "ACAD_TABLE")))))<br />          (setq cols (xdrx_table_numcolumns e))<br />          (setq<br />            eCol        (getint<br />                   (xdrx_prompt "\n第一栏截止列号(1-" (- cols 2) "):" t)<br />                 )<br />          )<br />     )<br />      (progn<br />        (setq ss (xdrx_entity_copy e))<br />        (xdrx_table_deleteColumns e ecol cols)<br />        (xdrx_table_deletecolumns (entlast) 0 ecol)<br />        (setq h1 (xdrx_table_rowheight e 0))<br />        (setq h2 (xdrx_table_rowheight e 1))<br />        (xdrx_table_settextstring<br />          (entlast)<br />          0<br />          0<br />          (xdrx_table_textstring e 0 0)<br />        )<br />        (xdrx_table_settextheight (entlast) 0 0 (xdrx_table_textheight e 0 0))<br />        (xdrx_table_settextstyle (entlast) 0 0 (cadr (xdrx_table_textstyle e 0 0)))<br />        (xdrx_table_setrowheight (entlast) 0 h1)<br />        (xdrx_table_setrowheight (entlast) 1 h2)<br />        (setq box (xdrx_entity_box e)<br />              dis (distance (car box) (cadr box))<br />        )<br />        (xdrx_entity_move<br />          (entlast)<br />          '(0 0 0)<br />          (list (+ dis (xdrx_table_rowheight e 0)) 0 0)<br />        )<br />      )<br />   )<br />   (princ)<br /> )<br /> <br />

其实思路很简单，原位置拷贝一个表格，一个把前面的列删除，一个把后面的列删除。

longer1000

非常需要，谢谢

liunian0524

感谢楼主分享

sh_h

谢谢N版！！！

烟花丝雨11

多谢楼主分享

renyonghua2014

这个还是需要的。谢谢版主