请教单行文字对齐

TPG辉

• t1 '("序号" "尺寸" "个数" "数量")
• t2 '("T1" "36" "633" "63")
• t3 '("T2" "8544" "52" "635")
  

请问怎么把上面的三个表，输出整行单行文字，右对齐

sharetow

TPG辉 发表于 2020-1-13 14:57
这样才对

1. (defun c:xx(/ gd1 gd2 pt)
   
2.   (setq gd1 '("T1" "525" "635" ))
   
3.   (setq gd2 '("T10" "44564" "63555"))
   
4.   (setq pt (getpoint "\n->统计数据报表左上插入点:"))
   
5.   (LL:Txtbx pt gd1 20)
   
6.   (setq pt (polar pt (- 0 (/ pi 2)) 5))
   
7.   (LL:Txtbx pt gd2 20)
   
8. )
   
9. (defun LL:Txtbx(lt1 lt2 lt3 / i t1)
   
10.   (setq i 0)
    
11.   (repeat (length lt2)
    
12.     (setq t1 (polar lt1 0 (* lt3 i)))
    
13.     (entmake (list
    
14.                '(0 . "TEXT")
    
15.                (cons 1 (nth i lt2))
    
16.                (cons 7 "Standard")
    
17.                (cons 8 "dim")
    
18.                '(10 0 0 0)
    
19.                (cons 11 t1)
    
20.                (cons 40 (* lt3 0.15))
    
21.                (cons 41 0.75)
    
22.                (cons 50 0)
    
23.                (cons 72 2)
    
24.                (cons 73 1)
    
25.                '(100 . "AcDbText")
    
26.              )
    
27.     )
    
28.     (setq i (1+ i))
    
29.   )
    
30. )

(defun c:xx(/ gd1 gd2 pt)<br />   (setq gd1 '("T1" "525" "635" ))<br />   (setq gd2 '("T10" "44564" "63555"))<br />   (setq pt (getpoint "\n->统计数据报表左上插入点:"))<br />   (LL:Txtbx pt gd1 20)<br />   (setq pt (polar pt (- 0 (/ pi 2)) 5))<br />   (LL:Txtbx pt gd2 20)<br /> )<br /> (defun LL:Txtbx(lt1 lt2 lt3 / i t1)<br />   (setq i 0)<br />   (repeat (length lt2)<br />     (setq t1 (polar lt1 0 (* lt3 i)))<br />     (entmake (list<br />                '(0 . "TEXT")<br />                (cons 1 (nth i lt2))<br />                (cons 7 "Standard")<br />                (cons 8 "dim")<br />                '(10 0 0 0)<br />                (cons 11 t1)<br />                (cons 40 (* lt3 0.15))<br />                (cons 41 0.75)<br />                (cons 50 0)<br />                (cons 72 2)<br />                (cons 73 1)<br />                '(100 . "AcDbText")<br />              )<br />     )<br />     (setq i (1+ i))<br />   )<br /> )

mokson

只有lisp高手才做到得到了。

sharetow

写个点位的表

1. (foreach x t1
   
2.   (entmake (list
   
3.              '(0 . "TEXT")
   
4.              (cons 1 x)
   
5.              (cons 11 点位)
   
6.            )
   
7.   )
   
8. )

(foreach x t1<br />   (entmake (list<br />              '(0 . "TEXT")<br />              (cons 1 x)<br />              (cons 11 点位)<br />            )<br />   )<br /> )

TPG辉

sharetow 发表于 2020-1-13 09:13
写个点位的表

2. (defun c:xx(/ gd gd1 gd2 po pt)
   
3.         (setq gd1 '("T1" "525" "635" ))
   
4.         (setq gd2 '("T10" "44564" "63555"))
   
5.         (setq gd (append gd1 gd2))
   
6.         (setq sb (length gd))
   
7.         (setq pt (getpoint "\n->统计数据报表左上插入点:"))
   
8.         (setq po (XD::Pnts:Matrix pt sb 3 5 5))
   
9.         (foreach x gd
   
10.                 (entmake (list
    
11.                                                          '(0 . "TEXT")
    
12.                                                          (cons 1 x)
    
13.                                                          (cons 11 po)
    
14.                                                  )
    
15.                 )
    
16.                 (setq po (polar po *x-pi15* 4.26))
    
17.         )
    
18. )
    
19. 
    
20. (defun XD::Pnts:Matrix (basepnt rows cols rowgap colgap / j rowpts pts)
    
21.   (repeat rows
    
22.     (setq j -1)
    
23.     (setq rowpts nil)
    
24.     (setq basepnt
    
25.                         (polar basepnt (- (/ pi 2.0)) rowgap)
    
26.     )
    
27.     (repeat cols
    
28.       (setq
    
29.         rowpts (cons (polar basepnt 0.0 (* colgap (setq j (1+ j))))
    
30.                                                                  rowpts
    
31.                )
    
32.       )
    
33.     )
    
34.     (setq pts (cons (reverse rowpts) pts))
    
35.   )
    
36.   (reverse pts)
    
37. )

(defun c:xx(/ gd gd1 gd2 po pt)<br />         (setq gd1 '("T1" "525" "635" ))<br />         (setq gd2 '("T10" "44564" "63555"))<br />         (setq gd (append gd1 gd2))<br />         (setq sb (length gd))<br />         (setq pt (getpoint "\n->统计数据报表左上插入点:"))<br />         (setq po (XD::Pnts:Matrix pt sb 3 5 5))<br />         (foreach x gd<br />                 (entmake (list<br />                                                          '(0 . "TEXT")<br />                                                          (cons 1 x)<br />                                                          (cons 11 po)<br />                                                  )<br />                 )<br />                 (setq po (polar po *x-pi15* 4.26))<br />         )<br /> )<br /> <br /> (defun XD::Pnts:Matrix (basepnt rows cols rowgap colgap / j rowpts pts)<br />   (repeat rows<br />     (setq j -1)<br />     (setq rowpts nil)<br />     (setq basepnt<br />                         (polar basepnt (- (/ pi 2.0)) rowgap)<br />     )<br />     (repeat cols<br />       (setq<br />         rowpts (cons (polar basepnt 0.0 (* colgap (setq j (1+ j))))<br />                                                                  rowpts<br />                )<br />       )<br />     )<br />     (setq pts (cons (reverse rowpts) pts))<br />   )<br />   (reverse pts)<br /> )

TPG辉

sharetow 发表于 2020-1-13 09:13
写个点位的表

哪里错了吗?

sharetow

TPG辉 发表于 2020-1-13 11:53
哪里错了吗?

你的这种需求，这样写可能运行快一点。

1. (defun c:xx(/ gd1 gd2 pt)
   
2.   (setq gd1 '("T1" "525" "635" ))
   
3.   (setq gd2 '("T10" "44564" "63555"))
   
4.   (setq pt (getpoint "\n->统计数据报表左上插入点:"))
   
5.   (LL:Txtbx pt gd1 5)
   
6.   (setq pt (polar pt 0 20))
   
7.   (LL:Txtbx pt gd2 5)
   
8. )
   
9. 
   
10. (defun LL:Txtbx(lt1 lt2 lt3 / i t1)
    
11.   (setq i 0)
    
12.   (repeat (length lt2)
    
13.     (setq t1 (polar lt1 (- 0 (/ pi 2)) (* lt3 i)))
    
14.     (entmake (list
    
15.                '(0 . "TEXT")
    
16.                (cons 1 (nth i lt2))
    
17.                (cons 7 "Standard")
    
18.                (cons 8 "dim")
    
19.                '(10 0 0 0)
    
20.                (cons 11 t1)
    
21.                (cons 40 (* lt3 0.75))
    
22.                (cons 41 0.75)
    
23.                (cons 50 0)
    
24.                (cons 72 2)
    
25.                (cons 73 1)
    
26.                '(100 . "AcDbText")
    
27.              )
    
28.     )
    
29.     (setq i (1+ i))
    
30.   )
    
31. )

(defun c:xx(/ gd1 gd2 pt)<br />   (setq gd1 '("T1" "525" "635" ))<br />   (setq gd2 '("T10" "44564" "63555"))<br />   (setq pt (getpoint "\n->统计数据报表左上插入点:"))<br />   (LL:Txtbx pt gd1 5)<br />   (setq pt (polar pt 0 20))<br />   (LL:Txtbx pt gd2 5)<br /> )<br /> <br /> (defun LL:Txtbx(lt1 lt2 lt3 / i t1)<br />   (setq i 0)<br />   (repeat (length lt2)<br />     (setq t1 (polar lt1 (- 0 (/ pi 2)) (* lt3 i)))<br />     (entmake (list<br />                '(0 . "TEXT")<br />                (cons 1 (nth i lt2))<br />                (cons 7 "Standard")<br />                (cons 8 "dim")<br />                '(10 0 0 0)<br />                (cons 11 t1)<br />                (cons 40 (* lt3 0.75))<br />                (cons 41 0.75)<br />                (cons 50 0)<br />                (cons 72 2)<br />                (cons 73 1)<br />                '(100 . "AcDbText")<br />              )<br />     )<br />     (setq i (1+ i))<br />   )<br /> )

[/code]

TPG辉

sharetow 发表于 2020-1-13 14:50
你的这种需求，这样写可能运行快一点。
[/code]

这样才对