Acet-dxf

提供：GizmoLabs - だいたい CAD LISP なサイト
AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(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)

関連事項

「https://wiki.gz-labs.net/index.php?title=Acet-dxf&oldid=13977」から取得