如何批量导圆角？

zilong136

• 如何修改下列这串代码？要求先输入半径再选择对象。
• (defun c:f2 ()
•   (prompt "\n f2:圆角")
•   (vl-cmdf "fillet" "u" (ssget)  "r"  "" )
•   (princ)
• )
  

自贡黄明儒

(SETVAR "FILLETRAD" B)

359321852

1. (defun c:f2 ()
   
2.   (prompt "\n f2:圆角")
   
3.   ;; 提示用户输入圆角半径
   
4.   (setq radius (getreal "\n请输入圆角半径: "))
   
5. 
   
6.   ;; 验证用户输入的半径
   
7.   (if (and radius (> radius 0))
   
8.     (progn
   
9.       ;; 设置圆角半径
   
10.       (vl-cmdf "fillet" "r" radius)
    
11.       ;; 选择要进行圆角的对象
    
12.       (setq ss (ssget))
    
13.       ;; 如果选择集非空，则进行圆角操作
    
14.       (if ss
    
15.         (vl-cmdf "fillet" "p" ss)
    
16.         (prompt "\n没有选择对象。")
    
17.       )
    
18.     )
    
19.     (prompt "\n无效的圆角半径。")
    
20.   )
    
21.   (princ)
    
22. )
    

(defun c:f2 ()<br />   (prompt "\n f2:圆角")<br />   ;; 提示用户输入圆角半径<br />   (setq radius (getreal "\n请输入圆角半径: "))<br /> <br />   ;; 验证用户输入的半径<br />   (if (and radius (> radius 0))<br />     (progn<br />       ;; 设置圆角半径<br />       (vl-cmdf "fillet" "r" radius)<br />       ;; 选择要进行圆角的对象<br />       (setq ss (ssget))<br />       ;; 如果选择集非空，则进行圆角操作<br />       (if ss<br />         (vl-cmdf "fillet" "p" ss)<br />         (prompt "\n没有选择对象。")<br />       )<br />     )<br />     (prompt "\n无效的圆角半径。")<br />   )<br />   (princ)<br /> )<br />

hr1545

ㄘ丶转裑ㄧ灬

最简单的
(defun c:ft ()
(setvar "CMDECHO" 1)
(command "FILLET" "r" pause)
(command "FILLET" "p" pause )
(setvar "CMDECHO" 0)
(princ)
)

zilong136

ㄘ丶转裑ㄧ灬 发表于 2024-5-8 09:28
最简单的
(defun c:ft ()
(setvar "CMDECHO" 1)

2024CAD要把“P”换成“U”就可以了，我搞不懂，为什么搞一排就不行，分两次就可以。

zilong136

359321852 发表于 2024-5-8 08:54

输入半径后，直接选择对象就行了，为什么还要去搞一次验证？

zilong136

自贡黄明儒 发表于 2024-5-8 07:39
(SETVAR "FILLETRAD" B)

2024CAD参数错误。

zilong136

zilong136 发表于 2024-5-8 14:16
2024CAD参数错误。

还是不行。

jun470

zilong136 发表于 2024-5-8 15:52
还是不行。

2024可以啊
(SETVAR "FILLETRAD" 14)
下次倒角默认就是14 了
你可能是数据类型错了