如此标注?

qyming

设表                (setq        Tblst (list                "4cm厚AC-13C细粒式改性沥青砼"
                       "AL(m)-3粘层油"
                       "6cm厚AC-20C中粒式沥青砼"
                      "AL(m)-3粘层油"
                      "8cm厚AC-25C粗粒式沥青砼"
                      "AL(m)-3粘层油"
                      "1cm改性沥青碎石封层"
                    "25cm厚C40水泥砼"
                    "20cm厚5%水泥稳定碎石基层"
                   "20cm厚4%水泥稳定碎石底基层"
                  "15cm厚未筛分碎石垫层"
                )
   )

xyp1964

骑着蜗牛旅行666

xyp1964 发表于 2016-1-5 19:36

院长   你就不能直接发源码啊，这伪源码还要币！！！

qyming

1. (setq Tblst (list
   
2.               "4cm厚AC-13C细粒式改性沥青砼"
   
3.               "AL(m)-3粘层油"
   
4.               "6cm厚AC-20C中粒式沥青砼"
   
5.               "AL(m)-3粘层油"
   
6.               "8cm厚AC-25C粗粒式沥青砼"
   
7.               "AL(m)-3粘层油"
   
8.               "1cm改性沥青碎石封层"
   
9.               "25cm厚C40水泥砼"
   
10.               "20cm厚5%水泥稳定碎石基层"
    
11.               "20cm厚4%水泥稳定碎石底基层"
    
12.               "15cm厚未筛分碎石垫层"
    
13.              )
    
14. )
    
15. (ayt2t (getpoint "插入点：") tblst)
    
16. (defun ayt2t (pt Tblst / emkLine emkText textheight h len e pt0)
    
17.   (defun emkLine (startpoint endpoint)
    
18.     (entmake (list '(0 . "LINE")
    
19.                    (cons 10 startpoint)
    
20.                    (cons 11 endpoint)
    
21.              )
    
22.     )
    
23.   )
    
24.   (defun emkText (pt str textheight)
    
25.     (entmake (list '(0 . "TEXT")
    
26.                    (cons 1 str)
    
27.                    (cons 10 pt)
    
28.                    (cons 40 textheight)
    
29.                    (cons 41 0.8)
    
30.                    (cons 11 pt)
    
31.                    (cons 72 0)
    
32.                    (cons 73 2)
    
33.              )
    
34.     )
    
35.   )
    
36.   
    
37.     (setq textheight (getvar "TEXTSIZE") ;字高
    
38.           h             (* textheight 2)        ;表格高
    
39.           len             (apply 'max (mapcar 'strlen Tblst))
    
40.     )                                        ;文字最大值
    
41.     (foreach e (reverse Tblst)
    
42.       (emkLine pt (polar pt 0 (+ len h))) ;横线
    
43.       (setq pt0 (list (+ (car pt) h) (cadr pt))) ;定义字插入点
    
44.       (emkText (polar pt (* Pi 0.25) textheight) e textheight)
    
45.       (emkLine pt (polar pt (* Pi 0.5) h)) ;竖线
    
46.       (setq pt (polar pt (* Pi 0.5) h))
    
47.     )
    
48.     (princ)
    
49.   
    
50. )

(setq Tblst (list<br />               "4cm厚AC-13C细粒式改性沥青砼"<br />               "AL(m)-3粘层油"<br />               "6cm厚AC-20C中粒式沥青砼"<br />               "AL(m)-3粘层油"<br />               "8cm厚AC-25C粗粒式沥青砼"<br />               "AL(m)-3粘层油"<br />               "1cm改性沥青碎石封层"<br />               "25cm厚C40水泥砼"<br />               "20cm厚5%水泥稳定碎石基层"<br />               "20cm厚4%水泥稳定碎石底基层"<br />               "15cm厚未筛分碎石垫层"<br />              )<br /> )<br /> (ayt2t (getpoint "插入点：") tblst)<br /> (defun ayt2t (pt Tblst / emkLine emkText textheight h len e pt0)<br />   (defun emkLine (startpoint endpoint)<br />     (entmake (list '(0 . "LINE")<br />                    (cons 10 startpoint)<br />                    (cons 11 endpoint)<br />              )<br />     )<br />   )<br />   (defun emkText (pt str textheight)<br />     (entmake (list '(0 . "TEXT")<br />                    (cons 1 str)<br />                    (cons 10 pt)<br />                    (cons 40 textheight)<br />                    (cons 41 0.8)<br />                    (cons 11 pt)<br />                    (cons 72 0)<br />                    (cons 73 2)<br />              )<br />     )<br />   )<br />   <br />     (setq textheight (getvar "TEXTSIZE") ;字高<br />           h             (* textheight 2)        ;表格高<br />           len             (apply 'max (mapcar 'strlen Tblst))<br />     )                                        ;文字最大值<br />     (foreach e (reverse Tblst)<br />       (emkLine pt (polar pt 0 (+ len h))) ;横线<br />       (setq pt0 (list (+ (car pt) h) (cadr pt))) ;定义字插入点<br />       (emkText (polar pt (* Pi 0.25) textheight) e textheight)<br />       (emkLine pt (polar pt (* Pi 0.5) h)) ;竖线<br />       (setq pt (polar pt (* Pi 0.5) h))<br />     )<br />     (princ)<br />   <br /> )

不知怎么成组，好修改，望大神修改