圆角半径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

我有一个自定义圆角半径一我用，但我也有一些常见的半径，我用这些。。。

copy

;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

还有一种方法：

copy

(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

嗯，这是一个中继器怎么样。。。

copy

(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

发表回复

精选推荐