Acet-not-match

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-not-match elist matchlist )


機能
matchlist 内の条件が、elist に 含まれていない ことをテストする。acet-and-match の逆の動作をするっぽい。


引数
  • elist : テスト対象のエンティティデータリスト。
  • matchlist : 条件として使用するDXFグループコードと値のペアのリストだと思ったが違うっぽい。


戻り値
よくわからないがリストが返る。


サンプル
; オブジェクトタイプが円で 色が BYLAYER でない
(setq filter '((0 . "CIRCLE") (62 . 256)))
(setq ss (ssget "X"))
(setq i 0 result-ss (ssadd))
(repeat (sslength ss)
  (setq ename (ssname ss i))
  (setq elist (entget ename))
  (if (acet-not-match elist filter)
      (ssadd ename result-ss)
  )
  (setq i (1+ i))
)
result-ss

関連事項