(XD::Table:Make)绘制一个表格（ACAD表格，XTable表格）

Lispboy

1. (defun XD::Table:Make (pt rows rowheight cols colwidth / blk cdata cel e el height i j p1 p2 p3 p4 pj pj1 pnt typ width xdir ydir)
   
2.   (defun _drawrec (pnt width height)
   
3.     (setq xdir (getvar "ucsxdir")
   
4.           ydir (getvar "ucsydir")
   
5.           p1 pnt
   
6.           p2 (mapcar
   
7.                '-
   
8.                p1
   
9.                (xdrx_vector_product ydir rowHeight)
   
10.              )
    
11.           p3 (mapcar
    
12.                '+
    
13.                p2
    
14.                (xdrx_vector_product xdir colwidth)
    
15.              )
    
16.           p4 (mapcar
    
17.                '+
    
18.                p1
    
19.                (xdrx_vector_product xdir colwidth)
    
20.              )
    
21.     )
    
22.     (xdrx_polyline_make p1 p2 p3 p4 t)
    
23.   )
    
24.   (if (not (setq typ (xd::symbol:get '#xd-var-global-table-type)))
    
25.     (progn
    
26.       (XD::Table:SetType "X")
    
27.       (setq typ "X")
    
28.     )
    
29.   )
    
30.   (if (= typ "X")
    
31.     (progn
    
32.       (setq pj pt)
    
33.       (setq el nil)
    
34.       (setq i 0)
    
35.       (xdrx_setmark)
    
36.       (repeat rows
    
37.         (setq pj (mapcar
    
38.                    '-
    
39.                    pt
    
40.                    (list 0 (* i rowheight) 0)
    
41.                  )
    
42.         )
    
43.         (setq j 0)
    
44.         (setq cel nil)
    
45.         (repeat cols
    
46.           (setq pj1 (mapcar
    
47.                       '+
    
48.                       pj
    
49.                       (list (* j colwidth) 0 0)
    
50.                     )
    
51.           )
    
52.           (setq e (_drawrec pj1 colwidth rowHeight))
    
53.           (xdrx_object_setXrecord e "no" (list (itoa i) (itoa j)))
    
54.           (xdrx_object_setXrecord e "MergeCell" 0)
    
55.           (setq el (cons e el))
    
56.           (setq j (1+ j))
    
57.           (setq cel (cons e cel))
    
58.         )
    
59.         (setq cdata (list i cel))
    
60.         (setq i (1+ i))
    
61.       )
    
62.       (setq blk (xdrx_block_make (XD::Table:GetUniqueName)
    
63.                                  (xdrx_getss) pt t
    
64.                 )
    
65.       )
    
66.       (setq margin (XD::Table:GetVertCellMargin))
    
67.       (xdrx_object_setxrecord blk "NumRows" rows)
    
68.       (xdrx_object_setxrecord blk "NumColumns" cols)
    
69.       (xdrx_object_setxrecord blk "CellMargin" margin)
    
70.       (xdrx_xdata_setDirection blk "direction" xdir)
    
71.     )
    
72.     (progn
    
73.       (setq blk (xdrx_table_make pt rows rowheight cols colwidth))
    
74.     )
    
75.   )
    
76.   blk
    
77. )

(defun XD::Table:Make (pt rows rowheight cols colwidth / blk cdata cel e el height i j p1 p2 p3 p4 pj pj1 pnt typ width xdir ydir)<br />   (defun _drawrec (pnt width height)<br />     (setq xdir (getvar "ucsxdir")<br />           ydir (getvar "ucsydir")<br />           p1 pnt<br />           p2 (mapcar<br />                '-<br />                p1<br />                (xdrx_vector_product ydir rowHeight)<br />              )<br />           p3 (mapcar<br />                '+<br />                p2<br />                (xdrx_vector_product xdir colwidth)<br />              )<br />           p4 (mapcar<br />                '+<br />                p1<br />                (xdrx_vector_product xdir colwidth)<br />              )<br />     )<br />     (xdrx_polyline_make p1 p2 p3 p4 t)<br />   )<br />   (if (not (setq typ (xd::symbol:get '#xd-var-global-table-type)))<br />     (progn<br />       (XD::Table:SetType "X")<br />       (setq typ "X")<br />     )<br />   )<br />   (if (= typ "X")<br />     (progn<br />       (setq pj pt)<br />       (setq el nil)<br />       (setq i 0)<br />       (xdrx_setmark)<br />       (repeat rows<br />         (setq pj (mapcar<br />                    '-<br />                    pt<br />                    (list 0 (* i rowheight) 0)<br />                  )<br />         )<br />         (setq j 0)<br />         (setq cel nil)<br />         (repeat cols<br />           (setq pj1 (mapcar<br />                       '+<br />                       pj<br />                       (list (* j colwidth) 0 0)<br />                     )<br />           )<br />           (setq e (_drawrec pj1 colwidth rowHeight))<br />           (xdrx_object_setXrecord e "no" (list (itoa i) (itoa j)))<br />           (xdrx_object_setXrecord e "MergeCell" 0)<br />           (setq el (cons e el))<br />           (setq j (1+ j))<br />           (setq cel (cons e cel))<br />         )<br />         (setq cdata (list i cel))<br />         (setq i (1+ i))<br />       )<br />       (setq blk (xdrx_block_make (XD::Table:GetUniqueName)<br />                                  (xdrx_getss) pt t<br />                 )<br />       )<br />       (setq margin (XD::Table:GetVertCellMargin))<br />       (xdrx_object_setxrecord blk "NumRows" rows)<br />       (xdrx_object_setxrecord blk "NumColumns" cols)<br />       (xdrx_object_setxrecord blk "CellMargin" margin)<br />       (xdrx_xdata_setDirection blk "direction" xdir)<br />     )<br />     (progn<br />       (setq blk (xdrx_table_make pt rows rowheight cols colwidth))<br />     )<br />   )<br />   blk<br /> )

Lispboy

测试：

下面代码根据选项绘制 XTable和AUTOCAD TABLE，并把首行单元格合并。

为什么要有XTable(INSERT表格）支持，因为：
1、INSERT实体，对比TABLE显示更快
2、对不支持TABLE版本的CAD是个补充。

XD LISP函数库提供完备的操作XTABLE对象的API接口，和ACAD对TABLE实体提供的强大的API功能一样。

1. (defun c:tt()
   
2.    (xdrx_begin)
   
3.    (xdrx_initget "A X")
   
4.    (initget "A X")
   
5.    (if (and (setq tf (getkword "\n表格类型[ACAD(A)/XTable(X)]<X>:"))
   
6.             (setq p (getpoint "\n表格插入点<退出>:"))
   
7.        )
   
8.      (progn
   
9.         (xd::table:settype tf)
   
10.         (xd::table:make p 5 100 3 400)
    
11.         (xd::table:setmerge (entlast) 0 0 0 2)
    
12.      )
    
13.    )
    
14.    (xdrx_end)
    
15.    (princ)
    
16. )
    
17. 
    

(defun c:tt()<br />    (xdrx_begin)<br />    (xdrx_initget "A X")<br />    (initget "A X")<br />    (if (and (setq tf (getkword "\n表格类型[ACAD(A)/XTable(X)]<X>:"))<br />             (setq p (getpoint "\n表格插入点<退出>:"))<br />        )<br />      (progn<br />         (xd::table:settype tf)<br />         (xd::table:make p 5 100 3 400)<br />         (xd::table:setmerge (entlast) 0 0 0 2)<br />      )<br />    )<br />    (xdrx_end)<br />    (princ)<br /> )<br /> <br />