社区 › Auto Lisp › 圆角半径Lisp

Nardino 发表于 2022-7-5 19:05:33

你的崔是这样的吗？

Tharwat 发表于 2022-7-5 19:08:27

请按照以下步骤获取水果。
 
1-在Autocad中打开CUI。
2-创建新命令。
3-在创建代码的命令内的宏单元中键入代码
就像这个c^c^U圆角；r0;
4-将创建的命令带到Autocad的一个菜单栏中
5-按下“应用”，然后按下“确定”
6-转到命令插入的菜单，然后调用命令
7-享受命令
 
塔瓦特

Nardino 发表于 2022-7-5 19:12:48

我不知道为什么它不起作用

alanjt 发表于 2022-7-5 19:14:47

我有一个自定义圆角半径一我用，但我也有一些常见的半径，我用这些。。。
 
;fillet with set radius
;Alan J. Thompson
(mapcar
'(lambda (f r)
    (eval (list 'defun
      f
      nil
      (list 'setvar "filletrad" r)
      (list 'princ (strcat "\nFillet radius set to: " (rtos r)))
      (list 'command "_.fillet")
      '(princ)
      )
    )
)
'(c:FF    c:F1    c:F15    c:F2    c:F3    c:F4    c:F45    c:F5    c:F6    c:F7    c:F8    c:F9)
'(0      1    1.5    2    3    4    4.5    5    6    7    8    9)
)

alanjt 发表于 2022-7-5 19:20:35

如果您只想用半径为零的圆角，只需在选择时按住shift键，它将以半径为零的圆角，而不管设置的圆角半径如何。

Nardino 发表于 2022-7-5 19:21:44

cad蒙皮的多种方法。。。。。。。。。我是说猫

paulmcz 发表于 2022-7-5 19:24:41

还有一种方法：
 
(defun c:f (/ df e1)
(setvar "cmdecho" 0)
(setq sdf (getvar "filletrad"))
(princ "\n filletrad <")
(princ sdf)
(princ " > ?? :")
(setq df (getdist))
(if (= df nil)
   (setq df sdf)
)
(setvar "filletrad" df)
(setq e1 0)
(while e1
   (command "fillet"
   (setq e1 (entsel "\n Select first object:"))
   (if e1
       (setq e2 (entsel "\n Select second object:"))
   )
   )
)
(princ)
)

alanjt 发表于 2022-7-5 19:28:06

我会避免选择要馈送到FILLET命令的对象，因为您将被限制为只能进行圆角。使用fillet，可以对单个多段线顶点进行圆角，但如果尝试使用entsel选择每个线段，则该操作将不起作用，并且只会提示您无法对项目本身进行圆角。

paulmcz 发表于 2022-7-5 19:31:31

 
你是对的。在过去的8年里，我一直在使用它，当我意外地选择了多段线的2段时，就会发生这种情况。

alanjt 发表于 2022-7-5 19:33:40

嗯，这是一个中继器怎么样。。。
(defun c:FR (/)
(vl-load-com)
(setvar 'filletrad
         (cond ((getdist (strcat "\nSpecify fillet radius <" (rtos (getvar 'filletrad)) ">: ")))
               ((getvar 'filletrad))
         )
)
(vla-sendcommand
   (cond (*AcadDoc*)
         ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
   )
   "_.multiple _.fillet "
)
(princ)
)

查看完整版本: 圆角半径Lisp