Acet-not-match

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月3日 (日) 22:41時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-not-match ''elist'' ''matchlist'' ) ; 機能 : matchlist 内の条件が、elist に 含まれていない ことをテストする。acet-and-match の逆の動作をするっぽい。 ; 引数 :* elist : テスト対象のエンティティデータリスト。 :* matchlist : 条件として使用するDXFグループコードと値のペアのリストだと思ったが違うっぽい。 ; 戻り値 : よくわからない…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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

関連事項