表格按行或列调整文字间距

zhangq_cai1

表格怎么按行或列调整文字间距，下图为按行

newer

你的表格是ACAD的表格实体画的还是自己用LINE画的？

把DWG文件也贴上来吧。

zhangq_cai1

自己用LINE画的~~~~~~~~~~~~~

eachy

取 Line 的 Y 值排序, 字按行排列, modent 插入点

Lispboy

给你写了个程序，测试下，比你要的更多，N行N列任意位置的文本都可以按照你说的，填充到本列最上面。


表格线是LINE。


需要通用函数库的函数，XD::Table:CloseGridLine 去下面地址下载源码：http://www.xdcad.net/forum/thread-669380-1-1.html


其他的通用函数库以前都发布过，你下载最新的晓东通用LISP函数库加载就行了。

1. (defun c:tt( / box box1 box2 c1 c2 e1 e2 entl entl1 i m mat mat0 n ss)
   
2.    (princ "\n选取表格线<退出>:")
   
3.    (if (setq ss (ssget '((0 . "LINE"))))
   
4.       (progn
   
5.          (setq ss (XD::Table:CloseGridLine ss 1.0)
   
6.                entl (cadr ss)
   
7.                entl (apply 'mapcar (cons 'list entl))
   
8.                mat0 (xdrx_matrix_identity 3)
   
9.          )
   
10.          (foreach n entl
    
11.             (setq box (apply 'xdrx_entity_box n)
    
12.                   ss (ssget "wp" box '((0 . "TEXT")))
    
13.                   entl1 (XD::Pickset:TableSort ss 0 3 '> '<)
    
14.                   entl1 (apply 'append entl1)
    
15.             )
    
16.             (setq i 0)
    
17.             (foreach m entl1
    
18.                (setq e1 m
    
19.                      e2 (nth i n)
    
20.                      box1 (xdrx_entity_box e1)
    
21.                      c1 (XD::Pnts:Centroid box1)
    
22.                      box2 (xdrx_entity_box e2)
    
23.                      c2 (XD::Pnts:Centroid box2)
    
24.                      mat (xdrx_matrix_setTransLation mat0 (mapcar '- c2 c1))
    
25.                      i (1+ i)
    
26.                )
    
27.                (xdrx_entity_transform e1 mat)
    
28.             )
    
29.          )
    
30.       )
    
31.    )
    
32.    (princ)
    
33. )

(defun c:tt( / box box1 box2 c1 c2 e1 e2 entl entl1 i m mat mat0 n ss)<br />    (princ "\n选取表格线<退出>:")<br />    (if (setq ss (ssget '((0 . "LINE"))))<br />       (progn<br />          (setq ss (XD::Table:CloseGridLine ss 1.0)<br />                entl (cadr ss)<br />                entl (apply 'mapcar (cons 'list entl))<br />                mat0 (xdrx_matrix_identity 3)<br />          )<br />          (foreach n entl<br />             (setq box (apply 'xdrx_entity_box n)<br />                   ss (ssget "wp" box '((0 . "TEXT")))<br />                   entl1 (XD::Pickset:TableSort ss 0 3 '> '<)<br />                   entl1 (apply 'append entl1)<br />             )<br />             (setq i 0)<br />             (foreach m entl1<br />                (setq e1 m <br />                      e2 (nth i n)<br />                      box1 (xdrx_entity_box e1)<br />                      c1 (XD::Pnts:Centroid box1)<br />                      box2 (xdrx_entity_box e2)<br />                      c2 (XD::Pnts:Centroid box2)<br />                      mat (xdrx_matrix_setTransLation mat0 (mapcar '- c2 c1))<br />                      i (1+ i)<br />                )<br />                (xdrx_entity_transform e1 mat)<br />             )<br />          )<br />       )<br />    )<br />    (princ)<br /> )

st788796

对文字来说只要安列排序来自: Android客户端

Lispboy

st788796 发表于 2013-8-5 21:18
对文字来说只要安列排序

要根据表格线，找到每列后，根据表格每列的外框找到文字后，文字再按行排序才行。否则文字实体不能对应到指定的表格列上，比如上面表格如果4列，只有3列文字的话。

Free-Lancer

Lispboy 发表于 2013-8-5 21:25
要根据表格线，找到每列后，根据表格每列的外框找到文字后，文字再按行排序才行。否则文字实体不能对应到 ...

这种Net格线列就是一系列的 ((X1 X2) (X2 X3) ...) 行高就是 ((Y1 Y2) (Y2 Y3) ... ) 对文字判断下 插入点是否在 Xn-1 Xn 之间就可以在列间定位了

Lispboy

Free-Lancer 发表于 2013-8-5 21:48
这种Net格线列就是一系列的 ((X1 X2) (X2 X3) ...) 行高就是 ((Y1 Y2) (Y2 Y3) ... ) 对文字判断下 插入 ...

你是用点去判断，我是先直接把每个CELL生成了，行、列的，然后用盒子去判断。

st788796

用点不改变原图来自: Android客户端

Lispboy

st788796 发表于 2013-8-5 23:05
用点不改变原图

CELL也一样，不想要CELL删除CELL就是了。恢复LINE就是了，CELL可以是中间过程。不过LINE那样的表格线原图留着也没什么好处。

q3_2006

表格线是LINE，框选后什么反应也没有！

XDSoft

q3_2006 发表于 2013-8-6 05:58
表格线是LINE，框选后什么反应也没有！

XD::Table:CloseGridLine 这个函数需要下载下新的。

zhangq_cai1

(defun-q S::STARTUP ( )
(setvar "ACADLSPASDOC" 1)
(princ (load "E:\\mytools\\lisp\\htbl.lsp" "\nhtbl.LSP file not loaded."))
(load "E:\\MYTOOLS\\opendcl\\ManualLoading.lsp")
(princ (load "E:\\mytools\\lisp\\XDRX_API.R18.X32.arx" "\n晓东API file not loaded."))
(princ (load "E:\\mytools\\lisp\\XD-LISP-LIB.VLX" "\n晓东函数库 file not loaded."))
(princ (load "E:\\mytools\\lisp\\公用函数库.fas" "\n公用函数库.fas file not loaded."))
)
XD::Table:CloseGridLine放在公用函数库里，自动加载后找不到这个函数？手动加载公用函数库和
晓东函数库后出现xdrx_begin找不到

XDSoft

zhangq_cai1 发表于 2013-8-6 09:59
(defun-q S::STARTUP ( )
(setvar "ACADLSPASDOC" 1)
(princ (load "E:\\mytools\\lisp\\htbl.lsp" "\nh ...

编译版本的通用LISP函数库还没更新，所以那个新修改的函数比库里面同名的要新，所以要先手工加载下源码。

XDRX_API是最新版本吗？ 加载完API，看到提示信息后，在命令行自己查看下 xdrx_begin 是否定义了。用 ！

其实你的自动加载函数里面，只加载通用LISP函数库就行，只要在支持路径里面有XDRX_API的ARX，就会自动找到对应的版本加载的。