【AutoLISP ドリル】If 条件式 1　問題編

課題

選択した円の半径が、10未満だったら赤色に、10以上だったら黄色に色変更をするコマンドを作ります。

ヒント

選択した図形の半径の情報を得て、IF条件式で、10未満かそうでないかの2択で色分けして、図形の色を変えます。

DXF図形情報の半径のグループコードは40、色のグループコードは62です。
Visual Lispを使う場合は、vla-get-radius　が半径の値を得る関数、vla-put-color が図形の色を変える関数です。

色を変えるのは、コマンド CHANGE[データ変更]を使うこともできます。

DXF図形情報の変更で色を変える場合、図形の色がByLayerの時、色情報は省略されていることがありますので、省略されていたら62の情報を足すという処理も必要になります。

参考記事

図形の情報を得る

【AutoLISP DXF情報】図形の情報を取得する　entget

図形のDXF情報には、その図形のいろんな情報が詰まっています。この情報を取得したり変更したりすることで、コマンド作りの幅が広がりますよ。 予備知識 図形名から図形のDXF図形情報を得ます。図形名の取得方法はコチラの記事を。 DXF (Dra...

jagaimolisp.com

2020.04.09

【AutoLISP VLISP】vla-get-xxxx 図形の情報を得る

vla-get-xxxx を使うと、ActiveX図形情報から図形のプロパティをえることができます。 事前知識 VLISPを使いActiveXという形式で図形のプロパティ情報を得ることができます。AutoLISPを使って得るDXF図形情報よ...

jagaimolisp.com

2020.07.13

IF条件式

【AutoLISP 条件式】IF条件式（もし○ならX、そうでないなら△）でリボンの表示切替えコマンド

リボンを表示/非表示に切り替えるコマンドを作りながら、AutoLISP関数 IF について説明していきます。 関数　IF AutoLISP関数 IF　は、使用頻度が高い関数の一つです。 もし〇なら、Ｘを実行。そうでないなら、△を実行。 とい...

jagaimolisp.com

2020.04.07

図形の色を変える

【AutoLISP 図形選択】図形名が入った変数を使ってコマンド操作

(setq Obj (car (entsel))) でObjに入れた情報を使って、コマンド操作で図形の編集をしてみましょう。 準備 まずは、RECTANG コマンドで長方形を描いてください。画層は 0 以外で、色は赤以外でお願いします。 そ...

jagaimolisp.com

2020.03.31

【AutoLISP DXF情報】DXF図形情報を書き換える 関数substとentmod

DXF図形情報からは、図形の情報を得るだけでなく、書き換えて図形編集することもできます。 予備知識 図形からDXF図形情報を得る方法はコチラの記事を DXF図形情報 (setqEnt(entget(car(entsel)))) このコードで...

jagaimolisp.com

2020.05.25

【AutoLISP VLISP】vla-put-xxxx ActiveXで図形を編集

vla-put-xxxx で、図形のプロパティを変更することができます。 事前知識 VLISPを使いActiveXという形式で図形のプロパティ情報を得ることができます。AutoLISPを使って得るDXF図形情報よりも多くの情報をカバーしてい...

jagaimolisp.com

2020.07.14