（XD::Table:Map）制作表格型数据表的MAP

XDSoft

1. ;|
   
2. 制作表格型数据表的MAP
   
3. 参数：  colWidths --- 列宽度表
   
4.         rowHeights--- 行高度表
   
5. 返回值：( (左上点 行号 列号) ....)
   
6. 说明：  行号，列号从0开始
   
7. |;(defun XD::Table:Map (colWidths rowHeights / basept cols i j p1 pt pts pts1 rows xdir ydir)
   
8.   (setq xdir '(1.0 0.0 0.0)
   
9.         cols (length colWidths)
   
10.         rows (length rowHeights)
    
11.         i 0
    
12.         xdir (xdrx_vector_normalize xdir)
    
13.         ydir (xdrx_vector_perpvector xdir)
    
14.         ydir (xdrx_vector_negate ydir)
    
15.   )
    
16.   (setq basept '(0.0 0.0 0.0)
    
17.         pts nil
    
18.         pt basept
    
19.   )
    
20.   (repeat rows
    
21.     (setq j 0)
    
22.     (setq pts1 (list pt (list i j))
    
23.           pts (cons pts1 pts)
    
24.           p1 pt
    
25.     )
    
26.     (repeat (1- cols)
    
27.       (setq p1 (mapcar
    
28.                  '+
    
29.                  p1
    
30.                  (xdrx_vector_product xdir (nth j colWidths))
    
31.                )
    
32.             pts (cons (list p1 (list i (1+ j))) pts)
    
33.             j (1+ j)
    
34.       )
    
35.     )
    
36.     (setq pt (mapcar
    
37.                '+
    
38.                pt
    
39.                (xdrx_vector_product ydir (nth i rowHeights))
    
40.              )
    
41.           i (1+ i)
    
42.     )
    
43. 
    
44.   )
    
45.   (setq pts (reverse pts))
    
46. )

;|<br /> 制作表格型数据表的MAP<br /> 参数：  colWidths --- 列宽度表<br />         rowHeights--- 行高度表<br /> 返回值：( (左上点 行号 列号) ....)<br /> 说明：  行号，列号从0开始<br /> |;(defun XD::Table:Map (colWidths rowHeights / basept cols i j p1 pt pts pts1 rows xdir ydir)<br />   (setq xdir '(1.0 0.0 0.0)<br />         cols (length colWidths)<br />         rows (length rowHeights)<br />         i 0<br />         xdir (xdrx_vector_normalize xdir)<br />         ydir (xdrx_vector_perpvector xdir)<br />         ydir (xdrx_vector_negate ydir)<br />   )<br />   (setq basept '(0.0 0.0 0.0)<br />         pts nil<br />         pt basept<br />   )<br />   (repeat rows<br />     (setq j 0)<br />     (setq pts1 (list pt (list i j))<br />           pts (cons pts1 pts)<br />           p1 pt<br />     )<br />     (repeat (1- cols)<br />       (setq p1 (mapcar<br />                  '+<br />                  p1<br />                  (xdrx_vector_product xdir (nth j colWidths))<br />                )<br />             pts (cons (list p1 (list i (1+ j))) pts)<br />             j (1+ j)<br />       )<br />     )<br />     (setq pt (mapcar<br />                '+<br />                pt<br />                (xdrx_vector_product ydir (nth i rowHeights))<br />              )<br />           i (1+ i)<br />     )<br /> <br />   )<br />   (setq pts (reverse pts))<br /> )

819534890

怎样应用，能举个例子不？

newer

819534890 发表于 2014-12-8 11:36
怎样应用，能举个例子不？

应该是建立个映射关系，这个MAP是左上点0,0,0， X轴正方向，Y轴负方向的一个表，每个交点上有交点坐标和单元格的行列号信息。以后不管表格是正交的，还是有角度的，可以很容易的变换到实际的表格上，可以方便的查询每个单元格的准确坐标位置。