Acet-dxfのソースを表示

{{AutoLISP}}
; 構文
: (acet-dxf ''key''  ''assoclist'' )


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


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


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


; サンプル
<pre class="brush:autolisp;">
(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)

</pre>

-----
関連事項
* [[expresstools関数]]
* [[assoc]]
* [[entget]]

[[Category:AutoLISP]]