Gizmonの投稿記録
2025年8月8日 (金)
- 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 *…」
- 06:132025年8月7日 (木) 06:13 差分 履歴 +4 Acet-temp-segment →== 最新
- 06:122025年8月7日 (木) 06:12 差分 履歴 +1,363 新 Acet-temp-segment ページの作成:「{{AutoLISP}} ; 構文 : (acet-temp-segment p1 p2 p3 highlight) ; 機能 : 実際のビューポート上に一時的な線分 [p1, p2] と [p2, p3] を描画する。 : ハイライトが NIL でない場合、線分はハイライト表示され、そうでない場合は通常通り描画される。 ; 引数 :* p1 … 座標点リスト :* p2 … 座標点リスト :* p3 … 座標点リスト :* hilight … ハイライトで描画するかをコント…」
- 06:102025年8月7日 (木) 06:10 差分 履歴 +346 描画(GZ-LIB) 編集の要約なし 最新 タグ: ビジュアルエディター
2025年8月6日 (水)
- 21:012025年8月6日 (水) 21:01 差分 履歴 +5 Acet-filter-match 編集の要約なし 最新
- 20:582025年8月6日 (水) 20:58 差分 履歴 +547 新 Acet-filter-match ページの作成:「{{AutoLISP}} ; 構文 : (acet-filter-match assoclist cons) ; 機能 : 詳細不明 ; 引数 :* assoclist … エンティティリストっぽい :* cons … 何かのリスト ; 戻り値 : ; サンプル <pre class="brush:autolisp;"> (setq e (entget (car (entsel)))) (Acet-filter-match e '(("aaa" "ccc" "ddd") . "ccc")) nil </pre> ----- 関連事項 * expresstools関数 * acet-and-match * acet-not-match * acet-or-match * acet-gc-m…」
- 20:472025年8月6日 (水) 20:47 差分 履歴 +557 新 Acet-4-match ページの作成:「{{AutoLISP}} ; 構文 : (acet-4-match cons1 str cons2) ; 機能 : 詳細不明 ; 引数 :* cons1 … 何かのコンスセル :* str … 多分評価する文字列 :* cons2 … 何かのコンスセル ; 戻り値 : 詳細不明 ; サンプル <pre class="brush:autolisp;"> (Acet-4-match '("aaa" . "bbb") "bbb" '("ccc" . "ddd")) "ddd" </pre> ----- 関連事項 * expresstools関数 * acet-and-match * acet-not-match * acet-or-match * […」 最新
- 07:502025年8月6日 (水) 07:50 差分 履歴 +769 新 Acet-str-esc-wildcards ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-esc-wildcards ''string'' ) ; 機能 : 文字列内に含まれるすべてのワイルドカード文字を ` 文字でエスケープした文字列を返す。 ; 引数 :* string… 評価する文字列 ; 戻り値 : ワイルドカード文字を ` 文字でエスケープした文字列。 ; サンプル <pre class="brush:autolisp;"> (acet-str-esc-wildcards "あかまきがみあおまき*がみきまきまみ" ) ;…」 最新
- 07:312025年8月6日 (水) 07:31 差分 履歴 +1,038 新 Acet-str-m-find ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-m-find ''what'' ''string'' ) ; 機能 : what が出現する文字列を返し、見つかったすべての位置リストを返す。 ; 引数 :* what… 検索する文字列 :* string… 評価する文字列 ; 戻り値 : 文字列内から見つかった位置のリスト。見つからない場合は nil。 ; サンプル <pre class="brush:autolisp;"> (setq text "This is a Pen. This is a Apple. Un! penpainappleapplep…」 最新
- 06:462025年8月6日 (水) 06:46 差分 履歴 +30 Acet-str-replace 編集の要約なし 最新
- 06:432025年8月6日 (水) 06:43 差分 履歴 +1,132 新 Acet-str-wcmatch ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-wcmatch ''string'' ''pattern'' [ ''caseInsensitive'']) ; 機能 : 文字列 string がパターン pattern と一致する場合、T を返す。 ; 引数 :* String … 評価する文字列 :* pattern … 比較するパターン :* caseInsensitive … nil でない場合、wcmatch 操作は大文字小文字を区別するモードで実行される。 ; 戻り値 : パターンを一致すれば T、それ以外は nil…」 最新
- 05:112025年8月6日 (水) 05:11 差分 履歴 +2,849 新 Acet-str-replace ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-replace ''find'' ''replace'' ''inString'' [ ''caseInsensitive'' [ ''useRegExp'' [ ''count'' ]]]) ; 機能 : 文字列inString内の文字列 find を文字列 replace に置き換えた結果の文字列を返す。 ; 引数 :* find … inString内の置換前文字列 :* replace … oldstrを置換する文字列 :* inString … 評価する文字列 :* caseInsensitive … nil でない場合、大文字小文字を区別…」
2025年8月5日 (火)
- 21:462025年8月5日 (火) 21:46 差分 履歴 +897 新 Acet-str-lr-trim ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-space-trim ''trimchars'' ''string'' ) ; 機能 : trimcharsに含まれる任意の文字を左右トリミングした文字列を返す。 ; 引数 :* trimchars … トリムする文字列 :* str … 評価する文字列 ; 戻り値 : 空白がトリミングされた文字列 ; サンプル <pre class="brush:autolisp;"> (acet-str-lr-trim "0" "00123456") "123456" (acet-str-lr-trim "\"" "\"裏飯屋\"") "裏飯屋" </pr…」 最新
- 21:412025年8月5日 (火) 21:41 差分 履歴 +1,053 新 Acet-str-space-trim ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-space-trim ''str'' ) ; 機能 : 前後の空白をトリミングした文字列を返す。 ; 引数 :* str … 評価する文字列 ; 戻り値 : 空白がトリミングされた文字列 ; サンプル <pre class="brush:autolisp;"> (acet-str-space-trim " マ ッ ト レ ス ") "マ ッ ト レ ス" (acet-str-space-trim " マ ッ ト レ ス ") " マ ッ ト レ ス " ; 全角スペー…」 最新
- 20:232025年8月5日 (火) 20:23 差分 履歴 +1,329 新 Acet-str-format ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-format ''format'' [ ''arg1'' ''arg2 '' ''argN'' ] ) ; 機能 : 引数arg1、arg2などを使って、フォーマット format に基づいた文字列を返す。 ; 引数 :* format-string … 引数のプレースホルダーとして「%1」と「%2」を含む通常の文字列。使用できる引数はINT、REAL、STR型のみ。 :* arg1 … format 内の書式指定子に対応する引数。 %1 :* arg2 … format 内…」 最新
- 07:522025年8月5日 (火) 07:52 差分 履歴 +137 Acet-str-find 編集の要約なし 最新
- 07:492025年8月5日 (火) 07:49 差分 履歴 +2,071 新 Acet-str-find ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-find ''searchFor'' ''inString'' [ ''caseInsensitive'' [ ''wildcardMatch'' ]]) ; 機能 : 文字列 inString 内から文字列 searchFor 位置のインデックスを返す。 : caseInsensitive が指定され、かつ NIL でない場合、検索は大文字小文字を区別しない; : wildcardMatchが指定され、NILでない場合、検索は正規表現モードで実行される。 ; 引数 :* searchFor … 検索…」
- 07:302025年8月5日 (火) 07:30 差分 履歴 +1,219 新 Acet-str-equal ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-equal ''leftString'' ''rightString'' [''CaseSensitive'' ]) ) ; 機能 : ( acet-str-collate )と同じだが返り値が違う。 ; 引数 :* leftString … 評価する文字列 :* rightString … 評価する文字列 :* CaseSensitive … 大文字と小文字を区別するかどうかを指定する整数。T=大文字と小文字を区別する。nil= 大文字と小文字を区別しない。初期値は nil。 ;…」 最新
- 07:282025年8月5日 (火) 07:28 差分 履歴 +1,370 新 Acet-str-collate ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-collate ''leftString'' ''rightString'' [''CaseSensitive'' ]) ) ; 機能 : 2つの文字列を大文字小文字を区別せずに比較する。文字列の比較は、現在のコードページに基づいて行われる。 ; 引数 :* leftString … 評価する文字列 :* rightString … 評価する文字列 :* CaseSensitive … 大文字と小文字を区別するかどうかを指定する整数。T=大文字と小文…」 最新
- 07:092025年8月5日 (火) 07:09 差分 履歴 +9 Acet-bs-strip 編集の要約なし 最新
- 06:552025年8月5日 (火) 06:55 差分 履歴 +847 新 Acet-bs-strip ページの作成:「{{AutoLISP}} ; 構文 : (acet-bs-strip ''string'' ) ; 機能 : 文字列 string からバックスペース文字 (0x08) を取り除く。 ; 引数 :* string … 評価する ; 戻り値 : バックスペース文字 (0x08) が取り除かれた文字列。 ; サンプル <pre class="brush:autolisp;"> (setq str "今日のおやつは\bなんですか?\n") (acet-bs-strip str) "今日のおやつはなんですか?\n" </pre> ----- 関連事項 * Expre…」
- 06:362025年8月5日 (火) 06:36 差分 履歴 +339 Acet-str-to-list 編集の要約なし 最新
- 06:022025年8月5日 (火) 06:02 差分 履歴 +23 Cmdecho 編集の要約なし 最新
- 06:022025年8月5日 (火) 06:02 差分 履歴 +1,841 新 Acet-set-cmdecho ページの作成:「 {{AutoLISP}} ; 構文 : (acet-set-cmdecho ''new-value'' ) ; 機能 : CADのシステム変数 CMDECHO の値を設定する。 : (setvar "cmdecho" n) と似ているが、直前の cmdecho値を返す点が異なり、値の「取得」と「設定」が一行で完結するため、コードがよりシンプルで読みやすくなる。 ; 引数 :* new-value : CMDECHO に設定したい新しい整数値。0(非表示)または 1(表示)です。 ;…」 最新
- 05:512025年8月5日 (火) 05:51 差分 履歴 +24 Command 編集の要約なし 最新
- 05:512025年8月5日 (火) 05:51 差分 履歴 +9 Vl-cmdf 編集の要約なし 最新
- 05:492025年8月5日 (火) 05:49 差分 履歴 +24 Command-s 編集の要約なし 最新
- 05:492025年8月5日 (火) 05:49 差分 履歴 +533 Vl-cmdf 編集の要約なし
- 05:482025年8月5日 (火) 05:48 差分 履歴 +1,935 新 Acet-safe-command ページの作成:「 {{AutoLISP}} ; 構文 : (acet-safe-command cmdlist) ; 機能 : (command) 関数をより安全に実行するためのラッパー(包む)関数。 : 主な目的は、command 関数の実行中にユーザーが [Esc] キーを押してキャンセルしたり、コマンド自体がエラーで失敗したりしても、LISPプログラム全体がエラーで停止してしまうのを防ぐ用途。 ; 引数 :* cmdlist : コマンドとオプション…」 最新
- 05:342025年8月5日 (火) 05:34 差分 履歴 −3 Acet-undo-begin 編集の要約なし 最新
- 05:332025年8月5日 (火) 05:33 差分 履歴 −3 Acet-undo-end 編集の要約なし 最新
- 05:322025年8月5日 (火) 05:32 差分 履歴 +534 新 Acet-undo-end ページの作成:「 {{AutoLISP}} ; 構文 : (acet-undo-end) ; 機能 : (command "_undo" "_end") を実行する関数。(acet-undo-begin) とセットで使う。 ; 引数 :* なし ; 戻り値 : なし ; サンプル <pre class="brush:autolisp;"> (acet-undo-begin) ; 何かの処理 (acet-undo-end) </pre> ----- 関連事項 * expresstools関数 * acet-undo-begin * acet-undo-end * vl-local-undo-push * vl-local-undo-pop * vl-local-undo-steps * vl-loc…」
- 05:192025年8月5日 (火) 05:19 差分 履歴 +536 新 Acet-undo-begin ページの作成:「 {{AutoLISP}} ; 構文 : (acet-undo-begin) ; 機能 : (command "_undo" "_begin") を実行する関数。(acet-undo-end) とセットで使う。 ; 引数 :* なし ; 戻り値 : なし ; サンプル <pre class="brush:autolisp;"> (acet-undo-begin) ; 何かの処理 (acet-undo-end) </pre> ----- 関連事項 * expresstools関数 * acet-undo-begin * acet-undo-end * vl-local-undo-push * vl-local-undo-pop * vl-local-undo-steps * vl-l…」
2025年8月3日 (日)
- 22:472025年8月3日 (日) 22:47 差分 履歴 +1,441 新 Acet-gc-match ページの作成:「{{AutoLISP}} ; 構文 : (acet-gc-match ''dxf-code'' ''value'' ''elist'' ) ; 機能 : 単一のDXFグループコードと値のペアが、エンティティリスト内に存在するかをテストするっぽい。 : (acet-and-match elist (list (cons dxf-code value))) と等価。 ; 引数 :* dxf-code : 整数で表されるDXFグループコード。 :* value : dxf-code に対応する値。 :* elist : テスト対象のエンティティデータリス…」 最新
- 22:432025年8月3日 (日) 22:43 差分 履歴 +1,082 新 Acet-or-match ページの作成:「{{AutoLISP}} ; 構文 : (acet-or-match ''elist'' ''matchlist'' ) ; 機能 : matchlist に含まれる条件のうち、少なくとも1つ に elist が一致するかどうかをテストするっぽい。 ; 引数 :* elist : テスト対象のエンティティデータリスト。 :* matchlist : 条件として使用するDXFグループコードと値のペアのリストだと思ったが違うっぽい。 ; 戻り値 : よくわからないがリスト…」 最新