「Vl-remove」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
25行目: 25行目:
; 選択したエンティティからから420番を除去して更新する
; 選択したエンティティからから420番を除去して更新する
(setq ent (entget (car (entsel))))
(setq ent (entget (car (entsel))))
(setq ent2 (remove (assoc 420 ent) ent))
(setq ent2 (vl-remove (assoc 420 ent) ent))
(entmod ent2)
(entmod ent2)
</pre>
</pre>

2019年9月17日 (火) 16:00時点における最新版

構文
(vl-remove element-to-remove list)


機能
リストから要素を除去する。


引数
  • element-to-remove : 除去する要素の値。任意の LISP データ タイプを指定することができます。
  • list : 任意のリスト。


戻り値
list 引数から、element-to-remove 引数と等しい要素を除去したリスト。


サンプル
(vl-remove pi (list pi t 0 "abc")) 
>> (T 0 "abc")

; 選択したエンティティからから420番を除去して更新する
(setq ent (entget (car (entsel))))
(setq ent2 (vl-remove (assoc 420 ent) ent))
(entmod ent2)

関連事項