- A+
CAD里面其实也可以像excel软件一样绘制表格，要是使用excel表格处理的参数，可以直接导出到excel软件里面使用，特别方便，不需要手动一个一个的往excel表格里面填，可以直接使用TABLE命令生成的表格即可和excel软件公用参数，那怎么使用lsp代码实现自动绘制excel表格了，下面我是使用的 entmakex 函数创建对象生成的表格，如果觉得复杂，也可以使用画直线的方法直接画一个表格，像燕秀一样。第一个方法就是使用直线画一个表格
先看图
代码例子，请注意，表格组码顺序不能颠倒，否则生成会出错。
(defun C:bb ( / PT BB)
(setq pt (getpoint "\n--->伙计百科，请指定点 :"))
(setq bb(list
'(0 . "ACAD_TABLE")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
(cons 10 pt);不可更改顺序，起点在AcDbTable之前
'(100 . "AcDbTable")
'(90 . 22)
'(91 . 3);行数，3行
'(92 . 2);列数，2列
'(141 . 9.0) ;第一行高
'(141 . 15.0) ;第2行高
'(141 . 15.0) ;第2行高
'(142 . 20.0);第1列表宽
'(142 . 50.0);第2列表宽
;下面给表填数;第一行标题
'(171 . 1)
'(172 . 0)
'(173 . 0);0
'(174 . 0)
' (175 . 2);2
' (176 . 1)
' (177 . 0)
' (178 . 0)
' (145 . 0.0)
'(1 . "伙计百科")
;合并第一行
'(171 . 1)
'(172 . 0)
' (173 . 1);1
' (174 . 0)
' (175 . 1)
'(176 . 1)
'(177 . 0)
' (178 . 0)
' (145 . 0.0)
'(1 . "")
;第2行1列
'(171 . 1)
'(172 . 0)
'(173 . 0);0
'(174 . 0)
' (175 . 1);1
' (176 . 1)
' (177 . 0)
' (178 . 0)
' (145 . 0.0)
'(1 . "伙计百科1")
;第2行2列
'(171 . 1)
'(172 . 0)
'(173 . 0);0
'(174 . 0)
' (175 . 1);1
' (176 . 1)
' (177 . 0)
' (178 . 0)
' (145 . 0.0)
'(1 . "huojibk.com")
;第3行1列
'(171 . 1)
'(172 . 0)
'(173 . 0);0
'(174 . 0)
' (175 . 1);1
' (176 . 1)
' (177 . 0)
' (178 . 0)
' (145 . 0.0)
'(1 . "伙计百科2")
;第3行2列
'(171 . 1)
'(172 . 0)
'(173 . 0);0
'(174 . 0)
' (175 . 1);1
' (176 . 1)
' (177 . 0)
' (178 . 0)
' (145 . 0.0)
'(1 . "http://huojibk.com")
)
)
(entmakex bb);创建表
(princ)
)
复制上面是使用组码创建表格，也可以使用函数 vla-addTable 生成，
