Acet-elist-add-defaults

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月9日 (土) 06:53時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-elist-add-defaults ''elist'' ) ; 機能 : レイヤー、色、線幅、線種のデフォルトエントリを持つ、与えられたelistを更新し、完成させる。 ; 引数 :* elist … エンティティリスト ; 戻り値 : レイヤー、色、線幅、線種のデフォルトエントリが追加されたエンティティリスト ; サンプル <pre class="brush:autolisp;"> (setq e (entget (car (entsel)))) ((…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(acet-elist-add-defaults elist )


機能
レイヤー、色、線幅、線種のデフォルトエントリを持つ、与えられたelistを更新し、完成させる。


引数
  • elist … エンティティリスト


戻り値
レイヤー、色、線幅、線種のデフォルトエントリが追加されたエンティティリスト


サンプル
(setq e (entget (car (entsel))))
((-1 . <Entity name: 159be08b0>) (0 . "CIRCLE") (5 . "94") (330 . <Entity name: 1260625a0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 320.934020136403 175.473359071678 0.0) (40 . 21.9515218089678) (210 0.0 0.0 1.0))

(setq e (acet-elist-add-defaults e)) ; 6,62,370が足されてる
((-1 . <Entity name: 159be08b0>) (0 . "CIRCLE") (5 . "94") (330 . <Entity name: 1260625a0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 . "ByLayer") (62 . 256) (370 . -1) (100 . "AcDbCircle") (10 320.934020136403 175.473359071678 0.0) (40 . 21.9515218089678) (210 0.0 0.0 1.0))

(entmod e)

関連事項