求个“动态”fillet"程序

尘缘一生

       我们画图经常用到圆角，比如:画屋面墙角防水圆角，由于比例问题，到底倒角半径输入多少不知道合适，总试用几遍成功，现求一个“动态圆角”程序，就是拉动显示的那种。



        意思就是，不要求输入圆角的半径，拉动，满意完成，动态圆角半径，常用的就是两根直线、多义线即可，不要求批量。

永不言弃

只能倒角直线
代码很乱，大神们优化一下吧

2. 
   
3. (defun c:tt ()
   
4. ;;;动态倒角
   
5.   (vl-load-com)
   
6.   (setq ent1 (car (entsel)))
   
7.   (setq ent2 (car (entsel)))
   
8.   (setq pt2 (cadr (grread 1 2 1)))
   
9.   (setvar "Filletrad" 0)
   
10.   (command "fillet" ent1 ent2)
    
11.   (setq cct 1)
    
12.   (while (= cct 1)
    
13.    
    
14.     (setq pt1 (grread 1 4 0))
    
15.     (cond
    
16.       ((= (car pt1) 5)
    
17.        (command "UNDO" 1)
    
18.        (setq dia (distance pt2 (cadr pt1)))
    
19. ;;;       (print (strcat "当前半径<" (rtos dia 2 3)">"))
    
20.        (princ)
    
21.        (command "redraw" )
    
22.        (grdraw pt2 (cadr pt1) 3 1)
    
23.        (setvar "Filletrad" dia)
    
24.        (command "fillet" ent1 ent2)
    
25.       )
    
26.       ((= (car pt1) 3)
    
27.        (setq cct 2)
    
28.        (command "UNDO" 1)
    
29.        (command "redraw" )
    
30.        (setvar "Filletrad" dia)
    
31.        (command "fillet" ent1 ent2)
    
32.       )
    
33.     )
    
34.   )
    
35. )

<br /> (defun c:tt ()<br /> ;;;动态倒角<br />   (vl-load-com)<br />   (setq ent1 (car (entsel)))<br />   (setq ent2 (car (entsel)))<br />   (setq pt2 (cadr (grread 1 2 1)))<br />   (setvar "Filletrad" 0)<br />   (command "fillet" ent1 ent2)<br />   (setq cct 1)<br />   (while (= cct 1)<br />     <br />     (setq pt1 (grread 1 4 0))<br />     (cond<br />       ((= (car pt1) 5)<br />        (command "UNDO" 1)<br />        (setq dia (distance pt2 (cadr pt1)))<br /> ;;;       (print (strcat "当前半径<" (rtos dia 2 3)">"))<br />        (princ)<br />        (command "redraw" )<br />        (grdraw pt2 (cadr pt1) 3 1)<br />        (setvar "Filletrad" dia)<br />        (command "fillet" ent1 ent2)<br />       )<br />       ((= (car pt1) 3)<br />        (setq cct 2)<br />        (command "UNDO" 1)<br />        (command "redraw" )<br />        (setvar "Filletrad" dia)<br />        (command "fillet" ent1 ent2)<br />       )<br />     )<br />   )<br /> )

冒个烟圈

虽然没有这个程序，也用不到，，还是帮你顶上去。。。

434939575

虽然没有你要的。但有好多动态可以参考，。http://bbs.mjtd.com/thread-91313-1-1.html

Atsai

http://bbs.mjtd.com/thread-101039-1-1.html
這個擴展後應該可以符合你的需求。

434939575

http://bbs.mjtd.com/thread-86814-1-1.html