[编程申请]：老问题，样条曲线转化

scysqc

论坛上很多转换样条的程序都不够完美。那位高手帮帮忙写一个
要求：转换后炸开必须为弧线，而且要圆滑，不能是每段都一样长，像ET工具中那个“flatten”命令那样，根据样条的曲度大小转换的弧大小也不一样，尽量减少线段的数量。
能否拿flatten改一下？？
先谢了

qq：380094804
e-mail：scysqc@163.com
tel：0755-812544445

eachy

既然Flatten能满足为什么还要再写呢？

scysqc

Flatten就是还不够完美，线段还是很多

eachy

仅靠Lisp很难达到理想的效果，下面是网上搜索到的，你可以试着自己改进

2. 
   
3. ;;;CADALYST 01/06  Tip 2082: Spline2Pline2.lsp         Spline to Polyline Conversion - Update         (c) 2006 Cadalyst and Lloyd Beachy + narrator
   
4. 
   
5. ;; Spline2Pline2.lsp (c) 2005 Lloyd Beachy + narrator
   
6. ;; Routine to convert splines to plines
   
7. 
   
8. (Defun C:S2P2 (/ ss pt#        cmdecho        osmode clayer count ent        lay lng        pt-list
   
9.                cnt)
   
10.   (vl-load-com)
    
11.   (setq        ss        (ssget '((0 . "spline")))
    
12.         multi#        (getint
    
13.                   "Please specify number of polyline points by a multiplicator of spline's control points, leave default for the same number <1>:"
    
14.                 )
    
15.         cmdecho        (getvar "cmdecho")
    
16.         osmode        (getvar "osmode")
    
17.         clayer        (getvar "clayer")
    
18.         count        0                        ;spline counter
    
19.   )                                        ;end setq
    
20.   (if (null multi#)
    
21.     (setq multi# 1)
    
22.   )
    
23.   (setvar "cmdecho" 0)
    
24.   (command ".undo" "begin")                ;begin undo group
    
25.   (setvar "osmode" 0)
    
26.   (repeat (sslength ss)                        ;repeat for each spline
    
27.     (setq ent          (vlax-ename->vla-object (ssname ss count))
    
28.                                         ;change spline to vla-object
    
29.           lay          (vlax-get-property ent "layer") ;spline's layer
    
30.           cp#          (vlax-get-property ent "numberofcontrolpoints")
    
31.                                         ;spline's control points number
    
32.           lng          (vlax-curve-getDistAtPoint ent (vlax-curve-getEndPoint ent))
    
33.                                         ;length of spline
    
34.           pt-list (list (vlax-curve-getStartPoint ent))
    
35.                                         ;coords for start of spline
    
36.           cnt          1.0                        ;segment counter
    
37.           pt#          (* cp# multi#)
    
38.     )                                        ;end setq
    
39.     (repeat pt#                                ;repeat for each segment
    
40.       (setq pt-list
    
41.              (cons (vlax-curve-getPointAtDist ent (* lng (/ cnt pt#)))
    
42.                    pt-list
    
43.              )
    
44.       )                                        ;add segment's point to pt-list
    
45.       (setq cnt (1+ cnt))                ;counter to next segment
    
46.     )                                        ;end segment repeat
    
47.     (setq cnt 0)                        ;pline counter
    
48.     (setvar "clayer" lay)                ;match spline's layer
    
49.     (command ".pline"                        ;start "pline" command
    
50.              (repeat (length pt-list)        ;repeat for each point
    
51.                (command (nth cnt pt-list)) ;enter current point
    
52.                (setq cnt (1+ cnt))        ;counter to next point
    
53.                ""                        ;return value to close "pline" command
    
54.              )                                ;end point repeat
    
55.     )                                        ;end command
    
56.     (setq count (1+ count))                ;counter to next spline
    
57.   )                                        ;end spline repeat
    
58.   (command ".erase" ss "")
    
59.   (setvar "osmode" osmode)
    
60.   (setvar "clayer" clayer)
    
61.   (command ".undo" "end")                ;end of undo group
    
62.   (setvar "cmdecho" cmdecho)
    
63.   (princ)                                ;exit quietly
    
64. )                                        ;end C:S2P

<br /> ;;;CADALYST 01/06  Tip 2082: Spline2Pline2.lsp         Spline to Polyline Conversion - Update         (c) 2006 Cadalyst and Lloyd Beachy + narrator<br /> <br /> ;; Spline2Pline2.lsp (c) 2005 Lloyd Beachy + narrator<br /> ;; Routine to convert splines to plines<br /> <br /> (Defun C:S2P2 (/ ss pt#        cmdecho        osmode clayer count ent        lay lng        pt-list<br />                cnt)<br />   (vl-load-com)<br />   (setq        ss        (ssget '((0 . "spline")))<br />         multi#        (getint<br />                   "Please specify number of polyline points by a multiplicator of spline's control points, leave default for the same number <1>:"<br />                 )<br />         cmdecho        (getvar "cmdecho")<br />         osmode        (getvar "osmode")<br />         clayer        (getvar "clayer")<br />         count        0                        ;spline counter<br />   )                                        ;end setq<br />   (if (null multi#)<br />     (setq multi# 1)<br />   )<br />   (setvar "cmdecho" 0)<br />   (command ".undo" "begin")                ;begin undo group<br />   (setvar "osmode" 0)<br />   (repeat (sslength ss)                        ;repeat for each spline<br />     (setq ent          (vlax-ename->vla-object (ssname ss count))<br />                                         ;change spline to vla-object<br />           lay          (vlax-get-property ent "layer") ;spline's layer<br />           cp#          (vlax-get-property ent "numberofcontrolpoints")<br />                                         ;spline's control points number<br />           lng          (vlax-curve-getDistAtPoint ent (vlax-curve-getEndPoint ent))<br />                                         ;length of spline<br />           pt-list (list (vlax-curve-getStartPoint ent))<br />                                         ;coords for start of spline<br />           cnt          1.0                        ;segment counter<br />           pt#          (* cp# multi#)<br />     )                                        ;end setq<br />     (repeat pt#                                ;repeat for each segment<br />       (setq pt-list<br />              (cons (vlax-curve-getPointAtDist ent (* lng (/ cnt pt#)))<br />                    pt-list<br />              )<br />       )                                        ;add segment's point to pt-list<br />       (setq cnt (1+ cnt))                ;counter to next segment<br />     )                                        ;end segment repeat<br />     (setq cnt 0)                        ;pline counter<br />     (setvar "clayer" lay)                ;match spline's layer<br />     (command ".pline"                        ;start "pline" command<br />              (repeat (length pt-list)        ;repeat for each point<br />                (command (nth cnt pt-list)) ;enter current point<br />                (setq cnt (1+ cnt))        ;counter to next point<br />                ""                        ;return value to close "pline" command<br />              )                                ;end point repeat<br />     )                                        ;end command<br />     (setq count (1+ count))                ;counter to next spline<br />   )                                        ;end spline repeat<br />   (command ".erase" ss "")<br />   (setvar "osmode" osmode)<br />   (setvar "clayer" clayer)<br />   (command ".undo" "end")                ;end of undo group<br />   (setvar "cmdecho" cmdecho)<br />   (princ)                                ;exit quietly<br /> )                                        ;end C:S2P

scysqc

能力有限啊！！有没什么别的办法呢？

eachy

http://www.xdcad.net/forum/showt ... 2912781#post2912781