[求助]：spline如何转换为PL

fylinwater

？

XDSoft

最初由 fylinwater 发布
[B]？ [/B]

用一段断满足视觉误差的LINE连接起来

fylinwater

我是想知道算法

XDSoft

最初由 fylinwater 发布
[B]我是想知道算法 [/B]

如果使用ARX, 几何库提供了求样本点的方法，如果你用LISP，那么你可以去样本点后，判断直线中点到SPLINE最低距离是否满足误差，如果没有满足，二分逼进，再判断。。。。

cy956

1。vlisp可以算。
2。更简单的办法是转wmfout再转wmfin，可以lisp写。

mmmm

给你个模拟程序

2. 
   
3. ;函  数: C:OAS_Object_Spline->Polyline
   
4. ;功  能: 将SPLINE实体模拟转换成POLYLINE, 图层继承原SPLINE实体的, 同时删除此SPLINE实体
   
5. ;格  式: (C:OAS_Object_Spline->Polyline SPLINE实体[ENAME])
   
6. ;返回值: [成功]: 新建的POLYLINE实体名[ENAME]
   
7. ;        [失败]: NIL
   
8. ;示  例: (C:OAS_Object_Spline->Polyline (car (entsel)))
   
9. ;      =><Entity name: xxxxxxxx>
   
10. ;==================================================================================================
    
11. (Defun C:OAS_Object_Spline->Polyline
    
12.        (SPline / OldLayer Item Point PointX Pline Rtn)
    
13.   (if (= (type SPline) 'ENAME)
    
14.     (setq SPline (entget SPline))
    
15.   )
    
16.   (setq        OldLayer (cdr (assoc 8 SPline))
    
17.         Rtn         nil
    
18.   )
    
19.   (SetVar "Osmode" 0)
    
20.   (command "_.Pline")
    
21.   (foreach Item        SPline
    
22.     (if        (= (car Item) 10)
    
23.       (command (if (null PointX)
    
24.                  (setq PointX (cdr Item))
    
25.                  (setq Point (cdr Item))
    
26.                )
    
27.       )
    
28.     )
    
29.   )
    
30.   (if (equal Point PointX)
    
31.     (command "_c")
    
32.     (command "")
    
33.   )
    
34.   (command "_.PEdit" (setq Pline (entlast)) "_S" "")
    
35.   (entdel (cdr (assoc -1 SPline)))
    
36.   (setq SPline Pline)
    
37.   (if (entmake
    
38.         (list (cons 0 "POLYLINE")
    
39.               (cons 8 OldLayer)
    
40.               (cons 70 (logand 1 (cdr (assoc 70 (entget Pline)))))
    
41.         )
    
42.       )
    
43.     (while (/= "SEQEND"
    
44.                (cdr (assoc 0 (entget (setq Pline (entnext Pline)))))
    
45.            )
    
46.       (if (member (cdr (assoc 70 (entget Pline)))
    
47.                   (list 8 1)
    
48.           )
    
49.         (entmake (list (assoc 0 (entget Pline))
    
50.                        (assoc 10 (entget Pline))
    
51.                        (assoc 42 (entget Pline))
    
52.                  )
    
53.         )
    
54.       )
    
55.     )
    
56.   )
    
57.   (entmake (list (cons 0 "SEQEND")))
    
58.   (setq Rtn (entlast))
    
59.   (entdel SPline)
    
60.   Rtn
    
61. )
    

<br /> ;函  数: C:OAS_Object_Spline->Polyline<br /> ;功  能: 将SPLINE实体模拟转换成POLYLINE, 图层继承原SPLINE实体的, 同时删除此SPLINE实体<br /> ;格  式: (C:OAS_Object_Spline->Polyline SPLINE实体[ENAME])<br /> ;返回值: [成功]: 新建的POLYLINE实体名[ENAME]<br /> ;        [失败]: NIL<br /> ;示  例: (C:OAS_Object_Spline->Polyline (car (entsel)))<br /> ;      =><Entity name: xxxxxxxx><br /> ;==================================================================================================<br /> (Defun C:OAS_Object_Spline->Polyline<br />        (SPline / OldLayer Item Point PointX Pline Rtn)<br />   (if (= (type SPline) 'ENAME)<br />     (setq SPline (entget SPline))<br />   )<br />   (setq        OldLayer (cdr (assoc 8 SPline))<br />         Rtn         nil<br />   )<br />   (SetVar "Osmode" 0)<br />   (command "_.Pline")<br />   (foreach Item        SPline<br />     (if        (= (car Item) 10)<br />       (command (if (null PointX)<br />                  (setq PointX (cdr Item))<br />                  (setq Point (cdr Item))<br />                )<br />       )<br />     )<br />   )<br />   (if (equal Point PointX)<br />     (command "_c")<br />     (command "")<br />   )<br />   (command "_.PEdit" (setq Pline (entlast)) "_S" "")<br />   (entdel (cdr (assoc -1 SPline)))<br />   (setq SPline Pline)<br />   (if (entmake<br />         (list (cons 0 "POLYLINE")<br />               (cons 8 OldLayer)<br />               (cons 70 (logand 1 (cdr (assoc 70 (entget Pline)))))<br />         )<br />       )<br />     (while (/= "SEQEND"<br />                (cdr (assoc 0 (entget (setq Pline (entnext Pline)))))<br />            )<br />       (if (member (cdr (assoc 70 (entget Pline)))<br />                   (list 8 1)<br />           )<br />         (entmake (list (assoc 0 (entget Pline))<br />                        (assoc 10 (entget Pline))<br />                        (assoc 42 (entget Pline))<br />                  )<br />         )<br />       )<br />     )<br />   )<br />   (entmake (list (cons 0 "SEQEND")))<br />   (setq Rtn (entlast))<br />   (entdel SPline)<br />   Rtn<br /> )<br />

cy956

最初由 mmmm 发布
[B]给你个模拟程序
[/B]

好像不会很模拟的。