不确定拟合点数的样条曲线的绘制

island1000

本人在解决不确定拟合点数的样条曲线的绘制时，用了一个土办法。具体是，先根据终点和起点画样条曲线。然后将样条曲线的序列数据a1取出，加入剩下不确定数量的点列。当然点列应该是(11 .. .. ..)的样式。然后(entmod a1)。这样就能画了。但是，当我移动坐标系后，出现了问题。请高手们帮我看看：（程序有点乱，请多包涵）

2. ;;;;;;;;;;;;;;;;;;;;;;;;
   
3. ;;;     角度转换        
   
4. ;;;;;;;;;;;;;;;;;;;;;;;;
   
5. ;;;参数说明：
   
6. (defun Degrees->Radians(numberOfDegrees)
   
7.     (* pi (/ numberOfDegrees 180.0))
   
8. )
   
9. ;;;;;;;;;;;;;;;;;;;;;;;;
   
10. ;;;二维点转换为三维点   
    
11. ;;;;;;;;;;;;;;;;;;;;;;;;
    
12. ;;;参数说明：
    
13. (defun VD:2dPoint->3dPoint(2dPt)
    
14.     (list (float (car 2dPt)) (float (cdr 2dPt)) 0.0)
    
15. )
    
16. ;;;;;;;;;;;;;;;;;;;;;;;;
    
17. ;;;  三维点转换为二维点
    
18. ;;;;;;;;;;;;;;;;;;;;;;;;
    
19. ;;;参数说明：
    
20. (defun VD:3dPoint->2dPoint(3dPt)
    
21.     (list (float (car 3dPt))(float (cadr 3dPt)))
    
22. )
    
23. ;;;;;;;;;;;;;;;;;;;;;;;;
    
24. ;;;      绘制箭头      
    
25. ;;;;;;;;;;;;;;;;;;;;;;;;
    
26. ;;;参数说明：
    
27. (defun vd:arrow
    
28.                (pt ang               ratio           /               ang1
    
29.                    angleBackward           angleUpward angleDownward
    
30.                    arrowLength arrowWidth  halfWidth   pt1
    
31.                    p1               p2           s1
    
32.                   )
    
33.   (setq        ang1              (Degrees->Radians ang)
    
34.         angleBackward (+ ang1 pi)
    
35.         angleUpward   (+ ang1 (/ pi 2.0))
    
36.         angleDownward (+ angleUpward pi)
    
37.         arrowLength   (* 2.5 ratio)
    
38.         arrowWidth    (* 0.83 ratio)
    
39.         halfWidth     (/ arrowWidth 2.0)
    
40.         pt1              (polar pt angleBackward arrowLength)
    
41.         p1              (polar pt1 angleUpward halfWidth)
    
42.         p2              (polar pt1 angleDownward halfWidth)
    
43.   )
    
44.   (command ".line" pt p1 p2 "c" "")
    
45.   (setq s1 (ssget "C" pt p1))
    
46.   (command ".hatch" "solid" s1 "")
    
47.   (princ)
    
48. )
    
49. ;;;;;;;;;;;;;;;;;;;;;;;;
    
50. ;;;绘制坐轴及横向分格线
    
51. ;;;;;;;;;;;;;;;;;;;;;;;;
    
52. ;;;参数说明：
    
53. (defun vd:coordinate_drawing (p1 p2         space         ratio         /
    
54.                                  nStart         i         nTotal         a
    
55.                                  xEnd         yEnd         original
    
56.                                  tp         tp1         textHeight
    
57.                                  s1
    
58.                                 )
    
59.   (setq
    
60.     nStart     (fix (/ (cadr p1) space))
    
61.     i               nStart
    
62.     nTotal     (- (fix (/ (cadr p2) space)) nStart)
    
63.     a               (* ratio 20)
    
64.     Xend       (list (+ (car p1) a) (* nStart space) 0.0)
    
65.     yend       (list 0.0 (+ (* a 0.5) (cadr p2)) 0.0)
    
66.     original   (list 0.0 (cadr xend) 0.0)
    
67.     a               (* ratio 3.0)
    
68.     tp               (polar xend (* pi 1.3) (* 1.5 a))
    
69.     textHeight (* ratio 3.0)
    
70.   )
    
71.   (vd:arrow xend 0 ratio)
    
72.   (vd:arrow yend 90 ratio)
    
73.   (command "line" original yend "")
    
74.   (command "line" original xend "")
    
75.   (setq s1 (ssget "L"))
    
76.   (command "text" tp textHeight 0.0 "X" "")
    
77.   (setq tp (polar yend (* pi 1.25) (* 1.414 a)))
    
78.   (command "text" tp textHeight 0.0 "Y" "")
    
79.   (setq tp (polar original pi a))
    
80.   (if (= i 0)
    
81.    (progn
    
82.      (command "text" tp textHeight 0.0 "A" "")
    
83.      (setq tp1
    
84.             (polar
    
85.               original
    
86.               0.0
    
87.               (+ (distance Xend original) a)
    
88.             )
    
89.      )
    
90.      (command "text" tp1 textHeight 0.0 "A" "")
    
91.    )
    
92. )
    
93.   (repeat nTotal
    
94.     (setq i (1+ i))
    
95.     (command "offset" space s1 yend "")
    
96.     (setq s1 (ssget "L"))
    
97.     (cond
    
98.       ((= i 1) (setq str "B"))
    
99.       ((= i 2) (setq str "C"))
    
100.       ((= i 3) (setq str "D"))
     
101.       ((= i 4) (setq str "E"))
     
102.       ((= i 5) (setq str "F"))
     
103.       ((= i 6) (setq str "G"))
     
104.       ((= i 7) (setq str "H"))
     
105.       ((= i 8) (setq str "I"))
     
106.       ((= i 9) (setq str "J"))
     
107.       ((= i 10) (setq str "K"))
     
108.       ((= i 11) (setq str "L"))
     
109.       ((= i 12) (setq str "M"))
     
110.       ((= i 13) (setq str "N"))
     
111.       ((= i 14) (setq str "O"))
     
112.       ((= i 15) (setq str "P"))
     
113.       ((= i 16) (setq str "Q"))
     
114.       ((= i 17) (setq str "R"))
     
115.       ((= i 18) (setq str "S"))
     
116.       ((= i 19) (setq str "T"))
     
117.       ((= i 20) (setq str "U"))
     
118.       ((= i 21) (setq str "V"))
     
119.       ((= i 22) (setq str "W"))
     
120.     )
     
121.     (setq tp (polar tp (/ pi 2.0) space)
     
122.           tp1 (polar tp1 (/ pi 2.0) space))
     
123.     (command "text" tp textHeight 0.0 str "")
     
124.     (command "text" tp1 textHeight 0.0 str "")
     
125. 
     
126.   )
     
127.   (princ)
     
128. )
     
129. ;;;;;;;;;;;;;;;;;;;;;;;;
     
130. ;;;    断面数据输入     
     
131. ;;;;;;;;;;;;;;;;;;;;;;;;
     
132. (defun vd:dataInput(/ fname f i blst a lst n str)
     
133.   (setq        fname (getfiled "Select a data file" "" "txt" 8)
     
134.         f     (open fname "r")
     
135.         i     0
     
136.         Blst  nil
     
137.         a     0.0
     
138.   )
     
139.   (while (setq str (read-line f))
     
140.    (setq lst nil
     
141.          n   (read str)
     
142.    )
     
143.    (if (< n 10)
     
144.      (setq str (substr str 3))
     
145.      (setq str (substr str 4))
     
146.    )
     
147.     (setq flag (read str)
     
148.           str  (substr str 3)
     
149.     )
     
150.     (while (read str)
     
151.       (setq a        (read str)
     
152.             i        (+ 2 (strlen (rtos a 2)))
     
153.             str        (substr str i)
     
154.             lst        (cons a lst)
     
155.       )
     
156.     )
     
157.     (setq lst  (reverse lst)
     
158.           lst  (cons n (cons flag lst))
     
159.           Blst (append Blst (list lst))
     
160.           n    (1+ n)
     
161.     )
     
162.   )
     
163.   (close f)
     
164.   Blst
     
165. )
     
166. ;;;;;;;;;;;;;;;;;;;;;;;;
     
167. ;;;    断面数据处理     
     
168. ;;;;;;;;;;;;;;;;;;;;;;;;
     
169. (defun VD:dataProcessing(lst space / n i a b c d l1 l2 templist)
     
170.   (setq        n (length lst)
     
171.         i (/ n 2)
     
172.   )
     
173. (repeat        i
     
174.   (setq        a         (car lst)
     
175.         b         (cadr lst)
     
176.         l1         (cdr a)
     
177.         l2         (cdr b)
     
178.         c         (VD:dp1 l1 space)
     
179.         d         (VD:dp1 l2 space)
     
180.         templist (cons (car a)
     
181.                        (list
     
182.                          c
     
183.                          d
     
184.                        )
     
185.                  )
     
186.   )
     
187.   (setq        lst (append (cddr lst) (list templist))
     
188.   )
     
189. )
     
190.   lst
     
191. )
     
192. (defun VD:dp1 (lst space / n j flag startPt endPt y temp)
     
193.   (setq        n        (length lst)
     
194.         flag        (car lst)
     
195.         startPt        (cons (nth 2 lst) (cadr lst))
     
196.         endPt        (cons (cadr (reverse lst))
     
197.                       (last lst)                     
     
198.                 )
     
199.         lst        (reverse (cddr (reverse (cdddr lst))))
     
200.         y        (*
     
201.                    (fix (/ (cdr startPt) space))
     
202.                    space
     
203.                 )
     
204.         j        (- n 5)
     
205.   )
     
206.   (repeat j
     
207.     (setq y    (+ y space)
     
208.           temp (cons (car lst) y)
     
209.           lst  (cdr lst)
     
210.           lst  (append lst (list temp))
     
211.     )
     
212.   )
     
213.   (setq        lst   (cons startPt lst)
     
214.         lst   (reverse(cons endPt (reverse lst)))
     
215.         lst   (cons flag lst)
     
216.   )
     
217.   lst
     
218. )
     
219. ;;;;;;;;;;;;;;;;;;;;;;;;
     
220. ;;;二维点转换为三维点   
     
221. ;;;;;;;;;;;;;;;;;;;;;;;;
     
222. ;;;参数说明：
     
223. (defun VD:2dPoints->3dPoints (plst / n 2dPt)
     
224. (setq n     (length plst))
     
225.   (repeat n
     
226.     (setq plst (append plst
     
227.                        (list (list 11
     
228.                                    (float (car (car plst)))
     
229.                                    (float (cdr (car plst)))
     
230.                                    0.0
     
231.                              )
     
232.                        )
     
233.                )
     
234.           plst (cdr plst)
     
235.     )
     
236.   )
     
237.   plst
     
238. )
     
239. ;;;;;;;;;;;;;;;;;;;;;;;;
     
240. ;;;   断面轮廓线绘制   
     
241. ;;;;;;;;;;;;;;;;;;;;;;;;
     
242. (defun VD:draw (ptLst / dLst p1 p2 a1)
     
243.   (setq        dLst nil
     
244.         dLst (VD:2dPoints->3dPoints (cdr (cadr ptLst)))
     
245.         p1   (cdr (car dLst))
     
246.         p2   (cdr (last dLst))
     
247.         dLst (cdr (vl-remove (last dLst) dLst))
     
248.   )
     
249.   (princ (reverse dLst))
     
250.   (command ".spline" p2 p1 "" "" "")
     
251.   (setq a1 (reverse (entget (ssname (ssget "L") 0))))
     
252.   (princ a1)
     
253.   (setq a1 (reverse (append (list (car a1))
     
254.                             dLst
     
255.                             (cdr a1)
     
256.                     )
     
257.            )
     
258.   )
     
259.   (setq a1 (entmod a1))
     
260.   (princ a1)
     
261.   (setq        dLst    (VD:2dPoints->3dPoints (cdr (caddr ptLst)))
     
262.         p1        (cdr(car dLst))
     
263.         p2        (cdr(last dLst))
     
264.         dLst    (cdr (vl-remove (last dLst) dLst))
     
265.   )
     
266.   (princ (reverse dLst))
     
267.   (command ".spline" p2 p1 "" "" "")
     
268.   (setq        a1 (reverse (entget (ssname (ssget "L") 0))))
     
269.   (princ a1)
     
270.   (setq        a1 (reverse (append (list (car a1))
     
271.                             dLst
     
272.                             (cdr a1)
     
273.                     )
     
274.            )
     
275.   )
     
276.   (setq a1 (entmod a1))
     
277.   (princ a1)
     
278.   (setq        p1 (VD:2dPoint->3dPoint (car(cdr (cadr ptLst))))
     
279.         p2 (VD:2dPoint->3dPoint (car(cdr (caddr ptLst))))
     
280.   )
     
281.   (command ".line" p1 p2 "")
     
282.   (setq        p1 (VD:2dPoint->3dPoint (last (cdr(cadr ptLst))))
     
283.         p2 (VD:2dPoint->3dPoint (last (cdr(caddr ptLst))))
     
284.   )
     
285.   (command ".line" p1 p2 "")
     
286.   (setq        p1 (VD:2dPoint->3dPoint (car(cdr (cadr ptLst))))
     
287.         p2 (VD:2dPoint->3dPoint (last (cdr(caddr ptLst))))
     
288.   )
     
289. 
     
290.   (VD:coordinate_drawing p1  p2 20.0 2)
     
291. 
     
292. )
     
293. ;;;;;;;;;;;;;;;;;;;;;;;;
     
294. ;;;   断面尺寸标注      
     
295. ;;;;;;;;;;;;;;;;;;;;;;;;
     
296. (defun VD:ddim (ptLst ratio / pt tp ptlst1 i)
     
297.   (setq        ptlst1           (cdr (cadr ptLst))
     
298.         i           (length ptlst1)
     
299.         textHeight (* ratio 3.0)
     
300.   )
     
301.   (repeat i
     
302.     (setq
     
303.       pt     (vd:2dPoint->3dPoint (car ptlst1))
     
304.       tp     (polar (list 10.0 (cadr pt) 0.0) (/ pi 2) (* ratio 1.0))
     
305.       ptlst1 (cdr ptlst1)
     
306.       str    (rtos (car pt) 2)
     
307.     )
     
308.     (if        (= (rem (cadr pt) 20.0) 0.0)
     
309.       (progn
     
310.         (command "text" tp textHeight 0.0 str "")
     
311.         (vd:arrow pt 0 ratio)
     
312.       )
     
313.       (progn
     
314.         (setq p1 (list 0.0 (cadr pt) 0.0)
     
315.               p2 (polar p1 0 (car pt))
     
316.         )
     
317.         (command "dim1" "Hor" p1 pt p2 "")
     
318.         (setq p1 (list (car pt) 0.0 0.0)
     
319.               p2 (polar p1 (/ pi 2) (cadr pt))
     
320.         )
     
321.         (command "dim1" "Ver" p1 pt p2 "")
     
322.       )
     
323.     )
     
324.   )
     
325.   (setq        ptlst1 (cdr (caddr ptLst))
     
326.         i      (length ptlst1)
     
327.   )
     
328.   (repeat i
     
329.     (setq
     
330.       pt     (vd:2dPoint->3dPoint (car ptlst1))
     
331.       tp     (polar (list 280 (cadr pt) 0.0) (/ pi 2) (* ratio 1.0))
     
332.       ptlst1 (cdr ptlst1)
     
333.       str    (rtos (car pt) 2)
     
334.     )
     
335.     (if        (= (rem (cadr pt) 20.0) 0.0)
     
336.       (progn
     
337.         (command "text" tp textHeight 0.0 str "")
     
338.         (vd:arrow pt 0 ratio)
     
339.       )
     
340.       (progn
     
341.         (setq p1 (list (car pt) 0.0 0.0)
     
342.               p2 (polar p2 180 30.0)
     
343.         )
     
344.         (command "dim1" "Ver" p1 pt p2 "")
     
345.         (setq p1 (list 0.0 (cadr pt) 0.0)
     
346.               p2 (polar p1 0 (car pt))
     
347.         )
     
348.         (command "dim1" "Hor" p1 pt p2 "")
     
349.       )
     
350.     )
     
351.   )
     
352. )
     
353. ;;;;;;;;;;;;;;;;;;;;;;;;
     
354. ;;;        主程序      
     
355. ;;;;;;;;;;;;;;;;;;;;;;;;
     
356. (defun c:VD()
     
357.     (setq scmdecho (getvar "cmdecho"))
     
358.     (setvar "cmdecho" 0)
     
359.     (setq ptLst        nil
     
360.           ptLst        (VD:dataInput)
     
361.           ptLst        (VD:dataProcessing ptLst 20.0)
     
362.           n        (length ptLst)
     
363.           i        1
     
364.           ratio 2
     
365.           a        (* ratio 50.0)
     
366. 
     
367.     )
     
368.   (repeat n
     
369.     (setq pptLst (assoc i ptLst)
     
370.           i         (1+ i)
     
371.     )
     
372. ;;;    确定作图区域（左上角点与右下角点）
     
373.     (setq leftTop     (vd:2dPoint->3dPoint (last (caddr pptLst)))
     
374.           rightBottom (vd:2dPoint->3dPoint (cadr (caddr pptLst)))
     
375.           rightBottom (list (+ (car rightBottom) a) 0.0 0.0)
     
376.           leftTop     (list 0.0 (+ (* a 0.5) (cadr leftTop)) 0.0)
     
377.           newOriginal (list (car rightBottom) 0.0 0.0)
     
378.     )
     
379.     (VD:draw pptLst)
     
380.     (VD:ddim pptLst 2.0)
     
381.     (command "ucs" "m" newOriginal)
     
382.   )
     
383.   (command "ucs" "")
     
384. ;;;    (VD:dataOut )
     
385.     (setvar "cmdecho" scmdecho)
     
386. )

;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;     角度转换        <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;参数说明：<br /> (defun Degrees->Radians(numberOfDegrees)<br />     (* pi (/ numberOfDegrees 180.0))<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;二维点转换为三维点   <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;参数说明：<br /> (defun VD:2dPoint->3dPoint(2dPt)<br />     (list (float (car 2dPt)) (float (cdr 2dPt)) 0.0)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;  三维点转换为二维点 <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;参数说明：<br /> (defun VD:3dPoint->2dPoint(3dPt)<br />     (list (float (car 3dPt))(float (cadr 3dPt)))<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;      绘制箭头       <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;参数说明：<br /> (defun vd:arrow<br />                (pt ang               ratio           /               ang1<br />                    angleBackward           angleUpward angleDownward<br />                    arrowLength arrowWidth  halfWidth   pt1<br />                    p1               p2           s1<br />                   )<br />   (setq        ang1              (Degrees->Radians ang)<br />         angleBackward (+ ang1 pi)<br />         angleUpward   (+ ang1 (/ pi 2.0))<br />         angleDownward (+ angleUpward pi)<br />         arrowLength   (* 2.5 ratio)<br />         arrowWidth    (* 0.83 ratio)<br />         halfWidth     (/ arrowWidth 2.0)<br />         pt1              (polar pt angleBackward arrowLength)<br />         p1              (polar pt1 angleUpward halfWidth)<br />         p2              (polar pt1 angleDownward halfWidth)<br />   )<br />   (command ".line" pt p1 p2 "c" "")<br />   (setq s1 (ssget "C" pt p1))<br />   (command ".hatch" "solid" s1 "")<br />   (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;绘制坐轴及横向分格线 <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;参数说明：<br /> (defun vd:coordinate_drawing (p1 p2         space         ratio         /<br />                                  nStart         i         nTotal         a<br />                                  xEnd         yEnd         original<br />                                  tp         tp1         textHeight<br />                                  s1<br />                                 )<br />   (setq<br />     nStart     (fix (/ (cadr p1) space))<br />     i               nStart<br />     nTotal     (- (fix (/ (cadr p2) space)) nStart)<br />     a               (* ratio 20)<br />     Xend       (list (+ (car p1) a) (* nStart space) 0.0)<br />     yend       (list 0.0 (+ (* a 0.5) (cadr p2)) 0.0)<br />     original   (list 0.0 (cadr xend) 0.0)<br />     a               (* ratio 3.0)<br />     tp               (polar xend (* pi 1.3) (* 1.5 a))<br />     textHeight (* ratio 3.0)<br />   )<br />   (vd:arrow xend 0 ratio)<br />   (vd:arrow yend 90 ratio)<br />   (command "line" original yend "")<br />   (command "line" original xend "")<br />   (setq s1 (ssget "L"))<br />   (command "text" tp textHeight 0.0 "X" "")<br />   (setq tp (polar yend (* pi 1.25) (* 1.414 a)))<br />   (command "text" tp textHeight 0.0 "Y" "")<br />   (setq tp (polar original pi a))<br />   (if (= i 0)<br />    (progn<br />      (command "text" tp textHeight 0.0 "A" "")<br />      (setq tp1<br />             (polar<br />               original<br />               0.0<br />               (+ (distance Xend original) a)<br />             )<br />      )<br />      (command "text" tp1 textHeight 0.0 "A" "")<br />    )<br /> )<br />   (repeat nTotal<br />     (setq i (1+ i))<br />     (command "offset" space s1 yend "")<br />     (setq s1 (ssget "L"))<br />     (cond<br />       ((= i 1) (setq str "B"))<br />       ((= i 2) (setq str "C"))<br />       ((= i 3) (setq str "D"))<br />       ((= i 4) (setq str "E"))<br />       ((= i 5) (setq str "F"))<br />       ((= i 6) (setq str "G"))<br />       ((= i 7) (setq str "H"))<br />       ((= i 8) (setq str "I"))<br />       ((= i 9) (setq str "J"))<br />       ((= i 10) (setq str "K"))<br />       ((= i 11) (setq str "L"))<br />       ((= i 12) (setq str "M"))<br />       ((= i 13) (setq str "N"))<br />       ((= i 14) (setq str "O"))<br />       ((= i 15) (setq str "P"))<br />       ((= i 16) (setq str "Q"))<br />       ((= i 17) (setq str "R"))<br />       ((= i 18) (setq str "S"))<br />       ((= i 19) (setq str "T"))<br />       ((= i 20) (setq str "U"))<br />       ((= i 21) (setq str "V"))<br />       ((= i 22) (setq str "W"))<br />     )<br />     (setq tp (polar tp (/ pi 2.0) space)<br />           tp1 (polar tp1 (/ pi 2.0) space))<br />     (command "text" tp textHeight 0.0 str "")<br />     (command "text" tp1 textHeight 0.0 str "")<br /> <br />   )<br />   (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;    断面数据输入     <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun vd:dataInput(/ fname f i blst a lst n str)<br />   (setq        fname (getfiled "Select a data file" "" "txt" 8)<br />         f     (open fname "r")<br />         i     0<br />         Blst  nil<br />         a     0.0<br />   )<br />   (while (setq str (read-line f))<br />    (setq lst nil<br />          n   (read str)<br />    )<br />    (if (< n 10)<br />      (setq str (substr str 3))<br />      (setq str (substr str 4))<br />    )<br />     (setq flag (read str)<br />           str  (substr str 3)<br />     )<br />     (while (read str)<br />       (setq a        (read str)<br />             i        (+ 2 (strlen (rtos a 2)))<br />             str        (substr str i)<br />             lst        (cons a lst)<br />       )<br />     )<br />     (setq lst  (reverse lst)<br />           lst  (cons n (cons flag lst))<br />           Blst (append Blst (list lst))<br />           n    (1+ n)<br />     )<br />   )<br />   (close f)<br />   Blst<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;    断面数据处理     <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun VD:dataProcessing(lst space / n i a b c d l1 l2 templist)<br />   (setq        n (length lst)<br />         i (/ n 2)<br />   )<br /> (repeat        i<br />   (setq        a         (car lst)<br />         b         (cadr lst)<br />         l1         (cdr a)<br />         l2         (cdr b)<br />         c         (VD:dp1 l1 space)<br />         d         (VD:dp1 l2 space)<br />         templist (cons (car a)<br />                        (list<br />                          c<br />                          d<br />                        )<br />                  )<br />   )<br />   (setq        lst (append (cddr lst) (list templist))<br />   )<br /> )<br />   lst<br /> )<br /> (defun VD:dp1 (lst space / n j flag startPt endPt y temp)<br />   (setq        n        (length lst)<br />         flag        (car lst)<br />         startPt        (cons (nth 2 lst) (cadr lst))<br />         endPt        (cons (cadr (reverse lst))<br />                       (last lst)                      <br />                 )<br />         lst        (reverse (cddr (reverse (cdddr lst))))<br />         y        (*<br />                    (fix (/ (cdr startPt) space))<br />                    space<br />                 )<br />         j        (- n 5)<br />   )<br />   (repeat j<br />     (setq y    (+ y space)<br />           temp (cons (car lst) y)<br />           lst  (cdr lst)<br />           lst  (append lst (list temp))<br />     )<br />   )<br />   (setq        lst   (cons startPt lst)<br />         lst   (reverse(cons endPt (reverse lst)))<br />         lst   (cons flag lst)<br />   )<br />   lst<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;二维点转换为三维点   <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;参数说明：<br /> (defun VD:2dPoints->3dPoints (plst / n 2dPt)<br /> (setq n     (length plst))<br />   (repeat n<br />     (setq plst (append plst<br />                        (list (list 11<br />                                    (float (car (car plst)))<br />                                    (float (cdr (car plst)))<br />                                    0.0<br />                              )<br />                        )<br />                )<br />           plst (cdr plst)<br />     )<br />   )<br />   plst<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;   断面轮廓线绘制    <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun VD:draw (ptLst / dLst p1 p2 a1)<br />   (setq        dLst nil<br />         dLst (VD:2dPoints->3dPoints (cdr (cadr ptLst)))<br />         p1   (cdr (car dLst))<br />         p2   (cdr (last dLst))<br />         dLst (cdr (vl-remove (last dLst) dLst))<br />   )<br />   (princ (reverse dLst))<br />   (command ".spline" p2 p1 "" "" "")<br />   (setq a1 (reverse (entget (ssname (ssget "L") 0))))<br />   (princ a1)<br />   (setq a1 (reverse (append (list (car a1))<br />                             dLst<br />                             (cdr a1)<br />                     )<br />            )<br />   )<br />   (setq a1 (entmod a1))<br />   (princ a1)<br />   (setq        dLst    (VD:2dPoints->3dPoints (cdr (caddr ptLst)))<br />         p1        (cdr(car dLst))<br />         p2        (cdr(last dLst))<br />         dLst    (cdr (vl-remove (last dLst) dLst))<br />   )<br />   (princ (reverse dLst))<br />   (command ".spline" p2 p1 "" "" "")<br />   (setq        a1 (reverse (entget (ssname (ssget "L") 0))))<br />   (princ a1)<br />   (setq        a1 (reverse (append (list (car a1))<br />                             dLst<br />                             (cdr a1)<br />                     )<br />            )<br />   )<br />   (setq a1 (entmod a1))<br />   (princ a1)<br />   (setq        p1 (VD:2dPoint->3dPoint (car(cdr (cadr ptLst))))<br />         p2 (VD:2dPoint->3dPoint (car(cdr (caddr ptLst))))<br />   )<br />   (command ".line" p1 p2 "")<br />   (setq        p1 (VD:2dPoint->3dPoint (last (cdr(cadr ptLst))))<br />         p2 (VD:2dPoint->3dPoint (last (cdr(caddr ptLst))))<br />   )<br />   (command ".line" p1 p2 "")<br />   (setq        p1 (VD:2dPoint->3dPoint (car(cdr (cadr ptLst))))<br />         p2 (VD:2dPoint->3dPoint (last (cdr(caddr ptLst))))<br />   )<br /> <br />   (VD:coordinate_drawing p1  p2 20.0 2)<br /> <br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;   断面尺寸标注      <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun VD:ddim (ptLst ratio / pt tp ptlst1 i)<br />   (setq        ptlst1           (cdr (cadr ptLst))<br />         i           (length ptlst1)<br />         textHeight (* ratio 3.0)<br />   )<br />   (repeat i<br />     (setq<br />       pt     (vd:2dPoint->3dPoint (car ptlst1))<br />       tp     (polar (list 10.0 (cadr pt) 0.0) (/ pi 2) (* ratio 1.0))<br />       ptlst1 (cdr ptlst1)<br />       str    (rtos (car pt) 2)<br />     )<br />     (if        (= (rem (cadr pt) 20.0) 0.0)<br />       (progn<br />         (command "text" tp textHeight 0.0 str "")<br />         (vd:arrow pt 0 ratio)<br />       )<br />       (progn<br />         (setq p1 (list 0.0 (cadr pt) 0.0)<br />               p2 (polar p1 0 (car pt))<br />         )<br />         (command "dim1" "Hor" p1 pt p2 "")<br />         (setq p1 (list (car pt) 0.0 0.0)<br />               p2 (polar p1 (/ pi 2) (cadr pt))<br />         )<br />         (command "dim1" "Ver" p1 pt p2 "")<br />       )<br />     )<br />   )<br />   (setq        ptlst1 (cdr (caddr ptLst))<br />         i      (length ptlst1)<br />   )<br />   (repeat i<br />     (setq<br />       pt     (vd:2dPoint->3dPoint (car ptlst1))<br />       tp     (polar (list 280 (cadr pt) 0.0) (/ pi 2) (* ratio 1.0))<br />       ptlst1 (cdr ptlst1)<br />       str    (rtos (car pt) 2)<br />     )<br />     (if        (= (rem (cadr pt) 20.0) 0.0)<br />       (progn<br />         (command "text" tp textHeight 0.0 str "")<br />         (vd:arrow pt 0 ratio)<br />       )<br />       (progn<br />         (setq p1 (list (car pt) 0.0 0.0)<br />               p2 (polar p2 180 30.0)<br />         )<br />         (command "dim1" "Ver" p1 pt p2 "")<br />         (setq p1 (list 0.0 (cadr pt) 0.0)<br />               p2 (polar p1 0 (car pt))<br />         )<br />         (command "dim1" "Hor" p1 pt p2 "")<br />       )<br />     )<br />   )<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;        主程序       <br /> ;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:VD()<br />     (setq scmdecho (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (setq ptLst        nil<br />           ptLst        (VD:dataInput)<br />           ptLst        (VD:dataProcessing ptLst 20.0)<br />           n        (length ptLst)<br />           i        1<br />           ratio 2<br />           a        (* ratio 50.0)<br /> <br />     )<br />   (repeat n<br />     (setq pptLst (assoc i ptLst)<br />           i         (1+ i)<br />     )<br /> ;;;    确定作图区域（左上角点与右下角点）<br />     (setq leftTop     (vd:2dPoint->3dPoint (last (caddr pptLst)))<br />           rightBottom (vd:2dPoint->3dPoint (cadr (caddr pptLst)))<br />           rightBottom (list (+ (car rightBottom) a) 0.0 0.0)<br />           leftTop     (list 0.0 (+ (* a 0.5) (cadr leftTop)) 0.0)<br />           newOriginal (list (car rightBottom) 0.0 0.0)<br />     )<br />     (VD:draw pptLst)<br />     (VD:ddim pptLst 2.0)<br />     (command "ucs" "m" newOriginal)<br />   )<br />   (command "ucs" "")<br /> ;;;    (VD:dataOut )<br />     (setvar "cmdecho" scmdecho)<br /> )

数据文件如下：

meflying

你的数据是什么格式，，，
看完你的数据处理以后，看那些结果，不知道你到底是要做什么？
能否详细说说你具体是要做什么？

island1000

是纯文本格式的,一个断面有两条样条曲线,每行中的数据是一条样条曲线的数据,第一个数据表示第几个断面.第二个数据是样条曲线所在侧的识别号.这里只有正和反两侧.0表示正,1表示反.剩下的全是曲线上的点的数据.这里有个特殊情况，就是中间各个点的y间距是相等的，在程序中用了space变量就是这个间距。比如第一组，起点是（269.51 0.0） 终点是（122.14 251.66），中间的数据全部是各个点的坐标的数据。读入进行数据处理以后得到的数据序列如下

当然，这里我用了3组同样的断面数据，因为这些数据还是我自己整理出来的，总共有20多个，我只是想测试一下，应该完全可以的。
不好意思，太麻烦你了，我先谢谢了！

meflying

还是不明白。。。
你说的断面是什么的断面？
为什么起点是取一个数据和0，而终点又是在数据中直接取两个，到底哪个数据是X坐标，哪个数据是Y坐标？
处理后的数据中0、20、40。。。是什么东西？Y坐标吗？为什么要用点表表示？
最后你还是没有说你到底是要做什么