[编程申请]：多义线fillet，我编好了，谁给修改一下

coolzhb

我的程序只能是单根的多义线，如果多义线有转折，则不对了，谁帮我修改一下。

2. 
   
3. (defun c:tpl (/ p1 p2 l1 l2 w1 w2 a1 a2 pt1 pt2 pt11 pt12 pt21 pt22 ps1 ps2
   
4.                 p0 mp1 mp2
   
5.              )
   
6.   (begin0)
   
7.   (setq p1 (entsel)
   
8.         p2 (entsel)
   
9.   )
   
10.   (setq l1 (entget (car p1))
    
11.         l2 (entget (car p2))
    
12.   )
    
13.   (setq w1 (cdr (assoc 40 l1))
    
14.         w2 (cdr (assoc 40 l2))
    
15.   )
    
16.   (command "explode" p1)
    
17.   (setq a1 (entlast))
    
18.   (command "explode" p2)
    
19.   (setq a2 (entlast))
    
20.   (setq pt1 (entget a1)
    
21.         pt2 (entget a2)
    
22.         pt11 (cdr (assoc 10 pt1))
    
23.         pt12 (cdr (assoc 11 pt1))
    
24.         pt21 (cdr (assoc 10 pt2))
    
25.         pt22 (cdr (assoc 11 pt2))
    
26.         ps1 (car (cdr p1))
    
27.         ps2 (car (cdr p2))
    
28.   )
    
29.   (setq p0 (inters
    
30.              pt11
    
31.              pt12
    
32.              pt21
    
33.              pt22
    
34.              nil
    
35.            )
    
36.   )
    
37.   (setq mp1 (list 10 (car p0) (cadr p0))
    
38.         mp2 (list 11 (car p0) (cadr p0))
    
39.   )
    
40.   (if (or
    
41.         (< (* (- (car pt11) (car ps1)) (- (car p0) (car ps1))) 0)
    
42.         (< (* (- (cadr pt11) (cadr ps1)) (- (cadr p0) (cadr ps1))) 0)
    
43.       )
    
44.     (setq pt1 (subst
    
45.                 mp2
    
46.                 (assoc 11 pt1)
    
47.                 pt1
    
48.               )
    
49.     )
    
50.     (setq pt1 (subst
    
51.                 mp1
    
52.                 (assoc 10 pt1)
    
53.                 pt1
    
54.               )
    
55.     )
    
56.   )
    
57.   (entmod pt1)
    
58.   (if (or
    
59.         (< (* (- (car pt21) (car ps2)) (- (car p0) (car ps2))) 0)
    
60.         (< (* (- (cadr pt21) (cadr ps2)) (- (cadr p0) (cadr ps2))) 0)
    
61.       )
    
62.     (setq pt2 (subst
    
63.                 mp2
    
64.                 (assoc 11 pt2)
    
65.                 pt2
    
66.               )
    
67.     )
    
68.     (setq pt2 (subst
    
69.                 mp1
    
70.                 (assoc 10 pt2)
    
71.                 pt2
    
72.               )
    
73.     )
    
74.   )
    
75.   (entmod pt2)
    
76.   (command "pedit" a1 "y" "w" (rtos w1 2 2) "")
    
77.   (command "pedit" a2 "y" "w" (rtos w2 2 2) "")
    
78.   (end0)
    
79.   (princ)
    
80. )

<br /> (defun c:tpl (/ p1 p2 l1 l2 w1 w2 a1 a2 pt1 pt2 pt11 pt12 pt21 pt22 ps1 ps2<br />                 p0 mp1 mp2<br />              )<br />   (begin0)<br />   (setq p1 (entsel)<br />         p2 (entsel)<br />   )<br />   (setq l1 (entget (car p1))<br />         l2 (entget (car p2))<br />   )<br />   (setq w1 (cdr (assoc 40 l1))<br />         w2 (cdr (assoc 40 l2))<br />   )<br />   (command "explode" p1)<br />   (setq a1 (entlast))<br />   (command "explode" p2)<br />   (setq a2 (entlast))<br />   (setq pt1 (entget a1)<br />         pt2 (entget a2)<br />         pt11 (cdr (assoc 10 pt1))<br />         pt12 (cdr (assoc 11 pt1))<br />         pt21 (cdr (assoc 10 pt2))<br />         pt22 (cdr (assoc 11 pt2))<br />         ps1 (car (cdr p1))<br />         ps2 (car (cdr p2))<br />   )<br />   (setq p0 (inters<br />              pt11<br />              pt12<br />              pt21<br />              pt22<br />              nil<br />            )<br />   )<br />   (setq mp1 (list 10 (car p0) (cadr p0))<br />         mp2 (list 11 (car p0) (cadr p0))<br />   )<br />   (if (or<br />         (< (* (- (car pt11) (car ps1)) (- (car p0) (car ps1))) 0)<br />         (< (* (- (cadr pt11) (cadr ps1)) (- (cadr p0) (cadr ps1))) 0)<br />       )<br />     (setq pt1 (subst<br />                 mp2<br />                 (assoc 11 pt1)<br />                 pt1<br />               )<br />     )<br />     (setq pt1 (subst<br />                 mp1<br />                 (assoc 10 pt1)<br />                 pt1<br />               )<br />     )<br />   )<br />   (entmod pt1)<br />   (if (or<br />         (< (* (- (car pt21) (car ps2)) (- (car p0) (car ps2))) 0)<br />         (< (* (- (cadr pt21) (cadr ps2)) (- (cadr p0) (cadr ps2))) 0)<br />       )<br />     (setq pt2 (subst<br />                 mp2<br />                 (assoc 11 pt2)<br />                 pt2<br />               )<br />     )<br />     (setq pt2 (subst<br />                 mp1<br />                 (assoc 10 pt2)<br />                 pt2<br />               )<br />     )<br />   )<br />   (entmod pt2)<br />   (command "pedit" a1 "y" "w" (rtos w1 2 2) "")<br />   (command "pedit" a2 "y" "w" (rtos w2 2 2) "")<br />   (end0)<br />   (princ)<br /> )

eachy

多义线的Fillet在2002以上可以直接用标准命令 Fillet 呀
Fillet限与多义线与多义线、多义线与直线(LINE)，以下几种不可以：
1 拟合的多义线均不能Fillet
2 多义线弧段与直线
3 ARC与多义线

coolzhb

所以多义线不能fillet,只能编程了

lsjjm

能否详细说明一下你要的功能和动作要求?

coolzhb

和2002中的Fillet效果一样，可以对两个多义线进行操作