0

我在 AutoCAD 中有以下 2D 多段线。

在此处输入图像描述

我正在尝试创建一个代码，该代码在选择所有这些代码时会过滤掉那些内部舱口的人。

从另一个来源，我得到了以下代码（感谢 tharwat），但是，虽然我理解了它的每一部分，但从第二个开始ssget我就无法理解这些元素的含义。

(defun c:test (/ ss i sn e)
   (if (setq ss (ssget '((0 . "POLYLINE")))) ;;selects all the polylines in a window
      (repeat (setq i (sslength ss))  ;;cycles trough each one of them

         (if (ssget "_CP" ;;???defines a crossing poligon inside wich the polylines will be considered???
                   (mapcar 'cdr ;;??? 
                             (vl-remove-if-not '(lambda (p) (= (car p) 10))
                              (entget (setq sn (ssname ss (setq i (1- i)))))
                       )
                    )
                    '((0 . "HATCH"))
      )
    (ssdel sn ss) ;;deletes the entities wich belong to the selection set
  )
)
  )
  (sssetfirst nil ss)
  (princ)

)

初学者在这里，对不起，如果这不是一个好问题。

4

1 回答 1

0

“_CP”实际上代表交叉多边形。此选项需要点列表（多边形顶点）。

           (mapcar 'cdr ;;??? 
                     (vl-remove-if-not '(lambda (p) (= (car p) 10))
                      (entget (setq sn (ssname ss (setq i (1- i)))))
               )
            )

从折线顶点构建此点列表。

所以，这个例程首先提示用户选择折线。然后，遍历选择集，并且对于每条选定的折线，尝试通过将多边形与折线顶点相交来选择任何影线。如果有，则从第一个选择集中删除多段线。

在我看来，由于“交叉”选项，此代码对于您的目标并不安全。将“_CP”替换为“_WP”将使用窗口多边形选择，如果折线没有弧段，则更安全。

于 2016-01-17T19:50:37.917 回答