[求助]：怎样快速修改倒角命令里的.......

zhgr100

怎样快速修改倒角命令里的R，每次都要改一次，很费事，哪位大虾知道？！！谢谢！

foolish_tyu

2002中倒角改了R后就可以用，不象2000中，又得倒角

syb106

变量是filletrad，在acad.lsp中将其改为你所需的值即可

lt_zzy

你可以定制一个模板文件，将其中的R设成你所需要的值，以后你再用的时候就会是你所需要的值。但愿我的回答会对你有所帮助，谢谢！

伊枫

要倒一样的角度倒完再倒别的角度啊

wyhrainbow

请问模板如何定制？谢谢。

xzg_hello

最初由 wyhrainbow 发布
请问模板如何定制？谢谢。

打开acad.dwt（这是acad启动默认模板），然后修改环境设置，例如图层、线型、系统参数等，你甚至可以在里面画一个诸如图框之类常用的东东，最后存盘退出。重新启动acad，你会发现不必再做刚才的环境设置了。

good luck！
:c :c :c :c :c

cxx

实际用处不大,因为很少有人每次的导角数值都一样的.不过acad能记住你最后一次的导角数值。关闭后重新打开也能记忆。

秋枫

举例写个程序

2. 
   
3. [FONT=courier new]
   
4. (defun c:fillet2(/ entname )
   
5.        (command "_.fillet")
   
6.        (while (setq entname (entsel "请选择倒角边(select fillet edge):"))
   
7.               (if (= "" (getvar "cmdnames")) (command "_.fillet"))
   
8.               (command entname)
   
9.        )
   
10.        (command ^C)
    
11.        (princ)
    
12. )
    
13. 
    
14. ;; fillet command shortcuts:
    
15. ;; ----------------------------
    
16. (defun c:FILLET-0000()
    
17.        (command "_.fillet" "_R" "0")
    
18.        (c:fillet2)
    
19. )
    
20. (defun c:FILLET-1000()
    
21.        (command "_.fillet" "_R" "1000")
    
22.        (c:fillet2)
    
23. )
    
24. (defun c:FILLET-2000()
    
25.        (command "_.fillet" "_R" "2000")
    
26.        (c:fillet2)
    
27. )
    
28. (defun c:FILLET-3000()
    
29.        (command "_.fillet" "_R" "3000")
    
30.        (c:fillet2)
    
31. )
    
32. (defun c:FILLET-4000()
    
33.        (command "_.fillet" "_R" "4000")
    
34.        (c:fillet2)
    
35. )
    
36. [/FONT]

<br /> [FONT=courier new]<br /> (defun c:fillet2(/ entname ) <br />        (command "_.fillet") <br />        (while (setq entname (entsel "请选择倒角边(select fillet edge):"))<br />               (if (= "" (getvar "cmdnames")) (command "_.fillet"))<br />               (command entname)<br />        )<br />        (command ^C)<br />        (princ)<br /> )<br /> <br /> ;; fillet command shortcuts:<br /> ;; ----------------------------<br /> (defun c:FILLET-0000()<br />        (command "_.fillet" "_R" "0")<br />        (c:fillet2)<br /> )<br /> (defun c:FILLET-1000()<br />        (command "_.fillet" "_R" "1000")<br />        (c:fillet2)<br /> )<br /> (defun c:FILLET-2000()<br />        (command "_.fillet" "_R" "2000")<br />        (c:fillet2)<br /> )<br /> (defun c:FILLET-3000()<br />        (command "_.fillet" "_R" "3000")<br />        (c:fillet2)<br /> )<br /> (defun c:FILLET-4000()<br />        (command "_.fillet" "_R" "4000")<br />        (c:fillet2)<br /> )<br /> [/FONT]

定义了新命令FILLET-0000至FILLET-4000, 自己在acad.pgp定义命令缩写

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. (defun c:fr ()
   
5. (setq frad (getvar "filletrad")
   
6.          nfrad (getdist (strcat "\nfilllet rad<"  (rtos frad) ">:")))
   
7. (if nfrad (setvar "filletrad" nfrad))
   
8. (command "_.fillet")
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:fr ()<br /> (setq frad (getvar "filletrad")<br />          nfrad (getdist (strcat "\nfilllet rad<"  (rtos frad) ">:")))<br /> (if nfrad (setvar "filletrad" nfrad))<br /> (command "_.fillet")<br /> )<br />   [/FONT]<br />

wyhrainbow

谢谢，我知道了。

zhgr100

也就是说没有更好的方法了，好的，谢谢各位大虾！！~

longinmymind

很好的，省了不少的事 ，谢谢

zhijunsun136

好像没用

qiuqi_1604

2004就可以同时到多个角了