(XD::Table:Make2Block)根据表内容生成表格块

Lispboy

1. ;|
   
2. 根据表生成表格块
   
3. 参数：
   
4.    pj   -----   基点
   
5.    lst  -----   表格型表
   
6.    styl -----   文字样式
   
7.    txtH -----   字高
   
8.    txtWSCL---   宽度比例系数
   
9.    hCellPadding-水平字间距（单边）
   
10.    vCellPadding-垂直字间距（单边）
    
11. 
    
12. 返回值：
    
13. 
    
14.    表（INSERT实体名 块名字符串)
    
15. 
    
16. |;
    
17. (defun XD::Table:Make2Block (pj lst styl txtH txtWScl hCellPadding vCellPadding / cells col e m n pmid pts row ss str)
    
18.   (xdrx_setmark)
    
19.   (setq ss (XD::Table:DrawGridLine pj lst styl txtH txtWScl hCellPadding vCellPadding)
    
20.         cells (XD::Table:GridLine2Cells ss)
    
21.         cells (cadr cells)
    
22.   )
    
23.   (setq row 0)
    
24.   (foreach n lst
    
25.     (setq col 0)
    
26.     (foreach m n
    
27.       (setq e (nth col (nth row cells))
    
28.             e (handent e)
    
29.             pts (xdrx_getpropertyvalue e "Vertices")
    
30.             pmid (xdrx_midp (car pts) (caddr pts))
    
31.       )
    
32.       (setq m (vl-princ-to-string m))
    
33.       (xdrx_text_make pmid m styl txtH 0.0)
    
34.       (xdrx_setpropertyvalue (entlast) "WidthFactor" txtWscl)
    
35.       (xdrx_setpropertyvalue (entlast) "HorizontalMode" 1)
    
36.       (xdrx_setpropertyvalue (entlast) "verticalmode" 2)
    
37.       (xdrx_setpropertyvalue (entlast) "AlignmentPoint" pmid)
    
38.       (setq col (1+ col))
    
39.     )
    
40.     (setq row (1+ row))
    
41.   )
    
42.   (setq ss (xdrx_getss 9))
    
43.   (setq str (xdrx_block_make (strcat "XDOB_TABLE_" (xdrx_getrandstr)) ss pj t))
    
44.   (list (entlast) str)
    
45. )

;|<br /> 根据表生成表格块<br /> 参数：<br />    pj   -----   基点<br />    lst  -----   表格型表<br />    styl -----   文字样式<br />    txtH -----   字高<br />    txtWSCL---   宽度比例系数<br />    hCellPadding-水平字间距（单边）<br />    vCellPadding-垂直字间距（单边）<br /> <br /> 返回值：<br /> <br />    表（INSERT实体名 块名字符串)<br /> <br /> |;<br /> (defun XD::Table:Make2Block (pj lst styl txtH txtWScl hCellPadding vCellPadding / cells col e m n pmid pts row ss str)<br />   (xdrx_setmark)<br />   (setq ss (XD::Table:DrawGridLine pj lst styl txtH txtWScl hCellPadding vCellPadding)<br />         cells (XD::Table:GridLine2Cells ss)<br />         cells (cadr cells)<br />   )<br />   (setq row 0)<br />   (foreach n lst<br />     (setq col 0)<br />     (foreach m n<br />       (setq e (nth col (nth row cells))<br />             e (handent e)<br />             pts (xdrx_getpropertyvalue e "Vertices")<br />             pmid (xdrx_midp (car pts) (caddr pts))<br />       )<br />       (setq m (vl-princ-to-string m))<br />       (xdrx_text_make pmid m styl txtH 0.0)<br />       (xdrx_setpropertyvalue (entlast) "WidthFactor" txtWscl)<br />       (xdrx_setpropertyvalue (entlast) "HorizontalMode" 1)<br />       (xdrx_setpropertyvalue (entlast) "verticalmode" 2)<br />       (xdrx_setpropertyvalue (entlast) "AlignmentPoint" pmid)<br />       (setq col (1+ col))<br />     )<br />     (setq row (1+ row))<br />   )<br />   (setq ss (xdrx_getss 9))<br />   (setq str (xdrx_block_make (strcat "XDOB_TABLE_" (xdrx_getrandstr)) ss pj t))<br />   (list (entlast) str)<br /> )

守仁格竹GM

最近这是爆发了

st788796

守仁格竹GM 发表于 2013-11-18 08:21
最近这是爆发了

天天有惊喜

lianghui2018

精品函数，收藏