「Type」の版間の差分

2021年5月29日 (土) 11:03時点における最新版

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

構文: (type item)

機能: 指定された項目のタイプを返す。

引数

item : シンボル。

戻り値: item 引数のデータタイプ。 nil と評価される項目 (値が代入されていないシンボルなど)については、nil が返される。; データタイプは、次の表に示すアトムのいずれかとして返される。

type 関数が返すデータタイプ
データタイプ	説明
ENAME	図形名
EXSUBR	外部 SDS アプリケーション
FILE	ファイルディスクリプタ
INT	整数
LIST	リスト
PAGETB	関数ページングテーブル
PICKSET	選択セット
REAL	浮動小数点数
SAFEARRAY	セーフ配列
STR	文字列
SUBR	内部 AutoLISP 関数またはコンパイル済み (FAS または VLX)ファイルからロードされた関数。コマンドプロンプトからロードされた LISP ソースファイル内の関数が SUBR として現れることもある。
SYM	シンボル
VARIANT	バリアント
USUBR	LISP ソースファイルからロードされたユーザ定義関数
VLA-object	ActiveX オブジェクト

サンプル

; たとえば、次のように割り当てた場合。
(setq a 123 r 3.45 s "Hello!" x '(a b c)) 
(setq f (open "name" "r")) 
(setq v (vlax-make-variant 2))


; 次のようになる。
(type 'a) 結果 SYM 
(type a)  結果 INT 
(type f)  結果 FILE 
(type r)  結果 REAL 
(type s)  結果 STR 
(type x)  結果 LIST 
(type v)  結果 VARIANT 
(type +)  結果 SUBR 
(type nil) 結果 nil

---

次のコードは、type 関数に引数を渡しての使用例。

(defun isint (a) 
   (if (= (type a) 'INT) ;TYPE は整数ですか? 
     T ; はい, 結果は T  
     nil ; いいえ, 結果は nil  
   ) 
 )

@@ 42行目: / 42行目: @@
 |-
 | SYM  || シンボル
+|-
+| VARIANT || バリアント
+|-
+| USUBR || LISP ソース ファイルからロードされたユーザ定義関数
+|-
+| VLA-object || ActiveX オブジェクト
 |}
 ; サンプル
-: たとえば、次のように割り当てた場合。
+<pre class="brush:autolisp;">
-:: (setq a 123 r 3.45 s "Hello!" x '(a b c))
+; たとえば、次のように割り当てた場合。
-:: (setq f (open "name" "r"))
+(setq a 123 r 3.45 s "Hello!" x '(a b c))
-:
+(setq f (open "name" "r"))
-: 次のようになる。
+(setq v (vlax-make-variant 2))
-:: (type 'a) 結果 SYM
-:: (type a)  結果 INT
-:: (type f)  結果 FILE
+; 次のようになる。
-:: (type r)  結果 REAL
+(type 'a) 結果 SYM
-:: (type s)  結果 STR
+(type a)  結果 INT
-:: (type x)  結果 LIST
+(type f)  結果 FILE
-:: (type +)  結果 SUBR
+(type r)  結果 REAL
-:: (type nil) 結果 nil
+(type s)  結果 STR
+(type x)  結果 LIST
+(type v)  結果 VARIANT
+(type +)  結果 SUBR
+(type nil) 結果 nil
+</pre>
 : ---
 : 次のコードは、type 関数に引数を渡しての使用例。
- <pre class="brush:autolisp;">
+<pre class="brush:autolisp;">
 (defun isint (a)
-    (if (= (type a) 'INT) TYPE は整数ですか?
+    (if (= (type a) 'INT) ;TYPE は整数ですか?
-      T はい, 結果は T
+      T ; はい, 結果は T
-      nil いいえ, 結果は nil
+      nil ; いいえ, 結果は nil
     )
   )