「AutoLISP」の版間の差分

2013年3月10日 (日) 09:16時点における版

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

概要

AutoLisp は、AutoCAD や IJCAD など一部のAutoCAD互換ソフトで利用できるインタープリタ型プログラミング言語。 AutoCAD や IJCAD でコマンドやシステム変数、ダイアログボックス（DCL）を呼び出すことができる。 AutoCAD LT においては利用できない。(AutoCAD LT で AutoLisp の機能を利用可能にするソフトウェアも存在したが、LT2002 以降のバージョンに対応したものはなくなっている。)

IJCAD における AutoLisp は、AutoCAD の互換機能として存在し、一部の関数や外部定義関数を除けば、ほぼ同様に利用することが出来る。（利用可能な関数などの情報については、AutoLisp関数互換表を参照。）

一番長くサポートされている API (バージョン履歴とサポートAPI参照) であり、他に利用可能なAPIに比べCADのバージョンアップに伴う影響を受けにくい API といえる。開発環境として AutoCAD には、Visual LISP という対話型の開発環境(IDE)が搭載されているが、IJCAD では特定の開発環境はないため、一般的なテキストエディタによる開発となる。 LISP に最適なエディタとしては括弧の補完機能や字下げ機能があると便利で、以下のようなものがある。

Notepad ++
xyzzy や emacs など

以下は、市販エディタ。

ちなみに、AutoLISP は XLISP1.0 からの派生と言われている。>> バージョン履歴とサポートAPI
AutoCAD の 2.18 より搭載された。
VisualLISP は、Basis Software, Inc. の Vital LISP を買収したものがベースになっている(らしい)。

AutoLisp 関数の構文

AutoLisp の構文は非常にシンプルである。以下に例を示す。

解説
上の例では、foo 関数には 1 つの必須引数 string と、1 つの省略可能な引数 number があり、引数 number は追加で指定することができる。一般に、引数の名前は予期されるデータタイプを表している。この foo 関数で有効な呼び出しと無効な呼び出しの例をを示す。

有効な呼び出し例
- (foo "catch")
- (foo "catch" 22)
- (foo "catch" 22 31)

無効な呼び出し例
- (foo 44 13) ; <- 引数 string が無い
- (foo "fi" "foe" 44 13) ; <-引数 number に文字が指定されている
- (foo) ; <- 引数が無い。

無効な呼び出しを行うとエラーになり、処理が中断される。

AutoLISP のデータタイプ

AutoLISP には以下のデータタイプがある。AutoLISPをフル活用するには、データタイプの使い方を理解する事は必須と言っていい。

関数の機能別一覧

以下は関数を分類分けしたもの。他に、目次からのアクセスも便利です。

基本関数:
ユーティリティ関数:
選択セット
- オブジェクト
- シンボルテーブル関数:
- 拡張データ処理
- オブジェクト処理
- 選択セット操作
- シンボルテーブル処理の各関数
メモリ管理関数
ダイアログボックス関数
ai_関数
Visual LISP の拡張関数：（ActiveX）

AutoLISP プログラムの作成

AutoLISP のプログラムは、以下の 3つのファイル形式のうちのいずれかで作成する。

LSP ファイル(.lsp) ･･･ AutoLISP プログラムコードが記述された ASCII テキストファイル。
FAS ファイル(.fas) ･･･ 1 つの LSP プログラムファイルのコンパイル済みバイナリファイル。
VLX ファイル(.vlx) ･･･ 1 つ以上の LSP ファイルとダイアログコントロール言語(DCL)ファイルの両方または一方をコンパイルしたファイル。

IJCAD では、IJCAD2013 で FASファイルとVLXファイルに対応。
IJCAD 8 以前において、LISPプログラムを秘匿化したい場合は、AutoCAD に搭載されている、PROTECT.EXE か ebatch社（IntelliJAPANの前身）からでていた IJPROLSP.EXE を利用して暗号化する。

AutoCAD では、AutoCAD 2000 以降 Visual LISP (VLISP) 環境が備わりコンパイラ、デバッガ、などを備えた統合開発環境(IDE)を備えているため、その上で AutoLISP プログラムを記述していくことが出来る。

IJCAD では、IDEは備わっていないため、テキストエディタにより記述していく。

また、AutoCAD・IJCAD どちらの環境でも、短い構文は次のようにコマンドプロンプトに直接記述して実行することが出来る。

コマンド: (+ 1 2 3 4 5 )
15   <- 実行結果

AutoLISP プログラムの使用

AutoLISP のプログラム（.lsp のファイル）は、まずそのプログラムをCADへロードする必要がある。

ロードは、コマンドプロンプトに対して load 関数を使用して AutoLISP コードを入力する。 load 関数が正常に終了すると、ファイル内の最後の式の値がコマンドプロンプト領域に表示される。これは通常そのファイルで定義されている最後の関数の名前か、新しくロードされた関数の使用説明となる。

load 関数が失敗すると、AutoLISP のエラーメッセージが表示される。 load 関数の失敗は、AutoLISPファイルのコーディング間違いや、コマンドプロンプトに対して間違ったファイル名を入力した場合に起こる。

load 関数の構文は、次のとおり。

(load filename [onfailure])

この構文は、load 関数に 2 つの引数があることを示している。 1つ目の filename は、読み込むAutoLISPファイル名（とパス）で必須。 2つ目の onfailure は省略可能で、失敗した場合のメッセージを入力する。コマンドラインからの入力で AutoLISP ファイルをロードする場合は通常、filename 引数のみを指定する。

次の例は、AutoLisp ファイル newfile.lsp をロードしている。

コマンド: (load "newfile")

拡張子 .lsp は省略可能。この形式は、現在のライブラリパス上のどの LSP ファイルに対しても動作する。

ライブラリパス上にない AutoLisp ファイルをロードする場合は、filename 引数として、ファイル名を絶対パスで指定する必要がある。

コマンド: (load "d:/files/morelisp/newfile")
または
コマンド: (load "d:\\files\\morelisp\\newfile")

注 : フォルダパスを指定する場合、スラッシュ(/)または 2つの円記号(¥¥)を区切り記号として使用する必要がある。通常Windowsで利用される単一の円記号(¥)での指定は、2つの円記号(¥¥)となる。これは、AutoLisp では単一の円記号(¥)には特別な意味があるため。

尚、AutoCADとIJCAD共に LISPファイルを CAD のウィンドウにドラッグ＆ドロップしても読み込まれる。

自動ロード

AutoCAD では、パスの通っているフォルダにある acad.lsp があると起動時に読み込み・実行される。また、acaddoc.lsp ファイルがあるとファイルを開始するたびに読み込み・実行される。
システム変数：ACADLSPASDOC を1にすると、図面が開かれるたびに acad.lsp をロードする。
システム変数：LISPINIT を1にすると、図面が開かれるたび、作成されるたびに LISP環境が初期化される。（SDIモード時に変数値を引き継ぎたいなら0にする）
IJCAD では、パスの通っているフォルダにある icad.lsp があると、ファイルを開始するたびに読み込み・実行される。

自動ロードファイルはファイルの初期化前に実行されるため、command 関数は使ってはいけない。 AutoCAD の場合は、S::STARTUP 関数に記述する事になっている。

IJCAD で自動ロードする場合の注意点

IJCAD 2013
- icad.lsp のみの対応。
- 図面毎に名前空間が分かれていないため、自動ロードで何か初期化を行う処理がある場合、別の図面を開いたときにすでに開いている変数値などが上書きされてしまう可能性があるため、特に複数のファイルにまたがる処理をする場合は注意が必要である。

IJCAD 8
- icaddoc.lsp が有効になったので、ドキュメント毎に読み込みたい処理は icad.lsp ではなく icaddoc.lsp に記述しておくと良い。（2012.04 のアップデートから）
- ACADLSPASDOC が有効になったので、初期値では icad.lsp を起動時にしか読み込まない。icaddoc.lsp ＋icad.lsp の両方を読み込みたければ ACADLSPASDOC=1 にしておくと良い。(読み込まれる順番は icad.lsp -> icaddoc.lsp)
- 名前空間が一応分かれてるので変数はドキュメント毎。 LISPINIT が有効なので、変数を共有したい場合は LISPINIT=2、開いたファイルにアクティブドキュメントの変数をコピーして使うなら 0 に切り替えておく。
IJCAD 7
- 図面毎に名前空間が分かれているような動きだが完全じゃないので、ファイルの close などで変数が上書きされた状態になったりする可能性がある。複数のファイルにまたがる処理をする場合は注意が必要。
IJCAD 6
- 図面毎に名前空間が分かれていないため、自動ロードで何か初期化を行う処理がある場合、別の図面を開いたときにすでに開いている変数値などが上書きされてしまう可能性があるため、特に複数のファイルにまたがる処理をする場合は注意が必要である。

AutoLISP が使えるCADソフト

製品名	LSP対応	DCL対応	FAS/VLX対応
Ares CAD（≒ Draftsight） *1	-	-	-
Ares CAD COMed（≒ Draftsight有料版） *1	○	△	-
AutoCAD	○	○	○
AutoCAD LT	-	-	-
BricsCAD	○	○	-
IJCAD	○	○	○(IJCAD2013)
IntelliCAD系CAD	○	△*2	-

*1…ファイル名8文字＋拡張子だけ。パス指定フルパスのみ。
*2…日本語の扱いが良くないものが多い。

32bit と 64bit

近年の AutoCAD は 32bit版と64bit版があるが、AutoLISPではその差は特になく気にしなくてもいい。
IJCAD は 64bit版はないが特に気にしなくていい。（2013.01現在）
ARX や .NET など他の言語のカスタマイズを読み込むときにAutoLISPを使ったりする。（以下サンプル）

 ; AutoCAD が 64bit版かどうか
(defun Acadx64ver ()
  (vl-load-com)
  (> (strlen (vl-prin1-to-string (vlax-get-acad-object))) 40)
)

; OS(CPU) が64bitかどうか 64bitだったら 数値、それ以外は nil 
(defun Acadx64-platform ()
  (vl-load-com)
  (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
)

特殊フォーム

特殊フォームは一般的な AutoLISP 関数呼び出しとは異なる方法で引数を評価する。一般的な関数は、関数に渡されたすべての引数を評価してからそれらの引数に基づいて実行するが、特殊フォームは、すべての引数を評価しないか、または特定の条件の下でのみいくつかの引数を評価する。

以下は特殊フォームとみなされる AutoLISP 関数。

AutoLisp のエラーコード

AutoLISP で生成されるエラーコードの値と意味は次のとおり。AutoLISP の関数呼び出しによって発生したエラーを CAD が検出すると、システム変数 ERRNO に次の値のいずれかが設定される。

(getvar "errno") を使用すると、AutoLISP のアプリケーションで現在の ERRNO の値を検査できる。

システム変数 ERRNO は、ゼロにクリアされない場合があるため、AutoLISP の関数がエラーをレポートした直後に検査しないと、その値が示すエラーは誤っている可能性がある。この変数は、図面を新規作成したり図面を開いたときに、必ずクリアされる。

注:ERRNO の値とその意味は、将来変更される可能性があります。

値 … 意味
0 … エラーはありません
1 … 無効なシンボルテーブル名です
2 … 無効な図形名または選択セット名です
3 … 選択セットの最大数を超えました
4 … 無効な選択セットです
5 … ブロック定義が不正に使用されました
6 … xref が不正に使用されました
7 … オブジェクトを選択: クリックが失敗しました
8 … 図形ファイルの終わりです
9 … ブロック定義ファイルの終わりです
10 … 最後の図形が見つかりません
11 … ビューポートオブジェクトを不正に削除しようとしました
12 … PLINE[ポリライン]中は操作できません
13 … 無効なハンドルです
14 … ハンドルが使用可能になっていません
15 … 座標変換要求に無効な引数があります
16 … 座標変換要求に無効な空間があります
17 … 削除した図形が不正に使用されました
18 … 無効なテーブル名です
19 … 無効なテーブル関数の引数です
20 … 読み込み専用の変数に代入しようとしました
21 … ゼロ値は許されていません
22 … 値が範囲外です
23 … 複雑な REGEN の処理中です
24 … 図形タイプを変更しようとしました
25 … 不正な画層名です
26 … 不正な線種名です
27 … 不正な色名です
28 … 不正な文字スタイル名です
29 … 不正なシェイプ名です
30 … 図形タイプのフィールドが不正です
31 … 削除した図形を変更しようとしました
32 … Seqend 従属図形を変更しようとしました
33 … ハンドルを変更しようとしました
34 … ビューポートの可視性を変更しようとしました
35 … 図形はロックされている画層にあります
36 … 不正な図形タイプです
37 … 不正なポリライン図形です
38 … ブロック内の複合化図形が不完全です
39 … 無効なブロック名フィールドです
40 … ブロックフラグフィールドが重複しています
41 … ブロック名フィールドが重複しています
42 … 不正な法線ベクトルです
43 … ブロック名がありません
44 … ブロックフラグがありません
45 … 名前のないブロックが無効です
46 … ブロック定義が無効です
47 … 必須フィールドがありません
48 … 拡張データ(XDATA)のタイプが認識できません
49 … XDATA 内のリストのネストが正しくありません
50 … APPID フィールドの位置が正しくありません
51 … XDATA の最大サイズを超えました
52 … オブジェクトを選択: null 応答です
53 … APPID が重複しています
54 … ビューポート図形を作成または変更しようとしました
55 … xref、xdef、xdep を作成または変更しようとしました
56 … ssget フィルタ: リストが途中で終わっています
57 … ssget フィルタ: テストオペランドがありません
58 … ssget フィルタ: opcode(-4)文字列が無効です
59 … ssget フィルタ: ネストが正しくないか条件条項が空です
60 … ssget フィルタ: 条件条項の始まりと終わりが一致していません
61 … ssget フィルタ: 条件条項における引数の数が誤っています(NOT または XOR)
62 … ssget フィルタ: ネストの最大数を超えました
63 … ssget フィルタ: グループコードが無効です
64 … ssget フィルタ: 文字列テストが無効です
65 … ssget フィルタ: ベクトルテストが無効です
66 … ssget フィルタ: 実数テストが無効です
67 … ssget フィルタ: 整数テストが無効です
68 … ディジタイザがタブレットモードではありません
69 … タブレットが位置合わせされていません
70 … タブレット引数が無効です
71 … ADS エラー: 新規のリザルトバッファを割り当てられません
72 … ADS エラー: null ポインタを検出しました
73 … 実行ファイルを開けません
74 … アプリケーションは既にロードされています
75 … 最大数のアプリケーションが既にロードされています
76 … アプリケーションを実行できません
77 … 互換性のないバージョン番号です
78 … ネストしたアプリケーションをロード解除できません
79 … アプリケーションがロード解除を拒否しました
80 … アプリケーションが現在ロードされていません
81 … メモリが不足しているのでアプリケーションをロードできません
82 … ADS エラー: 変換マトリックスが無効です
83 … ADS エラー: シンボル名が無効です
84 … ADS エラー: シンボル値が無効です
85 … ダイアログボックスの表示中は AutoLISP/ADS を操作できません

@@ 225行目: / 225行目: @@
 以下は特殊フォームとみなされる AutoLISP 関数。
 <div class="mcol3">
-* and
+* [[and]]
-* command
+* [[command]]
-* cond
+* [[cond]]
-* defun
+* [[defun]]
-* defun-q
+* [[defun-q]]
-* foreach
+* [[foreach]]
-* function
+* [[function]]
-* if
+* [[if]]
-* lambda
+* [[lambda]]
-* or
+* [[or]]
-* progn
+* [[progn]]
-* quote
+* [[quote]]
-* repeat
+* [[repeat]]
-* setq
+* [[setq]]
-* trace
+* [[trace]]
-* untrace
+* [[untrace]]
-* vlax-for
+* [[vlax-for]]
-* while
+* [[while]]
 </div>
 == AutoLisp のエラーコード ==