将lst写出到cad做表,求高手指点....

77077

想模拟院长的xyp-List2TableAuto ,可惜新手太笨,尽是错误代码.
写不下去了,不知道错在哪里~~~只循环一次就没后文了,求高手指点下...

2. ;将lst写出到cad做表
   
3. ;pt表格左上角 LST表 ZG字体高度
   
4. ;(LST2TAB (getpoint "\n指定表格左上角") LST 3.5)
   
5. (defun lst2tab (pt lst zg)
   
6.   (setq h (* zg 2);单元格高
   
7.         n (length lst);总行数4
   
8.         nn (apply 'max (mapcar 'length lst));子表最大长度,决定总列数11
   
9.         len 0
   
10.         i 0);循环计数1
    
11. (entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 pt) (cons 11 (polar pt (* pi 1.5) (* n h)))));绘制左边第一条竖线
    
12. (repeat nn  ;重复写出;repeat1
    
13.   (setq lsti (mapcar '(lambda (x) (nth i x)) lst);取相应列数据
    
14.         leni  (1+ (apply 'max (mapcar 'strlen lsti)));列宽度
    
15.         len (+ len leni)
    
16.         pt1 (polar pt 0 len);竖线起点
    
17.         ii 0);循环计数2        
    
18.    (entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 pt1) (cons 11 (polar pt1 (* pi 1.5) (* n h)))));绘制文字右侧竖线
    
19.    (repeat n ;重复写出列文字,repeat2
    
20.        (setq str (vl-princ-to-string (nth ii lsti)));取出字符
    
21.        (if (not str)(setq str ""))
    
22.        (setq pti (polar pt1 pi (* leni 0.5)))
    
23.        (setq ptii (polar pti (* pi 1.5) (* (+ 0.5 ii) h)));文字位置
    
24.        (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 ptii)  (cons 73 2) (cons 72 1)  (cons 11 ptii) (cons 40 zg) (cons 41 1.0)));写出文字
    
25.        (setq ii (1+ ii))
    
26.        );repeat2
    
27. (setq i (1+ i))
    
28. );repeat1
    
29. )
    
30. ;==============程序开始===================
    
31. (defun C:TT()
    
32.   (setq LST '(
    
33.              ("项目" "列1" "列2" "列3" "列4" "列5" "列6" "列7")
    
34.             ("行1" 1 12 123 1234 12345 123456 1234567 12345678 123456780 1234567890)
    
35.              ("行2" 1 12 123 1234 12345 123456 1234567 12345678 123456789)
    
36.              ("行3" "后面空" "" "前面空" "1234" "文本" "ABCDE")
    
37.             )
    
38.             )
    
39. (setq pt (getpoint "\n指定表格左上角"))
    
40. (setq zg 1)
    
41. (LST2TAB pt LST zg)
    
42. )

;将lst写出到cad做表<br /> ;pt表格左上角 LST表 ZG字体高度<br /> ;(LST2TAB (getpoint "\n指定表格左上角") LST 3.5)<br /> (defun lst2tab (pt lst zg)<br />   (setq h (* zg 2);单元格高<br />         n (length lst);总行数4<br />         nn (apply 'max (mapcar 'length lst));子表最大长度,决定总列数11<br />         len 0<br />         i 0);循环计数1<br /> (entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 pt) (cons 11 (polar pt (* pi 1.5) (* n h)))));绘制左边第一条竖线<br /> (repeat nn  ;重复写出;repeat1<br />   (setq lsti (mapcar '(lambda (x) (nth i x)) lst);取相应列数据<br />         leni  (1+ (apply 'max (mapcar 'strlen lsti)));列宽度<br />         len (+ len leni)<br />         pt1 (polar pt 0 len);竖线起点<br />         ii 0);循环计数2        <br />    (entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 pt1) (cons 11 (polar pt1 (* pi 1.5) (* n h)))));绘制文字右侧竖线<br />    (repeat n ;重复写出列文字,repeat2<br />        (setq str (vl-princ-to-string (nth ii lsti)));取出字符<br />        (if (not str)(setq str ""))<br />        (setq pti (polar pt1 pi (* leni 0.5)))<br />        (setq ptii (polar pti (* pi 1.5) (* (+ 0.5 ii) h)));文字位置<br />        (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 ptii)  (cons 73 2) (cons 72 1)  (cons 11 ptii) (cons 40 zg) (cons 41 1.0)));写出文字<br />        (setq ii (1+ ii))<br />        );repeat2<br /> (setq i (1+ i))<br /> );repeat1<br /> )<br /> ;==============程序开始===================<br /> (defun C:TT()<br />   (setq LST '(<br />              ("项目" "列1" "列2" "列3" "列4" "列5" "列6" "列7")<br />             ("行1" 1 12 123 1234 12345 123456 1234567 12345678 123456780 1234567890) <br />              ("行2" 1 12 123 1234 12345 123456 1234567 12345678 123456789)<br />              ("行3" "后面空" "" "前面空" "1234" "文本" "ABCDE")<br />             )<br />             )<br /> (setq pt (getpoint "\n指定表格左上角"))<br /> (setq zg 1)<br /> (LST2TAB pt LST zg)<br /> )

77077

初步判断,错误发生在这里,当数据为空的时候,就终止了~ 参数类型错误: stringp nil
(setq lsti (mapcar '(lambda (x) (nth i x)) lst);取相应列数据
        leni  (1+ (apply 'max (mapcar 'strlen lsti))));列宽度

reyun

d:\QQ图片20140707170557.jpg

77077

(if (not str)(setq str ""))
这句话好像没起作用啊~