样条曲线表示任意图形

Jully

在AutoCAD中，对于一个任意图形（如直线、圆弧、多段线、样条曲线等组合），能否用样条曲线把这个图形统一表示出来？？？请求大家指点！！！

该贴已经同步到 Jully的微博

mandala

如果这个图形是连续的话，可以将其连成一条多段线。用样条曲线的话，我好像只能想到用多段线相连后，再每隔一个小单位长度取一个点，然后连起来。但用样条曲线连线，会使图形失真。有必要去这么连吗？

mandala

可以参考一下我写的一个lsp，其中连线的模糊距离设置为0.1，你可按需要修改。

2. 
   
3. ;;子程序，将输入选择集ssp中的LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC,circle，统一变成LWPOLYLINE，
   
4. ;;如果其中有首尾相连的线，则连接成一条LWPOLYLINE，
   
5. ;;最后返回一个名为xss的选择集。
   
6. (defun connectbypline (ssp / a xss xn ent)
   
7.   (acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))
   
8.   ;;加载flatten函数
   
9.   (setq a   0
   
10. xss (ssadd)
    
11.   ) ;_ 结束setq
    
12.   (if
    
13.     (and (= (sslength ssp) 1)
    
14.   (or (= (cdr (assoc 0 (entget (ssname ssp 0)))) "LWPOLYLINE")
    
15.       (= (cdr (assoc 0 (entget (ssname ssp 0)))) "POLYLINE")
    
16.   ) ;_ 结束or
    
17.     ) ;_ 结束and
    
18.      (ssadd (ssname ssp 0) xss)
    
19.      ;;当选中的仅有一条pline的时候另作处理。
    
20.      (progn
    
21.        ;;如果有很多图元的话，全部变成pline并加入选择集xss：
    
22.        (repeat (sslength ssp)
    
23.   (setq xn (ssname ssp a))
    
24.   (setq ent (entget xn))
    
25.   (cond
    
26.     ((= (cdr (assoc 0 ent)) "LWPOLYLINE")
    
27.      (ssadd xn xss)
    
28.     )
    
29.     ((= (cdr (assoc 0 ent)) "POLYLINE")
    
30.      (ssadd xn xss)
    
31.     )
    
32.     ((= (cdr (assoc 0 ent)) "LINE")
    
33.      (command "pedit" xn "y" "")
    
34.      (setq xn (entlast))
    
35.      (ssadd xn xss)
    
36.     )
    
37.     ((= (cdr (assoc 0 ent)) "SPLINE")
    
38.      (setq ss (ssadd))
    
39.      (ssadd xn ss)
    
40.      (acet-flatn ss nil)
    
41.      (setq xn (entlast))
    
42.      (ssadd xn xss)
    
43.     )
    
44.     ((= (cdr (assoc 0 ent)) "ARC")
    
45.      (command "pedit" xn "y" "")
    
46.      (setq xn (entlast))
    
47.      (ssadd xn xss)
    
48.     )
    
49.     ((= (cdr (assoc 0 ENT)) "CIRCLE")
    
50.      ;;圆的处理比较复杂
    
51.      (setq cp (cdr (assoc 10 ent))
    
52.     r  (cdr (assoc 40 ent))
    
53.      ) ;_ 结束setq
    
54.      (entmake
    
55.        (setq lst (list
    
56.      '(0 . "LWPOLYLINE")
    
57.      '(100 . "AcDbEntity")
    
58.      '(67 . 0)
    
59.      '(410 . "Model")
    
60.      '(100 . "AcDbPolyline")
    
61.      '(90 . 2)
    
62.      '(70 . 129)
    
63.      (cons 10 (polar cp 0 r))
    
64.      '(40 . 0)
    
65.      '(41 . 0)
    
66.      '(42 . -1)
    
67.      (cons 10 (polar cp pi r))
    
68.      '(40 . 0)
    
69.      '(41 . 0)
    
70.      '(42 . -1)
    
71.    )  ;list
    
72.        )    ;setq
    
73.      )    ;entmake
    
74.      (command "_matchprop" xn (entlast) "")
    
75.      (entdel xn)
    
76.      (setq xn (entlast))
    
77.      (ssadd xn xss)
    
78.     )
    
79.   )    ;cond
    
80.   (setq a (+ a 1))
    
81.        )    ;repeat,以上将每个图元都变成pline并加入了选择集。
    
82.        (command "pedit" "m" xss "" "j" 0.1 "")
    
83.        ;;把能连的连上。
    
84.        (setq xss xss)
    
85.      )     ;progn
    
86.   )     ;if
    
87. ) ;_ 结束defun
    
88. 
    

<br /> ;;子程序，将输入选择集ssp中的LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC,circle，统一变成LWPOLYLINE，<br /> ;;如果其中有首尾相连的线，则连接成一条LWPOLYLINE，<br /> ;;最后返回一个名为xss的选择集。<br /> (defun connectbypline (ssp / a xss xn ent)<br />   (acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))<br />   ;;加载flatten函数<br />   (setq a   0<br /> xss (ssadd)<br />   ) ;_ 结束setq<br />   (if<br />     (and (= (sslength ssp) 1)<br />   (or (= (cdr (assoc 0 (entget (ssname ssp 0)))) "LWPOLYLINE")<br />       (= (cdr (assoc 0 (entget (ssname ssp 0)))) "POLYLINE")<br />   ) ;_ 结束or<br />     ) ;_ 结束and<br />      (ssadd (ssname ssp 0) xss)<br />      ;;当选中的仅有一条pline的时候另作处理。<br />      (progn<br />        ;;如果有很多图元的话，全部变成pline并加入选择集xss：<br />        (repeat (sslength ssp)<br />   (setq xn (ssname ssp a))<br />   (setq ent (entget xn))<br />   (cond<br />     ((= (cdr (assoc 0 ent)) "LWPOLYLINE")<br />      (ssadd xn xss)<br />     )<br />     ((= (cdr (assoc 0 ent)) "POLYLINE")<br />      (ssadd xn xss)<br />     )<br />     ((= (cdr (assoc 0 ent)) "LINE")<br />      (command "pedit" xn "y" "")<br />      (setq xn (entlast))<br />      (ssadd xn xss)<br />     )<br />     ((= (cdr (assoc 0 ent)) "SPLINE")<br />      (setq ss (ssadd))<br />      (ssadd xn ss)<br />      (acet-flatn ss nil)<br />      (setq xn (entlast))<br />      (ssadd xn xss)<br />     )<br />     ((= (cdr (assoc 0 ent)) "ARC")<br />      (command "pedit" xn "y" "")<br />      (setq xn (entlast))<br />      (ssadd xn xss)<br />     )<br />     ((= (cdr (assoc 0 ENT)) "CIRCLE")<br />      ;;圆的处理比较复杂 <br />      (setq cp (cdr (assoc 10 ent))<br />     r  (cdr (assoc 40 ent))<br />      ) ;_ 结束setq<br />      (entmake<br />        (setq lst (list<br />      '(0 . "LWPOLYLINE")<br />      '(100 . "AcDbEntity")<br />      '(67 . 0)<br />      '(410 . "Model")<br />      '(100 . "AcDbPolyline")<br />      '(90 . 2)<br />      '(70 . 129)<br />      (cons 10 (polar cp 0 r))<br />      '(40 . 0)<br />      '(41 . 0)<br />      '(42 . -1)<br />      (cons 10 (polar cp pi r))<br />      '(40 . 0)<br />      '(41 . 0)<br />      '(42 . -1)<br />    )  ;list<br />        )    ;setq<br />      )    ;entmake<br />      (command "_matchprop" xn (entlast) "")<br />      (entdel xn)<br />      (setq xn (entlast))<br />      (ssadd xn xss)<br />     )<br />   )    ;cond<br />   (setq a (+ a 1))<br />        )    ;repeat,以上将每个图元都变成pline并加入了选择集。<br />        (command "pedit" "m" xss "" "j" 0.1 "")<br />        ;;把能连的连上。<br />        (setq xss xss)<br />      )     ;progn <br />   )     ;if<br /> ) ;_ 结束defun<br /> <br />

raimo

直接多段线闭合选择范围就好啦,样条曲线点数太多,如果用自动的更难保证合适的分段数