Acet-ss-remove-dups

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年6月7日 (土) 08:56時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : ((acet-ss-remove-dups ''ss'' ''fuz'' ''dxfToIgnore'' ) ; 機能 : 選択セット ss にフィルタをかけて、幾何学的に重複するエンティティを除去する。 ; 引数 :* ss … 選択セット。 :* fuz … 幾何学的比較の許容誤差の実数。 :* dxfToIgnore … 幾何学的比較で無視する DXF グループ コードの番号リスト。 (40 41 42) ::* 次の DXF コードは常に無視される:6…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
((acet-ss-remove-dups ss fuz dxfToIgnore )


機能
選択セット ss にフィルタをかけて、幾何学的に重複するエンティティを除去する。


引数
  • ss … 選択セット。
  • fuz … 幾何学的比較の許容誤差の実数。
  • dxfToIgnore … 幾何学的比較で無視する DXF グループ コードの番号リスト。 (40 41 42)
  • 次の DXF コードは常に無視される:6 8 39 62 370 390。


戻り値
変更された選択セットssと、除去されたエンティティを含む選択セットのリストを返す。 (list ss ssRemoved)。


サンプル
(setq ss (ssget)
(acet-ss-remove-dups  ss  0.0  '(40))
(<Selection set: 000000004ACA6B70> NIL) ; 重複エンティティがない場合 ssRemoved は nil

(acet-ss-remove-dups  ss  5.0  '(40))
(<Selection set: 00000000BA7D3F30> <Selection set: 00000000BA7D49D0>)


関連事項