请教怎样把“含有弧段pline线”转化为pline？

mycad

请教高手一个问题：请教怎样把“含有弧段pline线”转化为pline？

jj2098

楼主的意思是用小的直线段来拟合圆弧。早期的线切割机床有些没有圆弧功能，就需要做这种处理。
楼主希望小的直线段的长度是多少？或者说对应的圆角是多大？

Andyhon

一个思路
先以 Divide / measure
取得点集后以 Line 绘制
用 OverKill 合并共线之直线
再 Pedit ...

Gu_xl

1. (defun c:FitPl
   
2.        (/ ENT FGX VERTEXSNUM N SECDEV PLIST D1 D2 D K D0 PARAM obj)
   
3.   ;;直线拟合多段线 By Gu_xl
   
4.   (while (not (setq ent (car (entsel "\n选择多段线:")))))
   
5.   (setq obj (vlax-ename->vla-object ent))
   
6.   (setq fgx (getdist "\n输入最小分割间距<0.5>:"))
   
7.   (if (null fgx)
   
8.     (setq fgx 0.5)
   
9.     )
   
10.   (setq vertexsNum
    
11.          (fix (vlax-curve-getEndParam ent))
    
12.         n 0
    
13.         )
    
14.   (repeat vertexsNum
    
15.     (if (setq secdev (vlax-curve-getSecondDeriv ent n))
    
16.       (if (equal '(0.0 0.0 0.0) secdev 1e-8)
    
17.         (setq plist (cons (vlax-curve-getPointAtParam ent n) plist))
    
18.         (progn
    
19.           (setq d1    (vlax-curve-getdistAtParam ent n)
    
20.                 d2    (vlax-curve-getdistAtParam ent (1+ n))
    
21.                 d     (- d2 d1)
    
22.                 k     (fix (/ d fgx))
    
23.                 d0    (/ 1.0 (1+ k))
    
24.                 param n
    
25.                 )
    
26.           (setq plist (cons (vlax-curve-getPointAtParam ent n) plist))
    
27.           (if (equal d0 1.0 0.001)
    
28.             (setq plist
    
29.                    (cons (vlax-curve-getPointAtParam ent (+ 0.5 param))
    
30.                          plist
    
31.                          )
    
32.                   )
    
33.             (repeat k
    
34.               (setq plist (cons (vlax-curve-getPointAtParam
    
35.                                   ent
    
36.                                   (setq param (+ param d0))
    
37.                                   )
    
38.                                 plist
    
39.                                 )
    
40.                     )
    
41.               )
    
42.             )
    
43.           )
    
44.         )
    
45.       )
    
46.     (setq n (1+ n))
    
47.     )
    
48.   (if (not (vlax-curve-isClosed ent))
    
49.     (setq plist (cons (vlax-curve-getEndPoint ent) plist))
    
50.     )
    
51.   (reverse plist)
    
52.   (command "pline")
    
53.   (foreach p plist
    
54.     (command "_non" (trans p 0 1))
    
55.     )
    
56.   (command "")
    
57.   (if (vlax-curve-isClosed obj)
    
58.     (vla-put-closed
    
59.       (vlax-ename->vla-object (entlast))
    
60.       :vlax-true
    
61.       )
    
62.     )
    
63.   (princ)
    
64.   )

(defun c:FitPl<br />        (/ ENT FGX VERTEXSNUM N SECDEV PLIST D1 D2 D K D0 PARAM obj)<br />   ;;直线拟合多段线 By Gu_xl <br />   (while (not (setq ent (car (entsel "\n选择多段线:")))))<br />   (setq obj (vlax-ename->vla-object ent))<br />   (setq fgx (getdist "\n输入最小分割间距<0.5>:"))<br />   (if (null fgx)<br />     (setq fgx 0.5)<br />     )<br />   (setq vertexsNum<br />          (fix (vlax-curve-getEndParam ent))<br />         n 0<br />         )<br />   (repeat vertexsNum<br />     (if (setq secdev (vlax-curve-getSecondDeriv ent n))<br />       (if (equal '(0.0 0.0 0.0) secdev 1e-8)<br />         (setq plist (cons (vlax-curve-getPointAtParam ent n) plist))<br />         (progn<br />           (setq d1    (vlax-curve-getdistAtParam ent n)<br />                 d2    (vlax-curve-getdistAtParam ent (1+ n))<br />                 d     (- d2 d1)<br />                 k     (fix (/ d fgx))<br />                 d0    (/ 1.0 (1+ k))<br />                 param n<br />                 )<br />           (setq plist (cons (vlax-curve-getPointAtParam ent n) plist))<br />           (if (equal d0 1.0 0.001)<br />             (setq plist<br />                    (cons (vlax-curve-getPointAtParam ent (+ 0.5 param))<br />                          plist<br />                          )<br />                   )<br />             (repeat k<br />               (setq plist (cons (vlax-curve-getPointAtParam<br />                                   ent<br />                                   (setq param (+ param d0))<br />                                   )<br />                                 plist<br />                                 )<br />                     )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     (setq n (1+ n))<br />     )<br />   (if (not (vlax-curve-isClosed ent))<br />     (setq plist (cons (vlax-curve-getEndPoint ent) plist))<br />     )<br />   (reverse plist)<br />   (command "pline")<br />   (foreach p plist<br />     (command "_non" (trans p 0 1))<br />     )<br />   (command "")<br />   (if (vlax-curve-isClosed obj)<br />     (vla-put-closed<br />       (vlax-ename->vla-object (entlast))<br />       :vlax-true<br />       )<br />     )<br />   (princ)<br />   )

gufeng

根据线段上的弧 计算出等分点 然后把凸度去除 添加顶点

mycad

非常感谢超级版主Gu_xl，您超牛！

freehand8008

Gu_xl 发表于 2013-3-27 11:55

试用了，不过好像不太完美，弧、SP均有些问题

ll_j

(acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))
(acet-flatn (ssget) t)

happyboy75

Gu_xl 牛逼