列出样条曲线、椭圆、圆弧。。。

2andygs · 发表于 2022-7-5 19:51:43

大家好。。。有人能帮我在图纸中建立以下要求吗。。这基本上是出于质量控制目的。。。。我是这个领域的新手

应列出是否有任何小于1/8英寸的样条线、椭圆和圆弧……在警报框中显示相同
例：无椭圆或发现5个椭圆
没有样条或找到5条样条
发现10个弧长小于1/8“，或没有弧长小于1/8”

这将对我大有帮助。。。。提前感谢。。。

有人能帮我补充一下吗。。样条曲线和圆弧小于。125”至以下代码。

copy


(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")
 )
))

BIGAL · 发表于 2022-7-5 19:57:14

2andygs不劫持帖子开始一个新的，版主？？

2andygs · 发表于 2022-7-5 19:58:48

对不起的。。。新手。。。

2andygs · 发表于 2022-7-5 20:02:08

大家好。。。有人能帮我在图纸中建立以下要求吗。。这基本上是出于质量控制目的。。。。我是这个领域的新手

应列出是否有任何小于1/8英寸的样条线、椭圆和圆弧……在警报框中显示相同
例：无椭圆或发现5个椭圆
没有样条或找到5条样条
发现10个弧长小于1/8“，或没有弧长小于1/8”

这将对我大有帮助。。。。提前感谢。。。