[讨论]：最没条理的程序(还没整理)-独立基础

ago9999

2. 
   
3. (defun c:jichu (/ pianyi bili l_1 l_2a l_2b pt0 x y d d1 d2 pt_1a pt_1b pt_1c pt_1d
   
4.                 pt_2a pt_2b pt_2c pt_2d pt_3a pt_3b pt_3c pt_3d
   
5.                 pt_4a pt_4b pt_4c pt_4d )
   
6.   (princ "\n请输入预埋板宽度：")
   
7.   (setq l_1 (getint))
   
8.   (princ "\n请输入基础长度：")
   
9.   (setq l_2a (getint))
   
10.   (princ "\n请输入基础宽度：")
    
11.   (setq l_2b (getint))
    
12.   (princ "\n请指定位置：")
    
13.   (setq pt0 (getpoint))
    
14.   (sta)
    
15.     (cond
    
16.     ((> (/ l_2a 70) 10)(setq bili 10)))
    
17.   (cond
    
18.     ((> (/ l_2a 70) 15)(setq bili 16)))
    
19.   (cond
    
20.     ((> (/ l_2a 70) 19)(setq bili 20)))
    
21.   (cond
    
22.     ((> (/ l_2a 70) 29)(setq bili 30)))
    
23.   (cond
    
24.     ((> (/ l_2a 70) 39)(setq bili 40)))
    
25.   (cond
    
26.     ((> (/ l_2a 70) 49)(setq bili 50))
    
27.     )
    
28.   (setq pianyi (* bili 8))
    
29. 
    
30.   ;;;基础平面
    
31.   (setq x (nth 0 pt0) y (nth 1 pt0))
    
32.   (setq d (* 0.5 l_1))
    
33.   (setq pt_1a (list (- x d) (+ y d) 0)
    
34.         pt_1b (list (+ x d) (+ y d) 0)
    
35.         pt_1c (list (+ x d) (- y d) 0)
    
36.         pt_1d (list (- x d) (- y d) 0));
    
37.   (setq d (+ d 50))
    
38.   (setq pt_2a (list (- x d) (+ y d) 0)
    
39.         pt_2b (list (+ x d) (+ y d) 0)
    
40.         pt_2c (list (+ x d) (- y d) 0)
    
41.         pt_2d (list (- x d) (- y d) 0));
    
42.   (setq d1 (* 0.5 l_2a))
    
43.   (setq d2 (* 0.5 l_2b))
    
44.   (setq pt_3a (list (- x d1) (+ y d2) 0)
    
45.         pt_3b (list (+ x d1) (+ y d2) 0)
    
46.         pt_3c (list (+ x d1) (- y d2) 0)
    
47.         pt_3d (list (- x d1) (- y d2) 0));
    
48.   (setq d1 (+ d1 100))
    
49.   (setq d2 (+ d2 100))
    
50.   (setq pt_4a (list (- x d1) (+ y d2) 0)
    
51.         pt_4b (list (+ x d1) (+ y d2) 0)
    
52.         pt_4c (list (+ x d1) (- y d2) 0)
    
53.         pt_4d (list (- x d1) (- y d2) 0));
    
54.   (command "rectang" pt_1a pt_1c)
    
55.   (command "rectang" pt_2a pt_2c)
    
56.   (command "rectang" pt_3a pt_3c)
    
57.   (command "rectang" pt_4a pt_4c)
    
58.   (command "line" pt_2a pt_3a "")
    
59.   (command "line" pt_2b pt_3b "")
    
60.   (command "line" pt_2c pt_3c "")
    
61.   (command "line" pt_2d pt_3d "")
    
62.   ;;;基础立面
    
63.   (command "pline"
    
64.            (list (- x d1) (- y d2 2000));1
    
65.            (list (+ x d1) (- y d2 2000));2
    
66.            (list (+ x d1) (- y d2 1900));3
    
67.            (list (+ x d1 -100) (- y d2 1900));4
    
68.            (list (+ x d1 -100) (- y d2 1700));5
    
69.            (list (+ x d) (- y d2 1500));6
    
70.            (list (+ x d) (- y d2 900));7
    
71.            (list (- x d) (- y d2 900));8
    
72.            (list (- x d) (- y d2 1500));9
    
73.            (list (- x d1 -100) (- y d2 1700));10
    
74.            (list (- x d1 -100) (- y d2 1900));11
    
75.            (list (- x d1) (- y d2 1900));12
    
76.            "c"
    
77.            )
    
78.   (command "line" (list (- x d1 -100) (- y d2 1900)) (list (+ x d1 -100) (- y d2 1900)) "")
    
79.   (command "pline"
    
80.            (list (+ x d -50) (- y d2 900));13
    
81.            (list (+ x d -50) (- y d2 914));14
    
82.            (list (- x d -50) (- y d2 914));15
    
83.            (list (- x d -50) (- y d2 900));16
    
84.             "")
    
85.   (command "zoom" (list (- x l_2a) (+ y l_2b)) (list (+ x l_2a) (- y l_2b 2000)))
    
86.   ;;;配筋
    
87.   (command "pline"
    
88.            (list (- x d -40) (- y d2 940))
    
89.            (list (- x d -40) (- y d2 1840))
    
90.            (list (- x d 160) (- y d2 1840))
    
91.            "")
    
92.   (command "pline"
    
93.            (list (+ x d -40) (- y d2 940))
    
94.            (list (+ x d -40) (- y d2 1840))
    
95.            (list (+ x d 160) (- y d2 1840))
    
96.            "")
    
97.   (command "line"
    
98.            (list x (- y d2 940))
    
99.            (list x (- y d2 1840))
    
100.            "")
     
101.   (command "line"
     
102.            (list (- x d1 -140) (- y d2 1860))
     
103.            (list (+ x d1 -140) (- y d2 1860))
     
104.            "")
     
105.   ;;;箍筋
     
106.   (command "line"
     
107.            (list (- x d -40) (- y d2 990))
     
108.            (list (+ x d -40) (- y d2 990))
     
109.            "")
     
110.   (command "line"
     
111.            (list (- x d -40) (- y d2 1140))
     
112.            (list (+ x d -40) (- y d2 1140))
     
113.            "")
     
114.   (command "line"
     
115.            (list (- x d -40) (- y d2 1290))
     
116.            (list (+ x d -40) (- y d2 1290))
     
117.            "")
     
118.   (command "line"
     
119.            (list (- x d -40) (- y d2 1440))
     
120.            (list (+ x d -40) (- y d2 1440))
     
121.            "")
     
122.   (command "line"
     
123.            (list (- x d -40) (- y d2 1590))
     
124.            (list (+ x d -40) (- y d2 1590))
     
125.            "")
     
126.   (command "line"
     
127.            (list (- x d -40) (- y d2 1740))
     
128.            (list (+ x d -40) (- y d2 1740))
     
129.            "")
     
130.   (command "circle" (list x (- y d2 1850)) "5")
     
131.   (command "-bhatch" "p" "SOLID" "s" "l" "" "")
     
132.   (command "-array" "l" "" "r" "1" (fix (/ l_2a 300)) "150")
     
133.   (command "-array" "p" "" "r" "1" (fix (/ l_2a 300)) "-150")
     
134.   ;;;尺寸
     
135. (command "zoom" (strcat "1/" (itoa bili) "xp"))
     
136.   ;;;长度方向
     
137.   (command "dimlinear" (polar pt_3d (* -0.5 pi) 100) (polar pt_3c (* -0.5 pi) 100)
     
138.            (polar pt_3c (* -0.5 pi) (+ (* 2 pianyi) 100)));;总长
     
139.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
140.   (command "dimlinear" (polar pt_3d (* -0.5 pi) 100) pt_4d
     
141.            (polar pt_3c (* -0.5 pi) (+ (* 2 pianyi) 100)))
     
142.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
143.   (command "dimlinear" (polar pt_3c (* -0.5 pi) 100) pt_4c
     
144.            (polar pt_3c (* -0.5 pi) (+ (* 2 pianyi) 100)));;两侧垫层
     
145.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
146.   (command "dimlinear" (polar pt_3d (* -0.5 pi) 100) (list (nth 0 pt_2d) (nth 1 pt_4d) 0)
     
147.            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))
     
148.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
149.   (command "dimlinear" (list x (nth 1 pt_4d)) (list (nth 0 pt_2d) (nth 1 pt_4d))
     
150.            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))
     
151.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
152.   (command "dimlinear" (polar pt_3c (* -0.5 pi) 100) (list (nth 0 pt_2c) (nth 1 pt_4d) 0)
     
153.            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))
     
154.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
155.   (command "dimlinear" (list x (nth 1 pt_4d)) (list (nth 0 pt_2c) (nth 1 pt_4d))
     
156.            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))
     
157.   (command "copy" "l" "" "0,0,0" "0,-2000,0")
     
158. 
     
159.   ;;;高度方向
     
160.   (command "dimlinear" (list (+ x d1) (- y d2 2000))  (list (+ x d1) (- y d2 1900))
     
161.            (list (+ x d1 pianyi pianyi) (- y d2 1900)));;垫层
     
162.   (command "dimlinear" (list (+ x d1) (- y d2 1900))  (list (+ x d1) (- y d2 900))
     
163.            (list (+ x d1 pianyi pianyi) (- y d2 1900)))
     
164.   (command "dimlinear" (list (+ x d1) (- y d2 1900))  (list (+ x d1) (- y d2 1700))
     
165.            (list (+ x d1 pianyi) (- y d2 1900)))
     
166.   (command "dimlinear" (list (+ x d1) (- y d2 1700))  (list (+ x d1) (- y d2 1500))
     
167.            (list (+ x d1 pianyi) (- y d2 1900)))
     
168.   (command "dimlinear" (list (+ x d1) (- y d2 1500))  (list (+ x d1) (- y d2 900))
     
169.            (list (+ x d1 pianyi) (- y d2 1900)))
     
170.   ;;;插入标高
     
171.   (command "-insert" "标高符号" "s" bili (list (+ x d1 pianyi pianyi) (- y d2 900)) "")
     
172.   ;(command "DDEDIT" "l"  "-0.100" "")
     
173.   ;;;插入图名
     
174.   (command "-insert" "图名符号" "s" bili (list x (- y d2 (* 3 pianyi))) "")
     
175.   (command "-insert" "图名符号" "s" bili (list x (- y d2 2000 (* 3 pianyi))) "")
     
176.     ;;;宽度方向
     
177.   (command "dimlinear" (list (+ x d1) (- y (* 0.5 l_2b))) (list (+ x d1) (- y (* 0.5 l_2b) 100))
     
178.            (list (+ x d1 pianyi pianyi) (- y (* 0.5 l_2b))))
     
179.   (command "dimlinear" (list (+ x d1) (- y (* 0.5 l_2b))) (list (+ x d1) (- y (* 0.5 l_1) 50))
     
180.            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))
     
181.   (command "dimlinear" (list (+ x d1) y) (list (+ x d1) (- y (* 0.5 l_1) 50))
     
182.            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))
     
183.   (command "dimlinear" (list (+ x d1) y) (list (+ x d1) (+ y (* 0.5 l_1) 50))
     
184.            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))
     
185.   (command "dimlinear" (list (+ x d1) (+ y (* 0.5 l_2b))) (list (+ x d1) (+ y (* 0.5 l_1) 50))
     
186.            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))
     
187.   (command "dimlinear" (list (+ x d1) (+ y (* 0.5 l_2b))) (list (+ x d1) (+ y (* 0.5 l_2b) 100))
     
188.            (list (+ x d1 pianyi pianyi) (- y (* 0.5 l_2b))))
     
189.   ;;
     
190.   (command "dimlinear" (list (+ x d1) (- y (* 0.5 l_2b))) (list (+ x d1) (+ y (* 0.5 l_2b)))
     
191.            (list (+ x d1 pianyi pianyi) (- y (* 0.5 l_2b))))
     
192. 
     
193.   (end)
     
194.   )
     
195. ;;;(chicun pt10 pt11 pt12 pt13 pt14 faxiang tuceng wenzi)
     
196. (defun chicun (pt10 pt11 pt12 pt13 pt14 faxiang tuceng wenzi / chicun)
     
197.   (setq chicun (list
     
198. ;***(-1 . <图元名: 4006cde0>)
     
199. (cons 0  "DIMENSION")
     
200. ;***(330 . <图元名: 40066cf8>)
     
201. ;***(5 . 1E64)
     
202. ;***(100 . AcDbEntity)
     
203. ;***(67 . 0)
     
204. ;***(410 . Model)
     
205. tuceng;(8 . ANCHOR_LINE)图层
     
206. ;(cons 48 0.3)
     
207. ;***(100 . AcDbDimension)
     
208. ;***(2 . *D17)
     
209. pt10;(10 40113.5 16600.0 0.0)起点
     
210. pt11;(11 38265.9 16900.0 0.0)末点
     
211. pt12;(12 0.0 0.0 0.0)
     
212. (cons 70 32)
     
213. ;***(1 . )
     
214. ;***(71 . 5)
     
215. ;***(72 . 1)
     
216. ;***(41 . 1.0)
     
217. ;***(42 . 3695.17)
     
218. (cons 52 0.0)
     
219. (cons 53 0.0)
     
220. (cons 54 0.0)
     
221. (cons 51 0.0)
     
222. (210 0.0 0.0 1.0);;法向
     
223. (cons 8 "ISO-25")
     
224. ;***(100 . "AcDbAlignedDimension")
     
225. pt13;(13 36418.3 17448.4 0.0)
     
226. pt14;(14 40113.5 17448.4 0.0)
     
227. '(15 0.0 0.0 0.0)
     
228. '(16 0.0 0.0 0.0)
     
229. (cons 40 0.0)
     
230. wenzi;(cons 50 0.0)
     
231. ;***(100 . "AcDbRotatedDimension")
     
232. ))
     
233.   (entmake chicun)
     
234.   )

<br /> (defun c:jichu (/ pianyi bili l_1 l_2a l_2b pt0 x y d d1 d2 pt_1a pt_1b pt_1c pt_1d<br />                 pt_2a pt_2b pt_2c pt_2d pt_3a pt_3b pt_3c pt_3d<br />                 pt_4a pt_4b pt_4c pt_4d )<br />   (princ "\n请输入预埋板宽度：")<br />   (setq l_1 (getint))<br />   (princ "\n请输入基础长度：")<br />   (setq l_2a (getint))<br />   (princ "\n请输入基础宽度：")<br />   (setq l_2b (getint))<br />   (princ "\n请指定位置：")<br />   (setq pt0 (getpoint))<br />   (sta)<br />     (cond<br />     ((> (/ l_2a 70) 10)(setq bili 10)))<br />   (cond<br />     ((> (/ l_2a 70) 15)(setq bili 16)))<br />   (cond<br />     ((> (/ l_2a 70) 19)(setq bili 20)))<br />   (cond<br />     ((> (/ l_2a 70) 29)(setq bili 30)))<br />   (cond<br />     ((> (/ l_2a 70) 39)(setq bili 40)))<br />   (cond<br />     ((> (/ l_2a 70) 49)(setq bili 50))<br />     )<br />   (setq pianyi (* bili 8))<br /> <br />   ;;;基础平面<br />   (setq x (nth 0 pt0) y (nth 1 pt0))<br />   (setq d (* 0.5 l_1))<br />   (setq pt_1a (list (- x d) (+ y d) 0)<br />         pt_1b (list (+ x d) (+ y d) 0)<br />         pt_1c (list (+ x d) (- y d) 0)<br />         pt_1d (list (- x d) (- y d) 0));<br />   (setq d (+ d 50))<br />   (setq pt_2a (list (- x d) (+ y d) 0)<br />         pt_2b (list (+ x d) (+ y d) 0)<br />         pt_2c (list (+ x d) (- y d) 0)<br />         pt_2d (list (- x d) (- y d) 0));<br />   (setq d1 (* 0.5 l_2a))<br />   (setq d2 (* 0.5 l_2b))<br />   (setq pt_3a (list (- x d1) (+ y d2) 0)<br />         pt_3b (list (+ x d1) (+ y d2) 0)<br />         pt_3c (list (+ x d1) (- y d2) 0)<br />         pt_3d (list (- x d1) (- y d2) 0));<br />   (setq d1 (+ d1 100))<br />   (setq d2 (+ d2 100))<br />   (setq pt_4a (list (- x d1) (+ y d2) 0)<br />         pt_4b (list (+ x d1) (+ y d2) 0)<br />         pt_4c (list (+ x d1) (- y d2) 0)<br />         pt_4d (list (- x d1) (- y d2) 0));<br />   (command "rectang" pt_1a pt_1c)<br />   (command "rectang" pt_2a pt_2c)<br />   (command "rectang" pt_3a pt_3c)<br />   (command "rectang" pt_4a pt_4c)<br />   (command "line" pt_2a pt_3a "")<br />   (command "line" pt_2b pt_3b "")<br />   (command "line" pt_2c pt_3c "")<br />   (command "line" pt_2d pt_3d "")<br />   ;;;基础立面<br />   (command "pline"<br />            (list (- x d1) (- y d2 2000));1<br />            (list (+ x d1) (- y d2 2000));2<br />            (list (+ x d1) (- y d2 1900));3<br />            (list (+ x d1 -100) (- y d2 1900));4<br />            (list (+ x d1 -100) (- y d2 1700));5<br />            (list (+ x d) (- y d2 1500));6<br />            (list (+ x d) (- y d2 900));7<br />            (list (- x d) (- y d2 900));8<br />            (list (- x d) (- y d2 1500));9<br />            (list (- x d1 -100) (- y d2 1700));10<br />            (list (- x d1 -100) (- y d2 1900));11<br />            (list (- x d1) (- y d2 1900));12<br />            "c"<br />            )<br />   (command "line" (list (- x d1 -100) (- y d2 1900)) (list (+ x d1 -100) (- y d2 1900)) "")<br />   (command "pline"<br />            (list (+ x d -50) (- y d2 900));13<br />            (list (+ x d -50) (- y d2 914));14<br />            (list (- x d -50) (- y d2 914));15<br />            (list (- x d -50) (- y d2 900));16<br />             "")<br />   (command "zoom" (list (- x l_2a) (+ y l_2b)) (list (+ x l_2a) (- y l_2b 2000)))<br />   ;;;配筋<br />   (command "pline"<br />            (list (- x d -40) (- y d2 940))<br />            (list (- x d -40) (- y d2 1840))<br />            (list (- x d 160) (- y d2 1840))<br />            "")<br />   (command "pline"<br />            (list (+ x d -40) (- y d2 940))<br />            (list (+ x d -40) (- y d2 1840))<br />            (list (+ x d 160) (- y d2 1840))<br />            "")<br />   (command "line"<br />            (list x (- y d2 940))<br />            (list x (- y d2 1840))<br />            "")<br />   (command "line"<br />            (list (- x d1 -140) (- y d2 1860))<br />            (list (+ x d1 -140) (- y d2 1860))<br />            "")<br />   ;;;箍筋<br />   (command "line"<br />            (list (- x d -40) (- y d2 990))<br />            (list (+ x d -40) (- y d2 990))<br />            "")<br />   (command "line"<br />            (list (- x d -40) (- y d2 1140))<br />            (list (+ x d -40) (- y d2 1140))<br />            "")<br />   (command "line"<br />            (list (- x d -40) (- y d2 1290))<br />            (list (+ x d -40) (- y d2 1290))<br />            "")<br />   (command "line"<br />            (list (- x d -40) (- y d2 1440))<br />            (list (+ x d -40) (- y d2 1440))<br />            "")<br />   (command "line"<br />            (list (- x d -40) (- y d2 1590))<br />            (list (+ x d -40) (- y d2 1590))<br />            "")<br />   (command "line"<br />            (list (- x d -40) (- y d2 1740))<br />            (list (+ x d -40) (- y d2 1740))<br />            "")<br />   (command "circle" (list x (- y d2 1850)) "5")<br />   (command "-bhatch" "p" "SOLID" "s" "l" "" "")<br />   (command "-array" "l" "" "r" "1" (fix (/ l_2a 300)) "150")<br />   (command "-array" "p" "" "r" "1" (fix (/ l_2a 300)) "-150")<br />   ;;;尺寸<br /> (command "zoom" (strcat "1/" (itoa bili) "xp"))<br />   ;;;长度方向<br />   (command "dimlinear" (polar pt_3d (* -0.5 pi) 100) (polar pt_3c (* -0.5 pi) 100)<br />            (polar pt_3c (* -0.5 pi) (+ (* 2 pianyi) 100)));;总长<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br />   (command "dimlinear" (polar pt_3d (* -0.5 pi) 100) pt_4d <br />            (polar pt_3c (* -0.5 pi) (+ (* 2 pianyi) 100)))<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br />   (command "dimlinear" (polar pt_3c (* -0.5 pi) 100) pt_4c<br />            (polar pt_3c (* -0.5 pi) (+ (* 2 pianyi) 100)));;两侧垫层<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br />   (command "dimlinear" (polar pt_3d (* -0.5 pi) 100) (list (nth 0 pt_2d) (nth 1 pt_4d) 0) <br />            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br />   (command "dimlinear" (list x (nth 1 pt_4d)) (list (nth 0 pt_2d) (nth 1 pt_4d)) <br />            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br />   (command "dimlinear" (polar pt_3c (* -0.5 pi) 100) (list (nth 0 pt_2c) (nth 1 pt_4d) 0) <br />            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br />   (command "dimlinear" (list x (nth 1 pt_4d)) (list (nth 0 pt_2c) (nth 1 pt_4d)) <br />            (polar pt_3c (* -0.5 pi) (+ pianyi 100)))<br />   (command "copy" "l" "" "0,0,0" "0,-2000,0")<br /> <br />   ;;;高度方向<br />   (command "dimlinear" (list (+ x d1) (- y d2 2000))  (list (+ x d1) (- y d2 1900))<br />            (list (+ x d1 pianyi pianyi) (- y d2 1900)));;垫层<br />   (command "dimlinear" (list (+ x d1) (- y d2 1900))  (list (+ x d1) (- y d2 900))<br />            (list (+ x d1 pianyi pianyi) (- y d2 1900)))<br />   (command "dimlinear" (list (+ x d1) (- y d2 1900))  (list (+ x d1) (- y d2 1700))<br />            (list (+ x d1 pianyi) (- y d2 1900)))<br />   (command "dimlinear" (list (+ x d1) (- y d2 1700))  (list (+ x d1) (- y d2 1500))<br />            (list (+ x d1 pianyi) (- y d2 1900)))<br />   (command "dimlinear" (list (+ x d1) (- y d2 1500))  (list (+ x d1) (- y d2 900))<br />            (list (+ x d1 pianyi) (- y d2 1900)))<br />   ;;;插入标高<br />   (command "-insert" "标高符号" "s" bili (list (+ x d1 pianyi pianyi) (- y d2 900)) "")<br />   ;(command "DDEDIT" "l"  "-0.100" "")<br />   ;;;插入图名<br />   (command "-insert" "图名符号" "s" bili (list x (- y d2 (* 3 pianyi))) "")<br />   (command "-insert" "图名符号" "s" bili (list x (- y d2 2000 (* 3 pianyi))) "")<br />     ;;;宽度方向<br />   (command "dimlinear" (list (+ x d1) (- y (* 0.5 l_2b))) (list (+ x d1) (- y (* 0.5 l_2b) 100)) <br />            (list (+ x d1 pianyi pianyi) (- y (* 0.5 l_2b))))<br />   (command "dimlinear" (list (+ x d1) (- y (* 0.5 l_2b))) (list (+ x d1) (- y (* 0.5 l_1) 50)) <br />            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))<br />   (command "dimlinear" (list (+ x d1) y) (list (+ x d1) (- y (* 0.5 l_1) 50)) <br />            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))<br />   (command "dimlinear" (list (+ x d1) y) (list (+ x d1) (+ y (* 0.5 l_1) 50)) <br />            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))<br />   (command "dimlinear" (list (+ x d1) (+ y (* 0.5 l_2b))) (list (+ x d1) (+ y (* 0.5 l_1) 50)) <br />            (list (+ x d1 pianyi) (- y (* 0.5 l_2b))))<br />   (command "dimlinear" (list (+ x d1) (+ y (* 0.5 l_2b))) (list (+ x d1) (+ y (* 0.5 l_2b) 100)) <br />            (list (+ x d1 pianyi pianyi) (- y (* 0.5 l_2b))))<br />   ;;<br />   (command "dimlinear" (list (+ x d1) (- y (* 0.5 l_2b))) (list (+ x d1) (+ y (* 0.5 l_2b))) <br />            (list (+ x d1 pianyi pianyi) (- y (* 0.5 l_2b))))<br /> <br />   (end)<br />   )<br /> ;;;(chicun pt10 pt11 pt12 pt13 pt14 faxiang tuceng wenzi)<br /> (defun chicun (pt10 pt11 pt12 pt13 pt14 faxiang tuceng wenzi / chicun)<br />   (setq chicun (list<br /> ;***(-1 . <图元名: 4006cde0>)<br /> (cons 0  "DIMENSION")<br /> ;***(330 . <图元名: 40066cf8>)<br /> ;***(5 . 1E64)<br /> ;***(100 . AcDbEntity)<br /> ;***(67 . 0)<br /> ;***(410 . Model)<br /> tuceng;(8 . ANCHOR_LINE)图层<br /> ;(cons 48 0.3)<br /> ;***(100 . AcDbDimension)<br /> ;***(2 . *D17)<br /> pt10;(10 40113.5 16600.0 0.0)起点<br /> pt11;(11 38265.9 16900.0 0.0)末点<br /> pt12;(12 0.0 0.0 0.0)<br /> (cons 70 32)<br /> ;***(1 . )<br /> ;***(71 . 5)<br /> ;***(72 . 1)<br /> ;***(41 . 1.0)<br /> ;***(42 . 3695.17)<br /> (cons 52 0.0)<br /> (cons 53 0.0)<br /> (cons 54 0.0)<br /> (cons 51 0.0)<br /> (210 0.0 0.0 1.0);;法向<br /> (cons 8 "ISO-25")<br /> ;***(100 . "AcDbAlignedDimension")<br /> pt13;(13 36418.3 17448.4 0.0)<br /> pt14;(14 40113.5 17448.4 0.0)<br /> '(15 0.0 0.0 0.0)<br /> '(16 0.0 0.0 0.0)<br /> (cons 40 0.0)<br /> wenzi;(cons 50 0.0)<br /> ;***(100 . "AcDbRotatedDimension")<br /> ))<br />   (entmake chicun)<br />   )