社区 › CAD › 更快地更改圆角半径

mstg007 发表于 2015-7-21 07:58:55

更快地更改圆角半径

有没有一种快速的方法来改变圆角半径，而不是通过（圆角;半径;数字）？
我不知道是否有一个命令可以是（f20;这将使它成为20的圆角;或f4.5;这将使圆角4.5。
像往常一样好奇。谢谢
**** Hidden Message *****

Master_Shake 发表于 2015-7-21 08:00:57

回程机器中有一个提示。
http://cadtips.cadalyst.com/content/dynamic-fillet

mjfarrell 发表于 2015-7-21 08:34:26

可以在工具选项板上放置几个“圆角”
，或者研究对齐曲线的捕捉增量; 如果这就是您在C3D中处理的内容

huiz 发表于 2015-7-21 08:44:43

很酷的提示！我与Civil3D合作了8年，但不知道这一点

Rob... 发表于 2015-7-21 08:49:42

我没看到OP提到C3D。我猜你们知道一些在这里不明显的东西。

tedg 发表于 2015-7-21 09:13:22

如果您喜欢使用lisp，可以举一些简单的例子：
命令可以是F20，您可以用20的半径对两条线进行圆角：

;;fillets 2 lines at "20" radius
(defun c:f20 ()
      (setq fr (getvar "filletrad"))
      (setq ob1 (entsel))
      (setq ob2 (entsel))
      (setvar "filletrad" 20)
      (command ".fillet" ob1 ob2)
      (setvar "filletrad" fr)(princ))

或我使用的allot，它只是您试图避免的命令字符串的lisp版本
输入“FR”，然后输入所需的半径，然后选择线

;;fillet command that askes for radius first
(defun c:fr ()
(command ".fillet" "r" pause "" ".fillet")(princ)

这些都是基本的，但它们工作得很好。。。

mstg007 发表于 2015-7-21 10:59:24

现在我们在谈！非常感谢。

mstg007 发表于 2015-7-21 12:26:22

以下将为列出的每个半径(4.5、10、20、30等)创建自定义命令。):
(   (lambda nil
      (foreach rad '(4.5 10 20 30)
            (eval
                (list 'defun
                  (read (strcat "c:f" (vl-string-translate "." "-" (vl-princ-to-string rad))))
                   '( / fil )
                   '(setq fil (getvar 'filletrad))
                  (list 'setvar ''filletrad rad)
                   '(vl-cmdf "_.fillet")
                   '(while (
                   '(setvar 'filletrad fil)
                   '(princ)
                )
            )
      )
      (princ)
    )
)
由于命令不能包含点，半径如4.5将由命令“F4-5”表示。李

mstg007 发表于 2015-7-21 13:01:51

哇李又一次...流畅简单。让我想知道同样的格式是否适用于偏移命令。但是很酷。

bruno_vdh 发表于 2015-7-21 13:28:16

谢谢！ -
OFFSET
命令可以是这样的：
(   (lambda nil
      (foreach dis '(4.5 10 20 30)
            (eval
                (list 'defun
                  (read (strcat "c:o" (vl-string-translate "." "-" (vl-princ-to-string dis)))) nil
                  (list 'vl-cmdf "_.offset" dis)
                   '(while (
                   '(princ)
                )
            )
      )
      (princ)
    )
)
上面将创建命令“O4-5”，“O10”，“O20”等。

查看完整版本: 更快地更改圆角半径