すべての公開記録

GizmoLabs - だいたい CAD LISP なサイトの取得できる記録をまとめて表示しています。記録の種類、実行した利用者 (大文字小文字は区別)、影響を受けたページ (大文字小文字は区別) による絞り込みができます。

2025年8月14日 (木) 06:32 Gizmon トーク投稿記録がページ「Extmax」を作成しました (ページの作成:「{{システム変数}} * タイプ: 3D 点 * 保存先: 図面 * 初期値: 不定オブジェクト範囲の左下点が格納される。(読み込み専用) 新しいオブジェクトを描くと、オブジェクト範囲は自動的に広がる。図形範囲が狭くなるのは、ZOOM[ズーム]コマンドの[図面全体(A)]または[オブジェクト範囲(E)]オプションを実行した場合のみ。このシステム変数の値は、現在…」)
2025年8月14日 (木) 06:27 Gizmon トーク投稿記録がページ「Limmax」を作成しました (ページの作成:「{{システム変数}} * タイプ: 2D 点 * 保存先: 図面 * 初期値: 12.0000,9.0000 (フィート/インチ)または 420.0000,297.0000 (メートル) 現在の空間のグリッド範囲の右上の点が、ワールド座標で格納される。 LIMMAX は、ペーパー空間がアクティブで、用紙の背景または余白が表示されている場合は読み込み専用。 ---- '''関連事項''' :* extmin システム変数 :* extmax…」)
2025年8月14日 (木) 06:26 Gizmon トーク投稿記録がページ「Limmin」を作成しました (ページの作成:「{{システム変数}} * タイプ: 2D 点 * 保存先: 図面 * 初期値: 0.0000,0.0000 現在の空間のグリッド範囲の左下の点が、ワールド座標で格納される。 LIMMIN は、ペーパー空間がアクティブで、用紙の背景または余白が表示されている場合は読み込み専用。 ---- '''関連事項''' :* extmin システム変数 :* extmax システム変数 :* limmin システム変数 :* limmax…」)
2025年8月14日 (木) 05:59 Gizmon トーク投稿記録がページ「Acet-geom-view-points」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-view-points) ;機能 : 現在の画面領域の2つの範囲点を、現在のユーザー座標系（UCS）に変換したリストを返す。 ;引数 :* なし ;戻り値 : ユーザー座標系（UCS）に変換された領域座標の対角点リスト ;サンプル <pre class="brush:autolisp;"> (acet-geom-view-points) ((80.5853743854216 -101.136531021658 -109.584210959316) (1160.82323357658 420.083209508883 -109.584210…」)
2025年8月13日 (水) 13:24 Gizmon トーク投稿記録がページ「Acet-geom-vector-add」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-vector-add ''Vec'' ''addVec'') ;機能 : ベクトル addVec をベクトル vec に追加し、新しいベクトルを返す。 ;引数 :* Vec … ベクトル座標リスト :* addVec … 追加するベクトル座標リスト ;戻り値 : addVec を追加したベクトル Vec の値 ;サンプル <pre class="brush:autolisp;"> ; XY平面からXZ平面への角度 (acet-geom-vector-add '(10 10) '(12 15 0)) (22 25 0.0)…」)
2025年8月12日 (火) 15:48 Gizmon トーク投稿記録がページ「Acet-geom-pline-arc-info」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-pline-arc-info ''p1'' ''p2'' ''bulge'' ) ; 機能 : ポリラインの弧の定義データを、p1、p2、およびbulge値を指定して、以下の形式で返す。 : (中心点半径角度変化量開始角度終了角度)。 ; 引数 :* p1 … 弧の開始座標点 :* p2 … 弧の終了座標点 :* bulge … ふくらみの実数 ; 戻り値 : 弧のリスト (中心座標点半径（実数）角度変化…」)
2025年8月12日 (火) 15:22 Gizmon トーク投稿記録がページ「Acet-geom-point-inside」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-point-inside ''pt'' ''ptList'' ''halfwidth'') ; 機能 : 指定された点 pt が ptList で定義された帯域内に含まれるかどうかを、halfwidthを使用して判定する。 ; 引数 :* pt …評価する座標点リスト :* ptList… pt が範囲に入っているかを判定する座標点リスト :* halfwidth … 半値 ; 戻り値 : 範囲内なら T、それ以外なら nil を返す。だと思わ…」)
2025年8月12日 (火) 12:13 Gizmon トーク投稿記録がページ「Acet-geom-point-rotate」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-point-rotate ''pt'' ''refPoint'' ''rotAngle'') ; 機能 : 指定されたポイント pt を基準点 refPoint を中心に角度 rotAngle で回転させて作成したポイントを取得する。 ; 引数 :* pt … 回転する点の座標点リスト :* refPoint … 回転の基点になる座標点リスト :* rotAngle … 回転角度のラジアン値 ; 戻り値 : 回転された pt の座標点リスト ; サ…」)
2025年8月12日 (火) 12:08 Gizmon トーク投稿記録がページ「Acet-geom-point-scale」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-point-scale ''toPoint'' ''fromPoint'' ''scale'') ; 機能 : fromPoint から toPoint へのベクトルを scale でスケーリングして作成し、fromPoint に適用した点を返す。 ; 引数 :* toPoint … ベクトル先の座標点リスト :* fromPoint … ベクトル元の座標点リスト :* scale … 倍率。NIL の場合、1.0 が使用される。 ; 戻り値 : スケーリングされた座標点リ…」)
2025年8月12日 (火) 10:56 Gizmon トーク投稿記録がページ「Acet-geom-rect-points」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-rect-points ''p1'' ''p2'' ) ; 機能 : p1 と p2 で定義される矩形の「矩形コーナー点」から矩形の4点を座標リストを作成する。 ; 引数 :* p1 … 矩形コーナーの座標点 :* p2 … p1の対角コーナーの座標点 ; 戻り値 : (左下右下右上左上左下) の点リストを返す。 : ってなってるけど、座標の大小は考慮していないようで4点の座標…」)
2025年8月12日 (火) 10:36 Gizmon トーク投稿記録がページ「Acet-geom-list-extents」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-list-extents ''pointlist'' ) ; 機能 : ポイントリストに指定されたすべてのポイントの範囲を返す。 ; 引数 :* pointlist … 2D/3Dの座標点リスト（混ざってもOK）。 ; 戻り値 : 左下と右上点のリストを返す。点リスト内のすべての点が3D点の場合は、3D点リストが返る。 ; サンプル <pre class="brush:autolisp;"> (acet-geom-list-extents '((0 0 0) (…」)
2025年8月12日 (火) 09:44 Gizmon トーク投稿記録がページ「Acet-geom-vector-d-angle」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-vector-d-angle ''v1'' ''v2'') ;機能 : 2つのベクトル v1 と v2 間の角度を返します。3次元ベクトルにも対応。 ;引数 :* v1 … ベクトル座標リスト :* v2 … ベクトル座標リスト ;戻り値 : v1 と v2 間の角度（ラジアン値） ;サンプル <pre class="brush:autolisp;"> ; XY平面からXZ平面への角度 (acet-geom-vector-d-angle '(0 0 1) '(0 1 0)) 1.5707963267949 ;90度だ…」)
2025年8月12日 (火) 09:38 Gizmon トーク投稿記録がページ「Acet-geom-m-trans」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-m-trans ''pointlst'' ''from'' ''to'') ;機能 : pointlst から変換された点のリストを返す; (trans point from to) を pointlst の各点に適用する。 ;引数 :* pointlst … 角度 :* fromCS … 変換元座標系の数値 :* toCS … 変換先座標系 ::* fromCS,toCS の値：0 = WCS（ワールド座標系）, 1 = UCS（ユーザ座標系）, 2 = DCS (ディスプレイ座標系), 3 = PDCS（ペーパー…」)
2025年8月12日 (火) 09:34 Gizmon トーク投稿記録がページ「Acet-geom-angle-trans」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-angle-trans ''angle'' ''fromCS'' ''toCS'') ;機能 : fromCS から toCS座標系に変換した角度を返す。 ;引数 :* angle… 角度 :* fromCS … 変換元座標系の数値 :* toCS … 変換先座標系 ::* fromCS,toCS の値：0 = WCS（ワールド座標系）, 1 = UCS（ユーザ座標系）, 2 = DCS (ディスプレイ座標系), 3 = PDCS（ペーパー空間ディスプレイ座標系） ;戻り値 : 変換…」)
2025年8月12日 (火) 09:12 Gizmon トーク投稿記録がページ「Acet-geom-self-intersect」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-self-intersect ''ename1'' ''ename2'' ''flags'' ) ;機能 :エンティティename1とentity2のすべての交点を返す。 ;引数 :*ename1 … エンティティ名。 :*ename2 … エンティティ名。 :*flags … ビットコードのフラグ。 ::*bit 0 (1) : エンティティ1 を仮想的に拡張する。 ::*bit 1 (2) : エンティティ2 を仮想的に拡張する。 ;戻り値 :ename1とentity2のすべて…」)
2025年8月12日 (火) 08:40 Gizmon トーク投稿記録がページ「Acet-geom-intersectwith」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-intersectwith ''ename1'' ''ename2'' ''flags'' ) ;機能 :エンティティename1とentity2のすべての交点を返す。 ;引数 :*ename1 … エンティティ名。 :*ename2 … エンティティ名。 :*flags … ビットコードのフラグ。 ::*bit 0 (1) : エンティティ1 を仮想的に拡張する。 ::*bit 1 (2) : エンティティ2 を仮想的に拡張する。 ;戻り値 :ename1とentity2のすべて…」) タグ: ビジュアルエディター
2025年8月12日 (火) 08:39 Gizmon トーク投稿記録がページ「ファイル:Acet-geom-intersectwithのサンプル.png」を作成しました
2025年8月12日 (火) 08:39 Gizmon トーク投稿記録がファイル:Acet-geom-intersectwithのサンプル.png をアップロードしました
2025年8月11日 (月) 22:33 Gizmon トーク投稿記録がページ「Acet-geom-pixel-unit」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-pixel-unit) ; 機能 : 現在の表示倍率に対するピクセルの大きさを dwg 単位で返す。 ; 引数 :* なし ; 戻り値 : 1ピクセル: dwgの長さ ===MEMO=== * ズーム状況により変わる。 ; サンプル <pre class="brush:autolisp;"> (acet-geom-pixel-unit) 1.00424480975304　; ミリ単位の場合、１ピクセル≒1ミリの状態 </pre> ----- 関連事項 * Expresstools関数 Cat…」)
2025年8月11日 (月) 20:58 Gizmon トーク投稿記録がページ「Acet-geom-zoom-for-select」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-zoom-for-select pntlist ) ; 機能 : 座標点リスト pntlist 内のすべての点が画面上に表示されているかどうかを確認する。 ; 引数 :* pntlist … 座標点リスト ; 戻り値 : 座標点リスト pntlist 内のすべての点が作図領域上に表示されていると NILを返す。 : 作図領域上外だと、pntlist内のすべての点が画面上に表示されるように、Zoom/Window…」)
2025年8月11日 (月) 20:25 Gizmon トーク投稿記録がページ「Acet-geom-image-bounds」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-image-bounds ''ename'' ) ; 機能 : 画像エンティティの境界点をリストとして返す。 ; 引数 :* ename … イメージエンティティのename ; 戻り値 : 画像エンティティの境界点をリスト（左下点右下点右上点左上点左下点）。 ===MEMO=== * 左下点が最初と最後で 2つある理由は不明。 * イメージは、参照、OLEどちらも対象にできるが…」)
2025年8月11日 (月) 19:00 Gizmon トーク投稿記録がページ「Acet-geom-cross-product」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-cross-product ''v1'' ''v2'') ; 機能 : ベクトルv1とv2の積ベクトル（v1とv2で定義される平面の法線ベクトル、3つの実数リスト）を返す。 ; 引数 :* v1 … ベクトルリスト。 :* v2 … ベクトルリスト。 ; 戻り値 : v1,v2のベクトル積のリスト ; サンプル <pre class="brush:autolisp;"> ; XZ平面とYZ平面の積 (acet-geom-cross-product '(0.0 -1.0 0.0) '(-1.0 0.0…」)
2025年8月11日 (月) 17:16 Gizmon トーク投稿記録がページ「Acet-geom-z-axis」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-object-z-axis) ; 機能 : 現在のUCSのZベクトルを返す（(getvar "UCSXDIR")と(getvar "UCSXDIR")のクロス積）。 ; 引数 :* なし ; 戻り値 : Zベクトルのリスト ; サンプル <pre class="brush:autolisp;"> (acet-geom-z-axis ) (0.0 0.0 1.0) ; UCSがXY平面(=WCS)の場合 (0.0 -1.0 0.0) ; UCSがXZ平面の場合 (-1.0 0.0 0.0) ; UCSがYZ平面の場合 </pre> ----- 関連事項 * Expresstools関…」)
2025年8月11日 (月) 17:12 Gizmon トーク投稿記録がページ「Acet-geom-object-z-axis」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-object-z-axis ''elist'') ; 機能 : entityが平面entityであれば、entity data elistで指定されたentityの法線ベクトルを返し、そうでなければ(0 0 1)ベクトルを返す。 ; 引数 :* elist … エンティティリスト ; 戻り値 : 法線ベクトル座標リスト（DXFの210番拾うのと同じ） ; サンプル <pre class="brush:autolisp;"> (acet-geom-object-z-axis (entget (car (entsel)…」)
2025年8月11日 (月) 17:02 Gizmon トーク投稿記録がページ「Acet-geom-delta-vector」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-delta-vector ''p1'' ''p2'') ; 機能 : p1からp2までのベクトル（相対座標）を3つの実数のリストとして返す。 ; 引数 :* p1 … 座標点リスト。 :* p2 … 座標点リスト。 ; 戻り値 : p1からp2までのベクトル（相対座標）リスト ; サンプル <pre class="brush:autolisp;"> (acet-geom-delta-vector '(1.0 6 0) '(10.0 5.0 0)) (9.0 -1.0 0) </pre> ----- 関連事項 * Expr…」)
2025年8月11日 (月) 16:35 Gizmon トーク投稿記録がページ「Acet-geom-unit-vector」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-unit-vector ''p1'' ''p2'') ; 機能 : p1からp2までのベクトルの単位ベクトル（長さは1.0）を返す。 ; 引数 :* p1 … 座標点リスト。 :* p2 … 座標点リスト。 ; 戻り値 : 単位ベクトル座標値 ; サンプル <pre class="brush:autolisp;"> (acet-geom-unit-vector (getpoint) (getpoint)) (1.0 0.0 0.0) (setq unt (acet-geom-unit-vector (getpoint) (getpoint))) ; p1->p2 が 60度だった…」)
2025年8月11日 (月) 15:51 Gizmon トーク投稿記録がページ「Acet-geom-midpoint」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-midpoint ''p1'' ''p2'') ; 機能 : acet-geom-midpointを参照 ----- 関連事項 * Expresstools関数 Category:AutoLISP Category:BricsCADのLISP」)
2025年8月11日 (月) 15:50 Gizmon トーク投稿記録がページ「Acet-geom-mid-point」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-mid-point ''p1'' ''p2'') ; 機能 : 与えられた点p1とp2の中点を返す。 ; 引数 :* p1 … 座標点リスト。 :* p2 … 座標点リスト。 ; 戻り値 : 中点の座標点リスト。 : p1とp2の両方が3D点である場合は3D点として、p1またはp2のどちらかが2D点のみの場合は2D点が返る。って書いてあるけど３D 点が返ってきとるで。 ; サンプル <pre class="bru…」)
2025年8月11日 (月) 15:45 Gizmon トーク投稿記録がページ「Acet-geom-is-arc」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-is-arc ''p1'' ''p2'' ''p3'' ''p4'' ''fuz'' ) ; 機能 : 与えられた4点 p1 p2 p3 p4 が有効な円弧/円を定義しているかどうかを検証する。 ; 引数 :* p1 … 座標点リスト。 :* p2 … 座標点リスト。 :* p3 … 座標点リスト。 :* p4 … 座標点リスト。 :* fuz … 許容差の実数。NILの場合は許容差0.0が使用される。 ; 戻り値 : 4点が円弧/円に属する場…」)
2025年8月11日 (月) 14:42 Gizmon トーク投稿記録がページ「Acet-geom-textbox」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-textbox ''textobject'' ''offset'') ; 機能 : textobject で指定された Text または AttributeDefinition または Attribute または MText の 4 つの境界矩形点のリストを返す。 ; 引数 :* textobject … ename または (entget) リスト。 :* offset … 境界矩形を拡張するために適用されるオフセットの実数。 ; 戻り値 : 算出された境界矩形点のリスト。 ; サン…」)
2025年8月11日 (月) 03:48 Gizmon トーク投稿記録がページ「Acet-geom-calc-arc-error」を作成しました (ページの作成:「{{AutoLISP}} ;構文 : (acet-geom-calc-arc-error ''param'' ) ;機能 : 入力パラメーター param に基づいて内部計算用のエラー係数を計算する。 : 「アプリケーションコードでは使用しないでください。」っていうことでテスト用だと思われるが詳細は不明。 ;引数 :*param … パラメータ ;戻り値 : T分布ベースの値？ =====サンプル===== ファイル:Acet-geom-arc-bulge.png|…」)
2025年8月11日 (月) 02:46 Gizmon トーク投稿記録がページ「Acet-geom-arc-bulge」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-arc-bulge ''center'' ''p1'' ''deltaang'') ;機能 :指定された差角 deltaang に対する膨らみ値を返す。引数 center と p1 は(実質的に不要なので)使用されない。 :膨らみは、弧のセグメントの包含角の 1/4 の接線。弧が起点から終点に向かって時計回りに進む場合、負の値になる。 :膨らみが 0 の場合、直線セグメントを表し、膨らみが 1 の…」) タグ: ビジュアルエディター
2025年8月11日 (月) 02:45 Gizmon トーク投稿記録がページ「ファイル:Acet-geom-arc-bulge.png」を作成しました
2025年8月11日 (月) 02:45 Gizmon トーク投稿記録がファイル:Acet-geom-arc-bulge.png をアップロードしました
2025年8月11日 (月) 02:28 Gizmon トーク投稿記録がページ「Acet-geom-arc-center」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-arc-center ''p1'' ''p2'' ''p3'') ;機能 :p1,p2,p3関数は、3点p1,p2,p3で指定された円弧または円の中心点座標を返す。 ;引数 :*p1 … 3D点リスト :*p2 … 3D点リスト :*p3 … 3D点リスト ;戻り値 :3点円弧の中心点座標リスト =====サンプル===== 中央|サムネイル|Acet-geom-arc-centerのサンプル <pre class="brush:autolisp;"> (s…」) タグ: ビジュアルエディター
2025年8月11日 (月) 02:23 Gizmon トーク投稿記録がページ「ファイル:Acet-geom-arc-center.png」を作成しました
2025年8月11日 (月) 02:23 Gizmon トーク投稿記録がファイル:Acet-geom-arc-center.png をアップロードしました
2025年8月11日 (月) 02:19 Gizmon トーク投稿記録がページ「Acet-geom-arc-d-angle」を作成しました (ページの作成:「{{AutoLISP}} ;構文 :(acet-geom-arc-d-angle ''center'' ''p1'' ''p2'' ) ;機能 :中心点 center->p1 ベクトルと中心点 center->p2 ベクトル間の角度を返す。角度の単位はラジアン。 ;引数 :*Center … 中心点の3D点リスト :*p1 … 3D点リスト :*p2 … 3D点リスト ;戻り値 : =====サンプル===== ファイル:Acet-geom-arc-d-angle.png|代替文=Acet-geom-arc-d-angle の角度取得イメージ|中央|サムネ…」) タグ: ビジュアルエディター
2025年8月11日 (月) 02:17 Gizmon トーク投稿記録がページ「ファイル:Acet-geom-arc-d-angle.png」を作成しました
2025年8月11日 (月) 02:17 Gizmon トーク投稿記録がファイル:Acet-geom-arc-d-angle.png をアップロードしました
2025年8月10日 (日) 05:07 Gizmon トーク投稿記録がページ「Acet-list-remove-duplicate-points」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-remove-duplicates-points ''datalist'' ''fuz'' ) ; 機能 : datalist から許容差 fuz を考慮した同じ値を取り除いたリストを返す。 ; 引数 :* datalist … 評価するリスト :* fuz … 許容誤差 ; 戻り値 : 重複が取り除かれた datalist のリスト。lst が NIL の場合は NIL を返す。 ===MEMO=== * 除去はリスト値の最初から処理されるのでリスト値の順番に…」)
2025年8月10日 (日) 05:06 Gizmon トーク投稿記録がページ「Acet-list-remove-duplicates」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-remove-duplicates ''datalist'' ''fuz'' ) ; 機能 : datalist から許容差 fuz を考慮した同じ値を取り除いたリストを返す。 ; 引数 :* datalist … エンティティ名のリスト :* fuz … 許容誤差 ; 戻り値 : 重複が取り除かれた datalist のリスト。lst が NIL の場合は NIL を返す。 ===MEMO=== * 除去はリスト値の最初から処理されるのでリスト値の順…」)
2025年8月10日 (日) 04:43 Gizmon トーク投稿記録がページ「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:57 Gizmon トーク投稿記録がページ「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…」)
2025年8月9日 (土) 21:37 Gizmon トーク投稿記録がページ「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) '(…」)
2025年8月9日 (土) 20:42 Gizmon トーク投稿記録がページ「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"…」)
2025年8月9日 (土) 20:38 Gizmon トーク投稿記録がページ「Acet-list-put-nth」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-put-nth ''newval'' ''datalist'' ''atidx'' ) ; 機能 : インデックス atidx に対応するアイテムの値を newval に更新したリスト datalist を返す。 : インデックスは 0 から始まる。 ; 引数 :* newval … 更新する値 :* datalist … 更新されるリスト :* atidx … インデックスの整数 ; 戻り値 : 更新されたリスト ; サンプル <pre class="brush:autolisp;"> (set…」)
2025年8月9日 (土) 20:33 Gizmon トーク投稿記録がページ「Acet-list-split」を作成しました (ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-split ''lst'' ''item'' ) ; 機能 : リスト lst を要素 item で分割し、2つのサブリスト（左側部分と右側部分）に分割し、両方のサブリストを格納したリストを返す。 : 分割対象の要素 item は、右側リスト部分（存在する場合）の最初の要素になる。 ; 引数 :* lst … リスト :* item … 分割に指定する要素 ; 戻り値 : item 位置で分割…」)
2025年8月9日 (土) 19:33 Gizmon トーク投稿記録がページ「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…」)
2025年8月9日 (土) 18:00 Gizmon トーク投稿記録がページ「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…」)