通过以下方式获取圆角半径：

sonali · 发表于 2022-7-5 20:14:45

大家好。我有麻烦了。我在寻找解决我这么多天来的一个问题的方法。我有两个面，它们通过fillet命令连接。现在我想找出边上圆角的半径。我正在看模特的照片。谁来帮帮我。

BKT · 发表于 2022-7-5 20:30:59

你好，索纳利，

对于三维实体，这里有一些东西可以尝试。您必须选择内部圆角边。（在此中检查时没有错误…）

(defun C:cirr (/ edge1 rad1)
(setvar "cmdecho" 0)
(princ "\nSelect Cylinder or Fillet Edge: ")
(command "._solidedit" "_edge" "_copy" pause "" "0,0,0" "0,0,0" "" "")
(setq edge1 (entget (entlast)))
(setq rad1 (cdr (assoc 40 edge1)))
(alert (strcat "    Radius = " (rtos rad1) "\nDiameter = " (rtos (* rad1 2))))
(princ (strcat "\nRadius = " (rtos rad1) "\nDiameter = " (rtos (* rad1 2))))
(command "._erase" "L" "")
(princ)
)

sonali · 发表于 2022-7-5 20:42:47

非常感谢。。感谢您的友好回应。。。。。

它显示以下错误：
忽略从实体面选择等值线。
选项关键字无效。
; 错误：功能已取消

此外，我的要求是只单击平面，并获得圆角的半径，即保存在中。csv文件。请帮帮我，，，，，，，，

BKT · 发表于 2022-7-5 20:51:30

对不起，在这种情况下，我发布的内容将不起作用。如果您已经开始编写一些代码，请继续发布，看看是否有人可以提供帮助。

sonali · 发表于 2022-7-5 20:57:51

谢谢你的回复。
根据你的逻辑，如果我点击圆角，它也会显示错误。如果可以解决这个问题，请尝试修改之前提供的代码。

我尝试了一些代码，但我对Autolisp是新手，这使我很难继续前进。所以，任何人都可以帮助我，请帮助我。。。。。。

BKT · 发表于 2022-7-5 21:11:32

我发布的代码通过询问圆角（或圆柱体）边来处理3DSolids，因此如果您正在拾取圆角本身，或者如果您的几何体不是3DSolid，那么它将不起作用。

您需要拾取边缘，如下所示：

hmsilva · 发表于 2022-7-5 21:19:57

你好，索纳利，

三维实体在AutoCAD中是加密对象，不容易访问子对象。。。
一种方法是，使用“solidedit”命令与BTK共享。
其他，从实体创建一个副本，分解，遍历所有对象以获得所需的属性，然后删除分解的对象。。。
但是，只要知道一个物体的半径，也许像这样的东西就可以了

copy


(defun c:demo ( / osm pt1 pt2)
 (setq osm (getvar 'OSMODE))
 (setvar 'OSMODE 512)
 (if (and (setq pt1 (getpoint "\n Select an object to inquire radius: "))
   (setq pt2 (osnap pt1 "CEN"))
   )
   (princ (strcat "\nObject radius is " (rtos (distance pt1 pt2))))
   (princ "\n Selected object don't have radius...")
   )
 (setvar 'OSMODE osm)
 (princ)
 )

希望有帮助
亨里克

[编程交流] 通过以下方式获取圆角半径：

发表回复

精选推荐