终于可以进了，求一个倒角程序，圆弧、直线

abc498091367

请看上图，选两条圆弧,两直线,一弧线加一直线倒R角

先输入倒R角半径，再框选需要倒R角的对象

网上找到的基本都是只能倒直线，不能倒弧线.所以来晓东求一个可以倒弧线R角的。
如能象第4那样，一次框选四条弧线，那肯定最好不过了，5是弧线加直线倒R角  

如能不用晓东函数最好，老实更新麻烦！工作地方上不了网

谢谢！

st788796

用 API 给你个思路

1. (defun c:tt (/ e r npl i n p p1 p2 p11 p21)
   
2.   (if (and (setq e (car (xdrx_entsel "\nPick Polyline: ")))
   
3.            (setq r (getdist "\nRadio: "))
   
4.       )
   
5.     (progn
   
6.       (setq npl (ssname (xdrx_curve_getoffsetcurves e (- r)) 0))
   
7.       (if (= (xdrx_polyline_numverts e) (xdrx_polyline_numverts npl))
   
8.         (progn
   
9.           (mapcar '(lambda (x)
   
10.                      (xdrx_circle_make x r)
    
11.                    )
    
12.                   (xdrx_getpropertyvalue npl "vertices")
    
13.           )
    
14.           (setq        i 0
    
15.                 n (xdrx_polyline_numverts e)
    
16.           )
    
17.           (repeat n
    
18.             (setq p  (xdrx_polyline_getpointat npl i)
    
19.                   p1 (cadr (xdrx_polyline_getarcsegat e i))
    
20.                   p2 (cadr (xdrx_polyline_getarcsegat
    
21.                              e
    
22.                              (if (zerop i)
    
23.                                (1- n)
    
24.                                (1- i)
    
25.                              )
    
26.                            )
    
27.                      )
    
28.                   i  (1+ i)
    
29.             )
    
30. 
    
31.             (xdrx_entity_delete npl)
    
32.             (setq p11 (xdrx_curve_getinters (list p p1) e)
    
33.                   p21 (xdrx_curve_getinters (list p p2) e)
    
34.             )
    
35.           )
    
36.         )
    
37.       )
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )

(defun c:tt (/ e r npl i n p p1 p2 p11 p21)<br />   (if (and (setq e (car (xdrx_entsel "\nPick Polyline: ")))<br />            (setq r (getdist "\nRadio: "))<br />       )<br />     (progn<br />       (setq npl (ssname (xdrx_curve_getoffsetcurves e (- r)) 0))<br />       (if (= (xdrx_polyline_numverts e) (xdrx_polyline_numverts npl))<br />         (progn<br />           (mapcar '(lambda (x)<br />                      (xdrx_circle_make x r)<br />                    )<br />                   (xdrx_getpropertyvalue npl "vertices")<br />           )<br />           (setq        i 0<br />                 n (xdrx_polyline_numverts e)<br />           )<br />           (repeat n<br />             (setq p  (xdrx_polyline_getpointat npl i)<br />                   p1 (cadr (xdrx_polyline_getarcsegat e i))<br />                   p2 (cadr (xdrx_polyline_getarcsegat<br />                              e<br />                              (if (zerop i)<br />                                (1- n)<br />                                (1- i)<br />                              )<br />                            )<br />                      )<br />                   i  (1+ i)<br />             )<br /> <br />             (xdrx_entity_delete npl)<br />             (setq p11 (xdrx_curve_getinters (list p p1) e)<br />                   p21 (xdrx_curve_getinters (list p p2) e)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

aeo

几条单独的线或弧，还是连着一起的一条pl线

abc498091367

aeo 发表于 2014-6-3 16:27
几条单独的线或弧，还是连着一起的一条pl线

单独的，不是PL线，只要能选择两根线,都比一根一根的去点快点了,

abc498091367

st788796 发表于 2014-6-3 12:04
用 API 给你个思路

不是PL线,是两条单独的弧线或者弧线加直线，两直线,目前一根一根去点,慢死了!

小妖妖

这个程序不难啊 ，自己摸索一下就好了啊

abc498091367

小妖妖 发表于 2014-6-5 12:14
这个程序不难啊 ，自己摸索一下就好了啊

有点难,你QQ多少,可以QQ上请教下吗?

newer

abc498091367 发表于 2014-6-3 22:59

你可以先把几条线连接成PL线啊，难度你这些弧线也不是首尾连接的？