到圆的多段线

arnoldino · 发表于 2022-7-5 23:40:44

你好

在我的工作场所，我们有几个文件，每个文件都包含一个单独的部分。我从受益人那里得到文件。这些零件有很多孔。问题是，我认为孔是用实心舱口制成的。嗯，我需要图案填充的轮廓圆。如果我删除图案填充，我可以看到边界，但是从小直线，我无法在autocad上创建圆。
我正在寻找一个自动化的解决方案，如果有的话，因为我有8个文件，每个文件中有数百个洞。我附上一份样本文件。

当做
阿诺德
测验dxf

SLW210 · 发表于 2022-7-5 23:44:51

我把你的帖子转到了AutoLISP、Visual LISP和DCL论坛，也许这里有人可以帮你。

ReMark · 发表于 2022-7-5 23:49:56

如果要删除实体图案填充，则需要将由许多小多段线构成的“圆”替换为真实的圆。是这样吗？

Tiger · 发表于 2022-7-5 23:52:27

测试2.dwg这可以接受吗？这不是圆，它们仍然是普林斯。

更新为2004年文件

Tharwat · 发表于 2022-7-5 23:56:02

欢迎来到CADTutor

试试这个快速代码，让我知道。

copy


(defun c:Test (/ ss)
 ;;    Author : Tharwat 20. jan. 2014    ;;
 (if (setq ss (ssget "_:L" '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
   ((lambda (i / sn l x y)
      (while (setq sn (ssname ss (setq i (1+ i))))
        (setq l (mapcar 'cdr (vl-remove-if-not (function (lambda (u) (eq (car u) 10))) (entget sn)))
              x (/ (apply '+ (mapcar 'car l)) (length l))
              y (/ (apply '+ (mapcar 'cadr l)) (length l))
        )
        (if (entmakex (list '(0 . "CIRCLE") (cons 10 (list x y)) (cons 40 (distance (list x y) (car l)))))
          (entdel sn)
        )
        (setq l nil
              x nil
              y nil
        )
      )
    )
     -1
   )
 )
 (princ)
)
(vl-load-com)

arnoldino · 发表于 2022-7-5 23:58:37

是的，我想用一个真实的圆替换“多段线圆”。

我无法打开dwg文件。你能用旧版本发送吗。我用的是2011版。

当我尝试运行代码时，它会给我一个错误：
; 错误：超过了最大选择集数

有什么建议吗？

Tiger · 发表于 2022-7-6 00:01:43

我用2004年的版本更新了这个文件。

我使用了一个Civil命令（MAPCLEAN），可以简化对象，但它并没有将它们变成一个圆。如果这只是您需要的一次，并且PLINE是可以接受的，我可以为您转换它们。

Tharwat · 发表于 2022-7-6 00:03:49

您是如何运行代码的？您尝试选择了多少个对象？

我在办公室和家里的机器上都运行得很好

MSasu · 发表于 2022-7-6 00:06:32

AutoCAD一次可以处理的选择集数量有限制。请在您的绘图部分尝试该代码；它不是选择所有要固定的元素，而是尝试按区域选择它们。
请注意，选择集中不要包含除要修复的闭合多段线之外的其他闭合多段线，因为这些闭合多段线也将成为圆。Tharwat的代码不包括形状验证。

arnoldino · 发表于 2022-7-6 00:11:09

你好

谢谢你的支持。

我在另一台计算机上运行了代码，它运行得很好。
它由两个半圆代替一个圆，但这比多段线要好。它将100MB文件减少到约1.5MB。

再次感谢。我真的很感激。

ragards，
阿诺德

[编程交流] 到圆的多段线

发表回复

精选推荐