Geeklog Site

FC2 ブログ

Mon, 29 Dec 2008 15:47:13 +0900

今年は、ここを復活させるぞ！と思っておりましたが...　気が付いてみれば？年の瀬を迎えております。(汗)

これからCADのカスタマイズ！を語ろうとした場合、私のポジション的には、DRX-API を無視できないわけで、ネタは、いろいろと暖めているのですが... 材料が揃わない。

にも関わらず、多数のご訪問ありがとうございます。来年は、何か面白いものを提供したいと考えております。

どうぞ、よろしくお願いいたします。

今、何してるの？こちらでブログを書いております。
http://ebaz.blog8.fc2.com/

サーバー移転

Tue, 07 Oct 2008 11:53:14 +0900

本ドメイン（icadweb.com）は、管理者（江端）が個人で所有＆管理しておりますが... 基本的には、母体となる会社のサーバーを「間借り」させて頂いております。会社のサーバーの見直しがあり、本サイトも引っ越すことになりました。

引越し完了！です。

LISP入門第37回: 条件式

Tue, 23 Sep 2008 16:04:54 +0900

(if) 関数の第１引数... （条件式）について、

=	等号(等しい)
/=	不等号(等しくない)
< , <= , > , >=	比較 (大きい,小さい)
and	論理積
or	論理和

LISP では、真（True） = T , 偽（False） = nil

例：

(setq a 5.0) (setq b 10.0)
(= a 5.0)	結果：T
(= a b)	結果：nil
(/= a b)	結果：T
(< a 5.0)	結果：nil
(<= a 5.0)	結果：T
(< a 8.0)	結果：T
(< a b)	結果：T
(and (> a 2.0) (< a 8.0))	結果：T
(or (= a 0.0)(= b 0.0))	結果：nil

入れ子にすることでもっと複雑な条件式を作成することができます。

(or (and (< a 10.0)(< b 10.0)) (= c 0.0))

このような複雑な式は、複数行にして字下げして書くと分かりやすいと思います。

(or
　(and
　　(< a 10.0)
　　(< b 10.0)
　)
　(= c 0.0)
)

LISP入門第36回: 条件によって分岐する

Sun, 21 Sep 2008 09:53:36 +0900

決められた処理を順番に処理するだけであれば、スクリプトで十分。スクリプトとプログラムの決定的な違いは、途中で処理を条件によって分岐できるかどうか？ということになるかと思います。

(if) 関数は、その名の通り「もし～だったら...」という処理に使用します。

例：
　もし、Aの値が、10より大きかったら...
　もし、選択した図形が円だったら...

(setq a 15)
(if (< a 10)
　(princ "10より小さい!")
　(princ "10以上!")
)

結果：10以上

(cond) 関数は、Basic / Pascal / C言語の switch 文に相当します。(if) が、Yes / No 分岐に対して、(cond) は、「Aの値が、1だったら... 2だったら... 3だったら...」という複数の分岐に使えます。

(cond
　((= color 1) (princ "赤です!"))
　((= color 2) (princ "黄です!"))
　((= color 3) (princ "緑です!"))
　(T (princ "それ以外!"))
)

(if) を入れ子にすることで、(cond) と同じような動作をするプログラムを作ることができますが、(cond)を使ったほうが、プログラムがすっきりしますし処理も高速です。

(if (= color 1)
　(princ "赤です!")
　(if (color = 2)
　　(princ "黄です!")
　　(if (color = 3)
　　　(princ "緑です!")
　　　(princ "それ以外!")
　　)
　)
)

AutoCAD LTの座標取得(getpoint)

Sun, 21 Sep 2008 09:34:07 +0900

AutoCAD LTを始めて触った時、AutoLISPが使えない事を知り、「こんな物使えるか!」と思いました。

(getpoint)が使えない事には、ちょっとした作図コマンドすら出来ないので、使いにくいと定評(?)のあるAutoCADの標準コマンドだけで作図をしなければならない。

ある時、「ID;\」と「@」，「$M=$(getvar."LASTPOINT")」を組み合わせたマクロを教えて頂きました。これは、正直、驚きました... その後、パワーユーザーの皆様の創意工夫によって、さまざまなマクロが作成されるようになったのですが、どう頑張ってもLT(DIESEL)では出来ない事が沢山あって... 先にAutoLISPによるAutoCADの拡張性の高さを知ってしまった私としては、どうしてもDIESELに没頭する気にはなれなかったのでした。

LISP入門第35回: 入力待ち (command pause)

Sat, 20 Sep 2008 06:47:28 +0900

何か、たとえばLINEコマンドを使って作図を行う、拡張コマンドを作成する場合...

最初に紹介した方法...
(command "_LINE" pause ...)

２番目に紹介した方法...
(setq po (getpoint "\n点を入力:"))
(command "_LINE" po ...)

を紹介しました。

２番目に紹介した方法（あらかじめ必要な点を取得して変数へ代入＞変数を (command) 関数へ渡す）の利点は、利用者の入力値がチェックできる事です。

堅牢なプログラムにするためには、入力値のチェックは必須といえます。プログラムの誤動作の多くは、作者が「そのような操作を想定していなかった」ということに起因します。

使用方法が分からない利用者は、どのような操作をするか分かりません。誤った操作をした場合、適切なエラーメッセージを表示し、利用者に操作が間違っている事を伝えるほうが親切なプログラムといえます。

(command pause)を使った場合、puaseに対して利用者が何を入力したのか？という事がチェックできません。入力が間違っていれば、それ以降のプログラムは正常動作しなくなりますので、できるだけ避けたほうが宜しいかと思います。

LISP入門第34回: 文字列

Thu, 18 Sep 2008 18:12:09 +0900

数値/座標の入力を得る方法を説明しました。文字の入力には、(getstring)を使います。基本的な使い方は、今までに説明した(get～)関数と同じです。

(setq name (getstring "名前:"))

とすると、変数(name)に入力された値が文字列として代入されます。

数字を現わす文字を入力した場合も、それは数字ではなく、文字として扱われます。

：(setq name (getstring "名前:"))
名前: 123
"123"
：!name
"123"

123という数字がダブルクォーテーション「"」で囲まれている事に注目してください。→"123"

これは、123という数値ではなく「123」という文字列です。

試しに、これ("123"が代入されたnameという変数)を使って数値計算をするとエラーになります。

：(+ name 10)
エラー:引数のタイプが違います.

数値と文字列は明確に区別する必要があります。プログラムを作成していると、[文字列]<>[数値] の変換がしたいという場面に良く出会います。

LISPでは、次の関数が用意されています。

文字→数値
(atoi)	文字を[整数]に変換
(atof)	文字を[実数]に変換
数値→文字
(itoa)	[整数]を文字に変換
(rtos)	[実数]を文字に変換
(angtos)	[角度]を文字に変換

また、文字列を処理するための関数として、以下のようなものがあります。

文字列操作関数
(strcat)	複数の文字列を連結する。
(substr)	文字列から一部を切出す。
(strlen)	文字列の長さを調べる
(strcase)	大文字/小文字変換
(wcmatch)	文字の比較(ワイルドカード可)

LISP入門第33回: 座標点＞X,Y,Z座標を取得

Thu, 18 Sep 2008 08:47:54 +0900

(getpoint)で取得した座標点（x,y,z）の X座標を取り出す方法は？

右図のような３角形を描くコマンドを考えます。

２点（P1,P2）点を取得して、直角三角形を描きます。ここで、P1= (P1x, P1y) 、P2= (P2x, P2y) としたとき、直角部分の頂点 P0 は、P2のX座標, P1のY座標とすることにします＞ P0= (P2x, P1y)

P1, P2 座標は、前回説明したように、(getpoint) (getcorner) で取得します。

1点目＞ (setq p1 (getpoint "1点目:"))
2点目＞ (setq p2 (getcorner p1 "2点目:"))

このようにして得た変数 p1,p2 には、座標が保存されています。

変数の内容を確認...

:!p1
(341.293 64.6535 0.000000)

この例では、X=341.293, Y=64.6535, Z=0.000000 となっています。小数点以下の精度については、こちらを参照してください＞あれ？答えが違うぞ...

(341.293 64.6535 0.000000) のようなデータを「リスト」と呼び、LISPプログラム言語の基本的なデータ構造となります。

LISPプログラム言語についての詳細は、ここでは詳しく解説しませんが... リストの１番目の値（Ｘ座標）、２番目の値（Ｙ座標）を取り出すには次のようにします。

X座標＞ (car p1)
Y座標＞ (cadr p1)
Z座標＞ (caddr p1)

また、ｎ番目の値を取り出すのに、(nth) 関数が使えます。

X座標＞ (nth 0 p1)
Y座標＞ (nth 1 p1)
Z座標＞ (nth 2 p1)

点p1のX座標を、変数 p1x へ代入する...

:(setq p1x (car p1))
341.293

:!p1x
341.293

今回の課題では、「頂点 P0 は、P2のX座標, P1のY座標とすることにします＞ P0= (P2x, P1y)」そこで、新たに座標点 p0（リスト変数）を作成する必要があるのですが、リスト変数の作成は、(list) 関数を使います。

(list 1 2 3 4 5) → (1 2 3 4 5)

最後に完成したプログラムを紹介します。

(defun c:3KAKU()
　　(setq p1 (getpoint "\n1点目:"))
　　(setq p2 (getcorner p1 "\n2点目:"))
　　(setq
　　　p2x (car p2)
　　　p1y (cadr p1)
　　)
　　(setq p0 (list p2x p1y))
　　(command "_line" p1 p0 p2 "c")
　　(princ)
)

このような図形が必要となる人がいるかどうか？このプログラムそのものは、実用的ではないように思いますが、このサンプルは、いろいろと応用が利くと思います。

これまでの説明とサンプルプログラムを見ても、LISPで何ができるんだろ？とイメージできなかったように思いますが、これを実際に動かしてみると、少し勘の良い人であれば、「いろいろな事ができるかも？」と、可能性を感じていただけるのではないかと思います。

LISP入門第32回: 座標点を取得する(2)

Thu, 18 Sep 2008 08:18:00 +0900

座標の取得には、(getpoint)の特殊バージョンともいえる、(getcorner)という関数があります。これは丁度、四角形(RECTANGLE)コマンドの2点目(対角コーナー)を指示するような時に使います。

(getpoint)に座標引数を与えて使った場合、仮想線が「斜線」で表現されるのに対し、(getcorner)は仮想線が「矩形」で表現されます。

① (getcorner point [prompt])

(getcorner)は、基準点が無い事には矩形が書けないので引数の座標は省略できないようになっています。

１点目(getpoint)、２点目(getcorner) 対角頂点座標を取得して、四角形(4KAKU)コマンドを作成してみます。

(defun c:4KAKU()
　　(setq p1 (getpoint "\n1点目:"))
　　(setq p2 (getcorner p1 "\n2点目:"))
　　(command "RECTANGLE" p1 p2)
　　(princ)
)

このコマンド（4KAKU）は、IntelliCADによって標準で提供される四角形（RECTANGLE）コマンドと同じなので、まるで意味はありませんが、ここでは、(getcorner)の使い方を紹介するサンプルとして紹介いたしました。

少し脱線...

上記のプログラムで、変数：p1の座標がいらない場合は、次のように「入れ子」にする事ができます。

(setq p2 (getcorner (getpoint "\n始点:") "\n2点目:"))

これは複数行にして...

(setq
　p2 (getcorner (getpoint "\n始点:") "\n2点目:")
)

とも書けます。「入れ子」が深くなると、括弧の数を間違えやすいので、このように適宜、複数行に書いた方が分かりやすいでしょう。

また、応用例として...

(setq
　p2 (getpoint (setq p1(getpoint "\n始点:")) "\n終点")
)

とすることもできます。値を代入するだけのように思われる(setq)関数でも、しっかり値を返しています。

LISP入門第31回: 座標点を取得する(1)

Wed, 17 Sep 2008 09:35:50 +0900

座標を取得する

既に何度か出てきていますが、画面上でマウスを指示した座標が欲しい時には(getpoint)を使います。この関数は、対話的なコマンドを作る場合には必ず使うといっても良いでしょう。

(getpoint)の文法も、前回（第30回: 距離の入力）上で説明した(getdist)と同じです。次のような使い方が出来ます。

① (getdist prompt)
② (getdist point prompt)

※入力メッセージ(prompt)を省略するタイプは割愛..

①は1点目の入力、②は2点目の入力に使われます。②のタイプは、引数に指定した座標(point)から、斜線の仮想線が表示される所が特徴です。

本講座で、初めて作成したコマンド＞単線コマンド

参照＞「第15回: 単線コマンドを作る」

(defun c:LINE1()
　　(command "LINE" pause pause "")
　　(princ)
)
(princ)

これを、座標取得関数 (getpoint)を使って書き直してみます。

これを(getpoint)で書き換えると次のようになります。

(defun c:LINE1()
　　(setq p1 (getpoint "\n始点:"))
　　(setq p2 (getpoint p1 "\n終点:"))
　　(command "LINE" p1 p2 "")
　　(princ)
)
(princ)

始点(p1)と終点(p2)の取得に使っている(getpoint)の引数の違いに注目して下さい。始点として取得した座標(p1)を、直ちに終点を取得するための(getpoint)に使用している所がポイントで、このような使い方をすると、p2点を入力する際、p1点からラバーバンドが表示されます。

実際にIntelliCADで試してみると良く分かります。

Geeklog Site

FC2 ブログ

サーバー移転

LISP入門 第37回: 条件式

LISP入門 第36回: 条件によって分岐する

AutoCAD LTの座標取得(getpoint)

LISP入門 第35回: 入力待ち (command pause)

LISP入門 第34回: 文字列

LISP入門 第33回: 座標点＞X,Y,Z座標を取得

LISP入門 第32回: 座標点を取得する(2)

LISP入門 第31回: 座標点を取得する(1)