关于FILLET圆角的小构思求助

ysq101

先说说我的构思：

用F命令时，，在不按R的时候，，倒出来的圆角是以上一次为准    ---------这时直接先两个对象倒角


能不能改为：，，在不按R的时候，，先让你输入，，R角，，，
关键来了：    提示输入R值时，，直接按鼠标右键  输入0并确认     ---------这时可以选对象了，并倒R为0的角

2. (defun c:fg ()
   
3. (setvar "cmdecho" 0)
   
4. 
   
5. (if (= **R** nil)  (setq **R** 0.5))
   
6. (if (setq R (getreal (strcat "\n-->n请输入R角:<" (rtos **R** 2 3) ">: ")))
   
7.   (setq **R** R)
   
8.   (setq R **R**)
   
9. )
   
10. (setvar "FILLETRAD" **R**)
    
11. 
    
12. (setq ss (ssget  '((0 . "LWPOLYLINE"))))
    
13.   (princ "\n-->请选择多线段")
    
14.     (setq i 0)
    
15.   (repeat (sslength ss)
    
16.     (setq ent (ssname ss i))   
    
17.     (command "FILLET"  "P" ent)
    
18.     (setq i(1+ i))
    
19.   )
    
20. (princ)
    
21.   )
    
22. 
    
23. 
    
24. (grread nil 2)
    
25. 
    
26. ;以上是自己写的批量倒R角
    
27. 
    
28. 
    
29. 
    
30. (defun c:1 ()
    
31.   
    
32. (if (= **R** nil)  (setq **R** 0.5))
    
33. (if (setq R (getreal (strcat "\n-->n请输入R角:<" (rtos **R** 2 3) ">: ")))
    
34.   (setq **R** R)
    
35.   (setq R **R**)
    
36. )
    
37. (setvar "FILLETRAD" **R**)
    
38. 
    
39. 
    
40.   
    
41. 
    
42.   (grread nil 2)   这里不知道如做IF
    
43.   
    

(defun c:fg ()<br /> (setvar "cmdecho" 0)<br /> <br /> (if (= **R** nil)  (setq **R** 0.5))<br /> (if (setq R (getreal (strcat "\n-->n请输入R角:<" (rtos **R** 2 3) ">: ")))<br />   (setq **R** R)<br />   (setq R **R**)<br /> )<br /> (setvar "FILLETRAD" **R**)<br /> <br /> (setq ss (ssget  '((0 . "LWPOLYLINE"))))<br />   (princ "\n-->请选择多线段")<br />     (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss i))    <br />     (command "FILLET"  "P" ent)<br />     (setq i(1+ i))<br />   )<br /> (princ)<br />   )<br /> <br /> <br /> (grread nil 2)<br /> <br /> ;以上是自己写的批量倒R角<br /> <br /> <br /> <br /> (defun c:1 ()<br />   <br /> (if (= **R** nil)  (setq **R** 0.5))<br /> (if (setq R (getreal (strcat "\n-->n请输入R角:<" (rtos **R** 2 3) ">: ")))<br />   (setq **R** R)<br />   (setq R **R**)<br /> )<br /> (setvar "FILLETRAD" **R**)<br /> <br /> <br />   <br /> <br />   (grread nil 2)   这里不知道如做IF<br />   <br />

newer

你这样构思，比原来的FILLET方便在哪呢？

ysq101

newer 发表于 2013-11-4 20:40
你这样构思，比原来的FILLET方便在哪呢？

1,需要调整R角时不用按R键,   空格直接默认值2,需要输入R角为0时,,,,直接右键--------这个很常用           右键输入的值不影响R角的系统变量  

xtdwynij

围 观。这个是不是要用到反应器？

st788796

FilletRad 本来就是记忆上次的

newer

楼主求助的是什么呢？