lisp关于表格的问题

取个长点勒名字

新手学着lisp画表格，如果画不规则的表格怎么弄？
如图
如果往表格里面自动写内容，是不是要计算每个单独格的中心坐标点，有不有更简单的方法，，求教··

1. (defun c:hbg ()
   
2.   (setvar "cmdecho" 0);_关闭命令提示
   
3.   (princ "\n框选表格位置")
   
4.   (command "rectang" pause pause)
   
5.   (setq name1 (entlast))
   
6.   (setq pt1 (cdr(nth 14 (entget name1))));表格起点
   
7.   (setq pt2 (cdr(nth 18 (entget name1))))
   
8.   (setq pt3 (cdr(nth 22 (entget name1))))
   
9.   (setq pt4 (cdr(nth 26 (entget name1))))
   
10.   (SETQ L (distance pt1 pt2))
    
11.   (SETQ b (distance pt1 pt4))
    
12.   (setq pt1a (cdr(nth 14 (entget name1))))
    
13.   (setq pt2a (cdr(nth 18 (entget name1))))
    
14.   (setq m (getint "\n输入列数量"))
    
15.   (setq n (getint "\n输入行数量"))
    
16.   (setq osmode_bak (getvar "osmode"));_记录捕捉
    
17.   (setvar "osmode" 0);_关闭捕捉
    
18.   
    
19. ;======================画列===============================
    
20.   (setq i1 2)
    
21.    (while (<= i1 m)
    
22.     (setq pt2 (polar pt2 pi (/ L m)))
    
23.     (setq pt3 (polar pt3 pi (/ L m)))
    
24.     (command "line" pt2 pt3 "")
    
25.     (setq i1 (1+ i1))
    
26.   )
    
27. ;=========================画行=============================
    
28.   (setq i2 2)
    
29.   (while (<= i2 n)
    
30.     (setq pt1a (polar pt1a (/ pi -2.0) (/ b n)))
    
31.     (setq pt2a (polar pt2a (/ pi -2.0) (/ b n)))
    
32.     (command "line" pt1a pt2a "")
    
33.     (setq i2 (1+ i2))
    
34.   )
    
35. ;=========================================================
    
36.   (setvar "cmdecho" 1);_打开命令提示
    
37.   (setvar "osmode" osmode_bak);_还原捕捉
    
38.   (princ)
    
39. )

(defun c:hbg ()<br />   (setvar "cmdecho" 0);_关闭命令提示<br />   (princ "\n框选表格位置")<br />   (command "rectang" pause pause)<br />   (setq name1 (entlast))<br />   (setq pt1 (cdr(nth 14 (entget name1))));表格起点<br />   (setq pt2 (cdr(nth 18 (entget name1))))<br />   (setq pt3 (cdr(nth 22 (entget name1))))<br />   (setq pt4 (cdr(nth 26 (entget name1))))<br />   (SETQ L (distance pt1 pt2))<br />   (SETQ b (distance pt1 pt4))<br />   (setq pt1a (cdr(nth 14 (entget name1))))<br />   (setq pt2a (cdr(nth 18 (entget name1))))<br />   (setq m (getint "\n输入列数量"))<br />   (setq n (getint "\n输入行数量"))<br />   (setq osmode_bak (getvar "osmode"));_记录捕捉<br />   (setvar "osmode" 0);_关闭捕捉<br />   <br /> ;======================画列===============================<br />   (setq i1 2)<br />    (while (<= i1 m)<br />     (setq pt2 (polar pt2 pi (/ L m)))<br />     (setq pt3 (polar pt3 pi (/ L m)))<br />     (command "line" pt2 pt3 "")<br />     (setq i1 (1+ i1))<br />   )<br /> ;=========================画行=============================<br />   (setq i2 2)<br />   (while (<= i2 n)<br />     (setq pt1a (polar pt1a (/ pi -2.0) (/ b n)))<br />     (setq pt2a (polar pt2a (/ pi -2.0) (/ b n)))<br />     (command "line" pt1a pt2a "")<br />     (setq i2 (1+ i2))<br />   )<br /> ;=========================================================<br />   (setvar "cmdecho" 1);_打开命令提示<br />   (setvar "osmode" osmode_bak);_还原捕捉<br />   (princ)<br /> )

该贴已经同步到 取个长点勒名字的微博

mmmmmm

AutoCAD有表格实体，直接用最好