Gizmonの投稿記録
2025年8月10日 (日)
- 05:282025年8月10日 (日) 05:28 差分 履歴 −41 Acet-list-remove-duplicate-points 編集の要約なし
- 05:072025年8月10日 (日) 05:07 差分 履歴 +1,672 新 Acet-list-remove-duplicate-points ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-remove-duplicates-points ''datalist'' ''fuz'' ) ; 機能 : datalist から許容差 fuz を考慮した同じ値を取り除いたリストを返す。 ; 引数 :* datalist … 評価するリスト :* fuz … 許容誤差 ; 戻り値 : 重複が取り除かれた datalist のリスト。lst が NIL の場合は NIL を返す。 ===MEMO=== * 除去はリスト値の最初から処理されるのでリスト値の順番に…」
- 05:072025年8月10日 (日) 05:07 差分 履歴 −24 Acet-list-remove-adjacent-dups 編集の要約なし 最新
- 05:062025年8月10日 (日) 05:06 差分 履歴 +1,677 新 Acet-list-remove-duplicates ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-remove-duplicates ''datalist'' ''fuz'' ) ; 機能 : datalist から許容差 fuz を考慮した同じ値を取り除いたリストを返す。 ; 引数 :* datalist … エンティティ名のリスト :* fuz … 許容誤差 ; 戻り値 : 重複が取り除かれた datalist のリスト。lst が NIL の場合は NIL を返す。 ===MEMO=== * 除去はリスト値の最初から処理されるのでリスト値の順…」 最新
- 04:542025年8月10日 (日) 04:54 差分 履歴 +110 Gz:deduplicate 編集の要約なし 最新
- 04:432025年8月10日 (日) 04:43 差分 履歴 +1,116 新 Acet-list-remove-adjacent-dups ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-remove-adjacent-dups ''datalist'' ) ; 機能 : datalist から連続した同じ値を取り除いたリストを返す。 ; 引数 :* datalist … エンティティ名のリスト ; 戻り値 : 連続した重複が取り除かれた datalist のリスト。lst が NIL の場合は NIL を返す。 ; サンプル <pre class="brush:autolisp;"> (acet-list-remove-adjacent-dups '(1 2 3 4 3 2 4 5) ) (1 2 3 4 3 2 4 5) ; 連…」
2025年8月9日 (土)
- 21:572025年8月9日 (土) 21:57 差分 履歴 +799 新 Acet-list-is-dotted-pair ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-is-dotted-pair ''item'' ) ; 機能 : item が真のドットペアリストであるかどうかを返す。 ; 引数 :* item … 評価するリスト ; 戻り値 : item が真のドットペアリストであれば T、そうでなければ NIL を返す。 ; サンプル <pre class="brush:autolisp;"> (setq lst '(1 . 5)) (acet-list-is-dotted-pair lst ) T (setq lst '(1 5)) (acet-list-is-dotted-pair lst ) nil (setq lst…」 最新
- 21:372025年8月9日 (土) 21:37 差分 履歴 +1,171 新 Acet-list-isort ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-isort ''lst'' ''index'' ) ; 機能 : lst をインデックスで並べ替えたリストを返す。 ; 引数 :* lst … ソートするリスト。「サブリストのリスト」。 :* index … ソートする位置の整数。最初の項目は 0 ; 戻り値 : index 位置で更新されたリスト ; サンプル <pre class="brush:autolisp;"> 数値でソート (setq lst (list '(1 2 5) '(2 1 4) '(3 4 3) '(4 3 2) '(…」 最新
- 20:422025年8月9日 (土) 20:42 差分 履歴 +768 新 Acet-list-remove-nth ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-remove-nth ''atidx'' ''datalist'' ) ; 機能 : インデックス atidx で削除された項目を持つリスト datalist を返す。 : インデックスは 0 から始まる。 ; 引数 :* atidx … インデックスの整数 :* datalist … 更新されるリスト ; 戻り値 : 更新されたリスト ; サンプル <pre class="brush:autolisp;"> (setq lst '("a" "b" "c" "消されちゃいますかー" "e" "f" "g"…」 最新
- 20:382025年8月9日 (土) 20:38 差分 履歴 +787 新 Acet-list-put-nth ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-put-nth ''newval'' ''datalist'' ''atidx'' ) ; 機能 : インデックス atidx に対応するアイテムの値を newval に更新したリスト datalist を返す。 : インデックスは 0 から始まる。 ; 引数 :* newval … 更新する値 :* datalist … 更新されるリスト :* atidx … インデックスの整数 ; 戻り値 : 更新されたリスト ; サンプル <pre class="brush:autolisp;"> (set…」 最新
- 20:332025年8月9日 (土) 20:33 差分 履歴 +872 新 Acet-list-split ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-split ''lst'' ''item'' ) ; 機能 : リスト lst を要素 item で分割し、2つのサブリスト(左側部分と右側部分)に分割し、両方のサブリストを格納したリストを返す。 : 分割対象の要素 item は、右側リスト部分(存在する場合)の最初の要素になる。 ; 引数 :* lst … リスト :* item … 分割に指定する要素 ; 戻り値 : item 位置で分割…」 最新
- 19:342025年8月9日 (土) 19:34 差分 履歴 +39 Acet-list-m-assoc 編集の要約なし 最新
- 19:332025年8月9日 (土) 19:33 差分 履歴 +615 新 Acet-list-m-assoc ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-m-assoc ''key'' ''lst'' ) ; 機能 : assocキーのキーでlstの全項目を含むリストを返す。 ; 引数 :* lst … リスト ; 戻り値 : lst 内の Key キーのリスト ; サンプル <pre class="brush:autolisp;"> (setq lst '((1 . "a") (10 . "b") (10 . "c") (10 . "d") )) (acet-list-m-assoc '10 lst) ((10 . "b") (10 . "c") (10 . "d")) </pre> ----- 関連事項 * Expresstools関数 * acet-list-assoc-ap…」
- 18:002025年8月9日 (土) 18:00 差分 履歴 +908 新 Acet-list-group-by-assoc ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-group-by-assoc ''lst'' ) ; 機能 : 連想キーでソート()されたリスト lst を返す。 ; 引数 :* lst … 更新・追加されるリスト ; 戻り値 : 連想キーでソートされたリスト ; サンプル <pre class="brush:autolisp;"> (setq lst '((1 . "a") (2 . "b") (3 . "c") (100 . "c") )) (acet-list-group-by-assoc lst) ((100 . "c") (3 . "c") (2 . "b") (1 . "a")) (setq lst '((a . "a") (b . "b") (c . "c…」 最新
- 17:512025年8月9日 (土) 17:51 差分 履歴 +2 Acet-list-assoc-append 編集の要約なし 最新
- 17:492025年8月9日 (土) 17:49 差分 履歴 −8 Acet-list-assoc-append 編集の要約なし
- 07:422025年8月9日 (土) 07:42 差分 履歴 +3 Acet-list-to-ss 編集の要約なし 最新
- 07:422025年8月9日 (土) 07:42 差分 履歴 +678 新 Acet-list-to-ss ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-to-ss ''lst'' ) ; 機能 : リスト lst 内のすべてのエンティティを含む選択セットを返す。 ; 引数 :* lst … エンティティ名のリスト ; 戻り値 : 選択セット。lst が NIL の場合は NIL を返す。 ; サンプル <pre class="brush:autolisp;"> (setq lst (list (car (entsel)) (car (entsel)) (car (entsel)) )) (<Entity name: bd2b1df0> <Entity name: 159cd9a80> <Entity name: bd296eb0>…」
- 06:532025年8月9日 (土) 06:53 差分 履歴 +1,248 新 Acet-elist-add-defaults ページの作成:「{{AutoLISP}} ; 構文 : (acet-elist-add-defaults ''elist'' ) ; 機能 : レイヤー、色、線幅、線種のデフォルトエントリを持つ、与えられたelistを更新し、完成させる。 ; 引数 :* elist … エンティティリスト ; 戻り値 : レイヤー、色、線幅、線種のデフォルトエントリが追加されたエンティティリスト ; サンプル <pre class="brush:autolisp;"> (setq e (entget (car (entsel)))) ((…」 最新
- 06:402025年8月9日 (土) 06:40 差分 履歴 −8 Acet-list-assoc-remove 編集の要約なし 最新
- 06:032025年8月9日 (土) 06:03 差分 履歴 +639 新 Acet-list-assoc-remove ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-assoc-remove ''key'' ''assoclst'' ) ; 機能 : キー key のアイテムを Assoclst から削除する。 ; 引数 :* key … 削除するキー :* assoclst … keyによって更新されるドットペアリスト。 ; 戻り値 : key が除去されたassoclst。 ; サンプル <pre class="brush:autolisp;"> (setq ) (acet-list-assoc-remove '2 '((1 . "a") (2 . "b") (3 . "c"))) ((1 . "a") (3 . "c")) </pre> ----- 関…」
- 05:582025年8月9日 (土) 05:58 差分 履歴 +83 Acet-list-assoc-append 編集の要約なし
- 05:582025年8月9日 (土) 05:58 差分 履歴 +29 Acet-list-assoc-put 編集の要約なし 最新
- 05:572025年8月9日 (土) 05:57 差分 履歴 −2 Expresstools関数 →リスト操作関数 最新
- 05:552025年8月9日 (土) 05:55 差分 履歴 +727 新 Acet-list-assoc-put ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-assoc-put ''dpValue'' ''assoclst'' ) ; 機能 : dpValueによって更新されたassoclstを返す。 ; 引数 :* dpValue … ドットペアリスト :* assoclst … dpValueによって更新されるドットペアリスト。dpValue がリストに存在しない場合は、assoclst に追加される。 ; 戻り値 : dpValueによって更新されたassoclst。 ; サンプル <pre class="brush:autolisp;"> (setq )…」
- 05:462025年8月9日 (土) 05:46 差分 履歴 +592 新 Acet-list-assoc-append ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-assoc-append ''assoclst'' ''lst'' ) ; 機能 : assoclst によって更新または追加された lst を返す。 ; 引数 :* assoclst … 更新・追加するリスト :* lst … 更新・追加されるリスト ; 戻り値 : ; サンプル <pre class="brush:autolisp;"> (setq ) (acet-list-assoc-append '(1 2 3 4) '((1 5))) ((1 5 2 3)) (acet-list-assoc-append '(2 6 7 8) '((1 "a" "b" "c") (2 3 4 5))) ((1 "a" "b" "c")…」
2025年8月8日 (金)
- 08:222025年8月8日 (金) 08:22 差分 履歴 +93 Acet-ini-set 編集の要約なし 最新
- 08:222025年8月8日 (金) 08:22 差分 履歴 +1,853 新 Acet-ini-get ページの作成:「{{AutoLISP}} ; 構文 : (acet-ini-get ''inifile'' ''section'' [ ''key'' [ ''default'' ]]) ; 機能 : 設定をファイルに保存(または削除)する。 ; 引数 :* inifile … 使用するファイル名(完全なパス名を含める必要がある。内部的に (findfile) 操作は使用されない。) :* section … 設定キーが格納されるセクション名;存在しない場合は作成される。 :* key … 値を保存する…」 最新
- 08:172025年8月8日 (金) 08:17 差分 履歴 −6 Acet-ini-set 編集の要約なし
- 08:172025年8月8日 (金) 08:17 差分 履歴 −36 Acet-ini-set 編集の要約なし
- 08:172025年8月8日 (金) 08:17 差分 履歴 +1,491 新 Acet-ini-set ページの作成:「{{AutoLISP}} ; 構文 : (acet-ini-set ''inifile'' ''section'' [ ''key'' [ ''value'' ]]) ; 機能 : 設定をファイルに保存(または削除)する。 ; 引数 :* inifile … 使用するファイル名(完全なパス名を含める必要がある。内部的に (findfile) 操作は使用されない。) :* section … 設定キーが格納されるセクション名;存在しない場合は作成される。 :* key … 値を保存する設…」
- 06:112025年8月8日 (金) 06:11 差分 履歴 +119 Acet-getvar 編集の要約なし 最新
- 06:112025年8月8日 (金) 06:11 差分 履歴 +131 Acet-setvar 編集の要約なし 最新
- 06:112025年8月8日 (金) 06:11 差分 履歴 +1,155 新 Acet-var-getvar ページの作成:「{{AutoLISP}} ; 構文 : (acet-var-getvar ''varname'' ''savemode'' ) ; 機能 : savemodeで指定された複数の保存場所からカスタム変数をロードする。 ; 引数 :* varname … システム変数名の文字列 :* saveMode … ビットフラグの組み合わせ: 1 = 辞書 2 = レジストリ 4 = 環境 ::* saveModeがNILの場合、その値を持つ変数は辞書とレジストリからロードされる(saveMode = 3) ::* 変数が1…」 最新
- 06:032025年8月8日 (金) 06:03 差分 履歴 +997 新 Acet-var-setvar ページの作成:「{{AutoLISP}} ; 構文 : (acet-var-setvar ''varname'' ''varval'' ''savemode'' ) ; 機能 : 値varvalを持つカスタム変数varnameを、savemodeで指定された複数の保存場所に保存する。 ; 引数 :* varname … システム変数名の文字列 :* varname … システム変数の値 :* saveMode … ビットフラグの組み合わせ: 1 = 辞書 2 = レジストリ 4 = 環境 ::* saveModeがNILの場合、その値を持つ変数は辞…」 最新
- 05:372025年8月8日 (金) 05:37 差分 履歴 +787 新 Acet-getvar ページの作成:「{{AutoLISP}} ; 構文 : (acet-getvar ''varlist'' ) ; 機能 : 複数の保存場所からカスタム変数をロードする。 ; 引数 :* varlist … varlist は '(var1 saveMode var2 saveMode ...)' のリスト。 ::* saveModeは次のビットフラグの組み合わせ: 1 = 辞書 2 = レジストリ 4 = 環境 ::* saveModeがNILの場合、その値を持つ変数は辞書とレジストリからロードされる(saveMode = 3) ; 戻り値 : 常に 0…」
- 05:352025年8月8日 (金) 05:35 差分 履歴 +815 新 Acet-setvar ページの作成:「{{AutoLISP}} ; 構文 : (acet-setvar ''varlist'' ) ; 機能 : カスタム変数とその値を複数の保存場所に保存する。 ; 引数 :* varlist … '(var1 var2 saveMode var2 val2 saveMode ...)' のリスト。 ::* saveMode は次のビットフラグの組み合わせ: 1 = 辞書 2 = レジストリ 4 = 環境; ::* saveModeがNILの場合、その値を持つ変数は辞書とレジストリに保存される(saveMode = 3)。 ; 戻り値 :…」
- 05:282025年8月8日 (金) 05:28 差分 履歴 +585 新 Acet-sysvar-restore ページの作成:「{{AutoLISP}} ; 構文 : (acet-sysvar-restore ) ; 機能 : 先に実行された (acet-sysvar-set) で保存されたシステム変数を、以前の値に戻す。 ; 引数 :* なし ; 戻り値 : 常にvoid (princ)を返す。 ; サンプル <pre class="brush:autolisp;"> (setq oldvar (acet-sysvar-set '("cmdecho" 0 "osmode" 0 "filedia" 0))) (("FILEDIA" . 1) ("OSMODE" . 4135) ("CMDECHO" . 0)) ; 何かの処理 (acet-sysvar-restore) </pre> ----- * Expres…」 最新
- 05:272025年8月8日 (金) 05:27 差分 履歴 +788 新 Acet-sysvar-set ページの作成:「{{AutoLISP}} ; 構文 : (acet-sysvar-set ''varlist'' ) ; 機能 : 与えられたリスト varlist からシステム変数を設定し、それらのシステム変数の実際の値を内部スタック・リストに保存する ; 引数 :* varlist : システム変数の名前と新しい値をフラット・シーケンスとして含むリスト。 ; 戻り値 : 保存されていたシステム変数とその値のリストを返す。 ; サンプル…」 最新
2025年8月7日 (木)
- 20:342025年8月7日 (木) 20:34 差分 履歴 +53 Acet-plines-explode 編集の要約なし 最新
- 20:342025年8月7日 (木) 20:34 差分 履歴 +1,230 新 Acet-plines-rebuild ページの作成:「{{AutoLISP}} ; 構文 : (acet-plines-rebuild ''pldata'' ) ; 機能 : pldata 定義データに基づいて新しいポリラインを再作成する。 ; 引数 :* pldata : (acet-plines-explode)によって返されたポリラインの定義データのリスト。 ; 戻り値 : 再作成されたポリラインを含む選択セットを返すか、ポリラインが再作成されなかった場合はNILを返す。 ; サンプル <pre class="brush:au…」 最新
- 20:272025年8月7日 (木) 20:27 差分 履歴 +1,585 新 Acet-plines-explode ページの作成:「{{AutoLISP}} ; 構文 : (acet-plines-explode ''ss'' ) ; 機能 : 選択セット ss に含まれるすべてのポリラインを分解し、分解された各ポリラインに対して 1 エントリの定義データのリストを返す。 ; 引数 :* ss … 選択セット ; 戻り値 : 分解された各ポリラインに対して 1エントリの定義データリスト (ExplodedData ExplodeData ...) を返す。 (ltypegen enames widthlist ucs startpt f…」
- 06:452025年8月7日 (木) 06:45 差分 履歴 +802 メッセージ(GZ-LIB) 編集の要約なし 最新 タグ: ビジュアルエディター: 中途切替
- 06:372025年8月7日 (木) 06:37 差分 履歴 +13 テーブル(GZ-LIB) 編集の要約なし 最新
- 06:322025年8月7日 (木) 06:32 差分 履歴 0 Gz:mode 編集の要約なし 最新
- 06:322025年8月7日 (木) 06:32 差分 履歴 0 Gz:median 編集の要約なし 最新
- 06:312025年8月7日 (木) 06:31 差分 履歴 0 Gz:plusp 編集の要約なし 最新
- 06:312025年8月7日 (木) 06:31 差分 履歴 0 CommonLispより(GZ-LIB) 編集の要約なし 最新
- 06:252025年8月7日 (木) 06:25 差分 履歴 −202 Acet-truncate-2-view 編集の要約なし 最新 タグ: ビジュアルエディター
- 06:252025年8月7日 (木) 06:25 差分 履歴 +654 新 Acet-truncate-2-view ページの作成:「{{AutoLISP}} ; 構文 : (acet-truncate-2-view pt1 pt2 a b c d) ; 機能 : 詳細不明 ; 引数 :* p1 … 座標点リスト :* p2 … 座標点リスト :* a … 実数 :* b … 実数 :* c … 実数 :* d … 実数 ; 戻り値 : 2D座標点リスト? ; サンプル <pre class="brush:autolisp;"> (acet-truncate-2-view '(0 0) '(210 297) 10.0 10.0 10.0 10.0) (0 0) </pre> ----- 関連事項 * expresstools関数 * grclear * grarc * grdraw *…」