比较上的2个实体列表

Tharwat · 发表于 2022-7-5 16:51:47

当然

gsc · 发表于 2022-7-5 16:55:47

提及哪些圆（层名称）不再位于端点上将“节省时间”。

Aftertouch · 发表于 2022-7-5 16:57:49

是的，这是可能的，但我不知道它如何适合塔尔瓦的代码，
因为他的代码搜索满足特定需求的圆。并没有将所有圆都设置为一个变量。。

如果我回到我的代码，它可能看起来像这样：


(defun C:CadTutor ( / polyline polylinex polyliney allcircles n ensel enlist circlex circley)
(setq polyline (entget (car (entsel))))
(setq polylinex (car (cdr (assoc 10 (reverse polyline)))))
(setq polyliney (car (cddr (assoc 10 (reverse polyline)))))
(setq allcircles (ssget "_X" (list (cons 0 "CIRCLE"))))
(setq n (sslength allcircles))
(repeat n
        (setq ensel (ssname allcircles (setq n (1- n)))) 
        (setq enlist (entget ensel))
        (setq circlex (car (cdr (assoc 10 enlist))))
        (setq circley (car (cdr (cdr (assoc 10 enlist)))))
        (if (and (= polylinex circlex)(= polyliney circley))
                (progn
                        (princ "\nMatch found!")
                        (setq enlist (subst (cons 8 "MATCHLAYER") (assoc 8 enlist) enlist))
                        (entmod enlist)
                               (ssdel enlist allcircles)
                )
                (progn
                        (princ "\nNo match...")
                )
        )
)
(princ)

运行代码后，变量！allcircles将只包含所有“不匹配”的圆，您可以在代码的最后一部分使用它们。

gsc · 发表于 2022-7-5 17:04:58

我喜欢这样的想法，即如果圆对象的中心坐标等于LW多段线的端点，则该项将从列表中删除。这样，您将得到一个列表，其中仅包含不在任何LWD多段线端点上的圆。然而，您的示例是基于1条多段线，我有多条多段线和多个圆。

这是我的（部分）代码，它基于Tharwats最后一个示例代码。
这段代码有效：只要任何圆位于任何多段线的任何端点，并且当圆不在端点时终止（带有警报），就将图层名称写入列表。

我的想法是使用FOREACH部分（在半collons之后）在相等时从temp_列表（nfd）中删除圆。这样你就得到了一个不在端点上的圆列表。然后：如果temp\u list=0-->写入层名称，如果temp\u list>0-->通知不在端点上的圆层名称

但是最终的temp_列表将仅在while循环之后完成。我的技能不足以解决这个问题。。。

copy

[编程交流] 比较上的2个实体列表

发表回复

精选推荐