列出样条曲线、椭圆、圆弧。。。
大家好。。。有人能帮我在图纸中建立以下要求吗。。这基本上是出于质量控制目的。。。。我是这个领域的新手应列出是否有任何小于1/8英寸的样条线、椭圆和圆弧……在警报框中显示相同
例：无椭圆或发现5个椭圆
没有样条或找到5条样条
发现10个弧长小于1/8“，或没有弧长小于1/8”
这将对我大有帮助。。。。提前感谢。。。
有人能帮我补充一下吗。。样条曲线和圆弧小于。125”至以下代码。
(DEFUN C:AR()
(setq set nil)
(setq G4 (ssget "x" '((0 . "ELLIPSE" ))))
(if (null G4)
(progn (alert (strcat "\nHSP"
"\n-----------------"
"\nNo ELLIPSE"
"\nIN THIS DWG.")
)
)
(progn
(setq len (rtos (sslength G4) 2 3))
(alert (strcat "\n HSP"
"\n------------------"
"\nTotal " len " ELLISPSE<s>"
"\nin' THIS DWG'Layer.")
)
(command "change" G4 "" "p")
)
))
2andygs不劫持帖子开始一个新的，版主？？ 对不起的。。。新手。。。 大家好。。。有人能帮我在图纸中建立以下要求吗。。这基本上是出于质量控制目的。。。。我是这个领域的新手
应列出是否有任何小于1/8英寸的样条线、椭圆和圆弧……在警报框中显示相同
例：无椭圆或发现5个椭圆
没有样条或找到5条样条
发现10个弧长小于1/8“，或没有弧长小于1/8”
这将对我大有帮助。。。。提前感谢。。。 帖子已从其他线程移动到此线程。 请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。 我必须在代码之前键入#吗？或者选择代码并单击图标#？由于某些原因，它也没有以示例中解释的方式显示
谢谢 你的代码应该包装在这些->[代码]你的代码在这里[[代码]当然减去空格。 非常感谢。
样条曲线、椭圆和圆弧均小于1/8英寸？
或任何长度的样条线和椭圆，以及所有小于1/8英寸的圆弧？
页:
[1]
2