「Acet-dxf」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (acet-dxf ''key'' ''assoclist'' ) ; 機能 : 連想リスト assoclist から値を取り出す。(cdr (assoc x assoclist)) と同じ ; 引数 :* key: assoclist から検索するキー :* assoclist : エンティティのリストを想定した関数だが、どんな連想リストでも良い。 ; 戻り値 : 検索したキーの値、連想リストにきーが無ければ nil ; サンプル <pre class="brush:autolisp;"> (a…」)
 
編集の要約なし
 
40行目: 40行目:


[[Category:AutoLISP]]
[[Category:AutoLISP]]
(acet-dxf  key  assoclist)

2025年7月5日 (土) 04:30時点における最新版

構文
(acet-dxf key assoclist )


機能
連想リスト assoclist から値を取り出す。(cdr (assoc x assoclist)) と同じ


引数
  • key: assoclist から検索するキー
  • assoclist : エンティティのリストを想定した関数だが、どんな連想リストでも良い。


戻り値
検索したキーの値、連想リストにきーが無ければ nil


サンプル
(acet-dxf 10  (entget (car (entsel))))) )
(440.512876712095 108.475057655153 0.0) ; 基点座標の抽出

(setq al '((name box) (width 3) (size 4.7263) (depth 5))) 
((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))

(acet-dxf 'size al) 
(4.7263)

(cdr (assoc 'size al))
(4.7263)


関連事項