列出计算式并显示计算结果

h85760338

newbuser

这个应该不难，论坛里有很多类似的东西。

wangshuping42

愿付费开发，可以联系我。

newbuser

2. (defun c:tt (/ lst clst)
   
3.   (setq ss (ssget '((0 . "LINE"))))  ;选择直线
   
4.   (setq i 0)
   
5.   (repeat (sslength ss)
   
6.     (setq e  (ssname ss i)
   
7.     el (entget e)
   
8.     q  (assoc 10 el)
   
9.     z  (assoc 11 el)
   
10.     )
    
11.     (setq a (cdr q))
    
12.     (setq b (cdr z))
    
13.     (setq
    
14.       pt_Ymax (car (vl-sort (list a b)
    
15.           '(lambda (u v) (> (cadr u) (cadr v)))
    
16.        )
    
17.         )
    
18.     )
    
19.     ;;Y值大的坐标
    
20.     (setq
    
21.       pt_Ymin (car (vl-sort (list a b)
    
22.           '(lambda (u v) (< (cadr u) (cadr v)))
    
23.        )
    
24.         )
    
25.     )
    
26.     ;;X值大坐标
    
27.     (setq ang (angle pt_Ymin pt_Ymax))
    
28.     ;;文字竖直朝左角度
    
29.           ;(setq pt (list (car (cdr q)) (max (caddr q) (caddr z)) 0))              ;;找出Y值大的坐标
    
30.     (setq ss1 (ssget "f" (list (cdr q) (cdr z)) '((0 . "TEXT"))))
    
31.           ;获取通过该直线的文字选择集
    
32.     (setq e1  (ssname ss1 0)
    
33.     el1 (entget e1)
    
34.     h1  (assoc 40 el1)
    
35.     h   (cdr h1)
    
36.     )
    
37.     (setq mrk (atoi (cdr (assoc 1 el1))))
    
38.     ;;获取钢筋编号(将字符串转为整数)
    
39.     (setq e-obj (vlax-ename->vla-object e))
    
40.     ;;转为vla对象
    
41.     (setq l (vla-get-length e-obj))
    
42.     (setq clst (append clst (list l)))
    
43.     ;;获取线的长度
    
44.     (setq str-len (rtos l))
    
45.     ;;单根直线长度字符串
    
46.           ;(setq ang (vla-get-angle e-obj))         ;;获取线的角度
    
47. ;;;       (setq lst nil)
    
48.     (setq lst (append lst (list (list mrk str-len))))
    
49.     (entmake (list '(0 . "TEXT")
    
50.        (cons 8 "0")
    
51.        (append '(10) pt_Ymax)
    
52.        (append '(11) pt_Ymax)
    
53.        h1
    
54.        (cons 1 str-len)
    
55.        (cons 50 ang)
    
56.        (cons 71 0)
    
57.        (cons 72 2)
    
58.        (cons 73 0)
    
59.        )
    
60.     )
    
61.     (setq i (1+ i))
    
62.   )
    
63.   (setq
    
64.     llst (vl-sort lst
    
65.       (function (lambda (e1 e2) (< (car e1) (car e2))))
    
66.    )
    
67.   )
    
68.   (setq p1 (getpoint "\n 请指定X方向表格左上角位置==>> "))
    
69.   ;;表格左上角坐标
    
70.   (setq  pz   (polar p1 0 (* 15.75 h))
    
71.   ;;表格右上角坐标
    
72.   p1_x (polar p1 4.71239 (* 1.4 h))
    
73.   pz_x (polar p1_x 0 (* 15.75 h))
    
74.   p_c  (polar p1 0 (* 5.25 h))
    
75.   p_g  (polar p1 0 (* 10.5 h))
    
76.   )
    
77.   (command "line" p1 pz "")
    
78.   (command "line" p1_x pz_x "")
    
79. ;;;     (setq btxlst (list (list p1 pz) (list p1_x pz_x)))
    
80. ;;;     (点表生成直线 btxlst)
    
81.   (setq  pp  (polar p1 4.71239 (* 1.275 h))
    
82.   pbh (polar pp 0 (* h 0.125))
    
83.   ;;编号插入点
    
84.   pcd (polar pp 0 (* h 5.375))
    
85.   ;;长度插入点
    
86.   pgs (polar pp 0 (* h 10.625))
    
87.       ;;根数插入点
    
88.   )
    
89.   (setq n 0)
    
90.   (repeat (length llst)
    
91.     (setq pq (polar p1 4.71239 (* (+ (* n 1.4) 2.8) h)))
    
92.     ;;文字下横线起点
    
93.     (setq pe (polar pq 0 (* 15.75 h)))
    
94.     ;;由起点算出终点
    
95.     (setq bm1 (polar pbh 4.71239 (+ (* 1.4 h) (apply '* (list 1.4 n h))))
    
96.     bm2 (polar bm1 0 (* 5.25 h))
    
97.     bm3 (polar bm1 0 (* 10.5 h))
    
98.     )
    
99.     (setq zlst (nth n llst))
    
100.     (entmake (list '(0 . "TEXT")
     
101.        (cons 1 (itoa (car zlst)))
     
102.        h1
     
103.        (append '(10) bm1)
     
104.        )
     
105.     )
     
106.     (entmake (list '(0 . "TEXT")
     
107.        (cons 1 (cadr zlst))
     
108.        h1
     
109.        (append '(10) bm2)
     
110.        )
     
111.     )
     
112.     (entmake
     
113.       (list '(0 . "TEXT") (cons 1 "1") h1 (append '(10) bm3))
     
114.     )
     
115.     (command "line" pq pe "")
     
116.     (setq n (1+ n))
     
117.   )
     
118.   (setq  pd1 (polar p1
     
119.        4.71239
     
120.        (apply '* (list (+ (length llst) 2) 1.4 h))
     
121.       )
     
122.   pd2 (polar p_c
     
123.        4.71239
     
124.        (apply '* (list (+ (length llst) 2) 1.4 h))
     
125.       )
     
126.   pd3 (polar p_g
     
127.        4.71239
     
128.        (apply '* (list (+ (length llst) 2) 1.4 h))
     
129.       )
     
130.   pd4 (polar pz
     
131.        4.71239
     
132.        (apply '* (list (+ (length llst) 2) 1.4 h))
     
133.       )
     
134.   )
     
135.   (setq  phz (polar pbh
     
136.        4.71239
     
137.        (apply '* (list (+ (length llst) 1) 1.4 h))
     
138.       )
     
139.   pz1 (polar phz 0 (* h 5.375))
     
140.   pz2 (polar phz 0 (* h 10.625))
     
141.   )
     
142. 
     
143.   (command "line" p1 pd1 "")
     
144.   (command "line" p_c pd2 "")
     
145.   (command "line" p_g pd3 "")
     
146.   (command "line" pz pd4 "")
     
147.   (command "line" pd1 pd4 "")
     
148.   (setq  btlst
     
149.    (list (list "编号" pbh)
     
150.          (list "长度" pcd)
     
151.          (list "根数" pgs)
     
152.          (list "汇总" phz)
     
153.          (list (rtos (apply '+ clst) 2 3) pz1)
     
154.          (list (rtos (length llst) 2 0) pz2)
     
155.    )
     
156.   )
     
157.   ;;标题文字坐标插入点表
     
158.   (foreach n btlst
     
159.     (entmake (list '(0 . "TEXT")
     
160.        (cons 1 (car n))
     
161.        (append '(10) (cadr n))
     
162.        h1
     
163.        )
     
164.     )
     
165.   )
     
166.   ;;标题文字生成
     
167. )

(defun c:tt (/ lst clst)<br />   (setq ss (ssget '((0 . "LINE"))))  ;选择直线<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq e  (ssname ss i)<br />     el (entget e)<br />     q  (assoc 10 el)<br />     z  (assoc 11 el)<br />     )<br />     (setq a (cdr q))<br />     (setq b (cdr z))<br />     (setq<br />       pt_Ymax (car (vl-sort (list a b)<br />           '(lambda (u v) (> (cadr u) (cadr v)))<br />        )<br />         )<br />     )<br />     ;;Y值大的坐标<br />     (setq<br />       pt_Ymin (car (vl-sort (list a b)<br />           '(lambda (u v) (< (cadr u) (cadr v)))<br />        )<br />         )<br />     )<br />     ;;X值大坐标<br />     (setq ang (angle pt_Ymin pt_Ymax))<br />     ;;文字竖直朝左角度<br />           ;(setq pt (list (car (cdr q)) (max (caddr q) (caddr z)) 0))              ;;找出Y值大的坐标<br />     (setq ss1 (ssget "f" (list (cdr q) (cdr z)) '((0 . "TEXT"))))<br />           ;获取通过该直线的文字选择集<br />     (setq e1  (ssname ss1 0)<br />     el1 (entget e1)<br />     h1  (assoc 40 el1)<br />     h   (cdr h1)<br />     )<br />     (setq mrk (atoi (cdr (assoc 1 el1))))<br />     ;;获取钢筋编号(将字符串转为整数)<br />     (setq e-obj (vlax-ename->vla-object e))<br />     ;;转为vla对象<br />     (setq l (vla-get-length e-obj))<br />     (setq clst (append clst (list l)))<br />     ;;获取线的长度<br />     (setq str-len (rtos l))<br />     ;;单根直线长度字符串<br />           ;(setq ang (vla-get-angle e-obj))         ;;获取线的角度<br /> ;;;       (setq lst nil)<br />     (setq lst (append lst (list (list mrk str-len))))<br />     (entmake (list '(0 . "TEXT")<br />        (cons 8 "0")<br />        (append '(10) pt_Ymax)<br />        (append '(11) pt_Ymax)<br />        h1<br />        (cons 1 str-len)<br />        (cons 50 ang)<br />        (cons 71 0)<br />        (cons 72 2)<br />        (cons 73 0)<br />        )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (setq<br />     llst (vl-sort lst<br />       (function (lambda (e1 e2) (< (car e1) (car e2))))<br />    )<br />   )<br />   (setq p1 (getpoint "\n 请指定X方向表格左上角位置==>> "))<br />   ;;表格左上角坐标<br />   (setq  pz   (polar p1 0 (* 15.75 h))<br />   ;;表格右上角坐标<br />   p1_x (polar p1 4.71239 (* 1.4 h))<br />   pz_x (polar p1_x 0 (* 15.75 h))<br />   p_c  (polar p1 0 (* 5.25 h))<br />   p_g  (polar p1 0 (* 10.5 h))<br />   )<br />   (command "line" p1 pz "")<br />   (command "line" p1_x pz_x "")<br /> ;;;     (setq btxlst (list (list p1 pz) (list p1_x pz_x)))<br /> ;;;     (点表生成直线 btxlst)<br />   (setq  pp  (polar p1 4.71239 (* 1.275 h))<br />   pbh (polar pp 0 (* h 0.125))<br />   ;;编号插入点<br />   pcd (polar pp 0 (* h 5.375))<br />   ;;长度插入点<br />   pgs (polar pp 0 (* h 10.625))<br />       ;;根数插入点<br />   )<br />   (setq n 0)<br />   (repeat (length llst)<br />     (setq pq (polar p1 4.71239 (* (+ (* n 1.4) 2.8) h)))<br />     ;;文字下横线起点<br />     (setq pe (polar pq 0 (* 15.75 h)))<br />     ;;由起点算出终点<br />     (setq bm1 (polar pbh 4.71239 (+ (* 1.4 h) (apply '* (list 1.4 n h))))<br />     bm2 (polar bm1 0 (* 5.25 h))<br />     bm3 (polar bm1 0 (* 10.5 h))<br />     )<br />     (setq zlst (nth n llst))<br />     (entmake (list '(0 . "TEXT")<br />        (cons 1 (itoa (car zlst)))<br />        h1<br />        (append '(10) bm1)<br />        )<br />     )<br />     (entmake (list '(0 . "TEXT")<br />        (cons 1 (cadr zlst))<br />        h1<br />        (append '(10) bm2)<br />        )<br />     )<br />     (entmake<br />       (list '(0 . "TEXT") (cons 1 "1") h1 (append '(10) bm3))<br />     )<br />     (command "line" pq pe "")<br />     (setq n (1+ n))<br />   )<br />   (setq  pd1 (polar p1<br />        4.71239<br />        (apply '* (list (+ (length llst) 2) 1.4 h))<br />       )<br />   pd2 (polar p_c<br />        4.71239<br />        (apply '* (list (+ (length llst) 2) 1.4 h))<br />       )<br />   pd3 (polar p_g<br />        4.71239<br />        (apply '* (list (+ (length llst) 2) 1.4 h))<br />       )<br />   pd4 (polar pz<br />        4.71239<br />        (apply '* (list (+ (length llst) 2) 1.4 h))<br />       )<br />   )<br />   (setq  phz (polar pbh<br />        4.71239<br />        (apply '* (list (+ (length llst) 1) 1.4 h))<br />       )<br />   pz1 (polar phz 0 (* h 5.375))<br />   pz2 (polar phz 0 (* h 10.625))<br />   )<br /> <br />   (command "line" p1 pd1 "")<br />   (command "line" p_c pd2 "")<br />   (command "line" p_g pd3 "")<br />   (command "line" pz pd4 "")<br />   (command "line" pd1 pd4 "")<br />   (setq  btlst<br />    (list (list "编号" pbh)<br />          (list "长度" pcd)<br />          (list "根数" pgs)<br />          (list "汇总" phz)<br />          (list (rtos (apply '+ clst) 2 3) pz1)<br />          (list (rtos (length llst) 2 0) pz2)<br />    )<br />   )<br />   ;;标题文字坐标插入点表<br />   (foreach n btlst<br />     (entmake (list '(0 . "TEXT")<br />        (cons 1 (car n))<br />        (append '(10) (cadr n))<br />        h1<br />        )<br />     )<br />   )<br />   ;;标题文字生成<br /> )

已经初步形成了，不过，沿X方向你自己看着修改下吧。希望能够满足您的要求。

852456

看帖回帖是美德