Sponsored links

【AutoLISP ユーザー入力】 ユーザー入力にオプションを付ける　関数 initget キーワードを設定

Sponsored links
AutoLISP
2020.05.19
Sponsored links

ユーザー入力にオプションを付けます。

今回は、entsel で図形選択をするときに、図形選択をせずに色選択をする。というオプションを付けます。

Sponsored links

予備知識

こちらの記事に出てくる、グローバル変数に色番号を保存しておいて、コマンド実行時に図形を選択してグローバル変数の値の色に変更するコマンドを使います。

【AutoLISP グローバル変数】 グローバル変数とは？
AutoLISPプログラムで使う変数は、”ローカル変数の宣言”をしなければ、コマンド終了後も変数内の情報が残り、その情報を使い回すことができます。 1つのコマンド/関数内だけではなく、広く使うので、ローカルの反対でグローバル変数です。 予備...
jagaimolisp.com
2020.05.16

entsel にオプションを付ける

図形選択時に、

色を変える図形を選択 もしくは [色選択ボックス (C)]　と表示して、C を入力するか、コマンドラインの[色選択ボックス (C)]　をクリックしたら色選択ダイアログボックスが出てきて色を変更できるようにします。

AutoLISPプログラム

(defun c:test (/ ES Obj)
  
  (if (null g00Col)
    (setq g00Col (acad_colordlg 1)) ; 色選択ダイアログボックスを出して色をユーザ選択
  );if

 (while (null Obj) ; Objが空なら繰り返す　ここから------------

    (initget "Coldlg")
    (setq ES (entsel "色を変える図形を選択 もしくは [色選択ボックス (C)]"))

    (if (= ES "Coldlg")  ; もしESが"Coldlg"なら
       (setq g00Col (acad_colordlg g00Col)) ;　色選択ダイアログボックスを出して色をユーザ選択
       (setq Obj (car ES)) ;　そうでなければObjに図形名を入れる
    );if
 );while　; Objが空なら繰り返す---------------ここまで
  
(command-s "._CHANGE" Obj "" "_P" "_C" g00Col "") ;　コマンドで選択された図形を選択された色にする　

(princ))

AutoLISPの説明

関数 intiget

(initget “Coldlg”)

initget はキーワードを設定する関数です。選択肢を設定します。
ここでは、カラーダイアログということで、Coldlg にしました。

(setq ES (entsel “色を変える図形を選択 もしくは [色選択ボックス (C)]“))

そして、entselのプロンプトに、[色選択ボックス (C)] と入れることで、選択オプションになります。

entsel で通常通り図形を選択すれば図形情報が戻り値に、C を入力するか、コマンドラインの[色選択ボックス (C)]　をクリックなら、intigetで設定した“Coldlg”が戻り値になります。
(setq ES で、この戻り値は変数ESに入ります。

(if (= ES “Coldlg”)
　(setq g00Col (acad_colordlg g00Col))
　(setq Obj (car ES))
);if

そして、もし変数ESに入った情報が“Coldlg”なら、色選択ダイアログボックスを出して色をユーザー選択、そうでなければ、(car ES) で、entsel で図形選択して得た図形情報から、図形名を得てObjに入れます。

これら一連の流れは、(while (null Obj …….. ) 内なので、図形選択されてObjに図形名が入れば次に行くし、色選択が選択されてObjに情報が入らなかった場合は、また、図形選択に戻ります。

まとめ

  • initgetでキーワードを設定できる
  • [選択肢 (記号)] をユーザー入力時のオプションに加えると戻り値がキーワードになる。
【AutoLISP Lesson 応用編】 ユーザー入力　記事一覧
ユーザーから数字、文字列、点座標などを受け取ることにより、その情報から編集するコマンドを作ることができます。 文字列を入力　getstring 文字列を入力するまで待機(一時停止)し、入力された文字列が戻り値になります。 実数を入力　get...
jagaimolisp.com
2020.05.02

関連記事

いくつかの選択肢を付ける例です。

【AutoLISP ユーザー入力】選択肢を付ける　関数 initget とgetkword - 画層を選んで雲マーク
initget と getkword を使って選択肢がついたコマンドを作ります。 予備知識 コチラの記事で作ったコマンドに、さらに選択肢を付け加えます。 この記事では、条件式 の関数 if と cond を使います。 コマンドの内容 既存コ...
jagaimolisp.com
2020.06.13

図形選択時のオプションと一緒にプ現在の色番号が出るようにすると、このままの色でいくか変更するか判断できてさらに使い勝手がよくなります。
その方法ついてはこちらの記事を。

【AutoLISP 変換関数】 関数 itoa 整数を文字列に変換
整数を文字列にする関数　itoa の紹介です。 予備知識 AutoLISPでは、文字列と数字を区別します。””　がついた　"1"　 は文字列で、1　は数字です。数字が引数として欲しい関数に文字列を渡しても、文字列が欲しい関数に数字を渡しても...
jagaimolisp.com
2020.05.17

図形選択時のオプションを付けているコマンドサンプルです。
現在の色番号がプロンプトに表示されるようにもなっています。

【AutoLISP サンプル】選択した図形の色を変更
Jagaimo 選択した図形の色を変更するコマンドです。グループ選択/個別選択、繰り返し、システム変数変更、エラー処理、汎用性あるパターンは自作関数にするなど、レッスン記事で説明したことを組み入れています。 コマンドの内容 概要 選択した図...
jagaimolisp.com
2020.05.20

グローバル変数は図面を閉じると情報が消えます。設定を保存する方法はコチラの記事を

【AutoLISP グローバル変数】 グローバル変数の保存　vl-registry-read & write
AutoLISP は図面ファイルを閉じれば変数の値も含めてすべて消えます。 しかし、変数の値をパソコンに保存することもできます。後から図面を開いたときや、別図面ファイルでも、同じグローバル変数を使いたいときに便利です。 予備知識 コマンド/...
jagaimolisp.com
2020.05.18

Sponsored links