Vle-vlaobjectp

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vle-vlaobjectp obj)


機能
obj が VLAオブジェクトかどうかを調べる
(= (type obj) 'VLA-OBJECT) と同様。


引数
  • obj : 値


戻り値
T= 'obj' は VLA-オブジェクト、nil = 'obj' は VLA-オブジェクトではない


サンプル

<syntaxhighlight lang="lisp" line> (vle-vlaobjectp 123) nil

(vle-vlaobjectp 123.0) nil

(vle-vlaobjectp T) nil

(vle-vlaobjectp "ENAME") nil


(defun test_vlaobjectp ()

 (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
 (if (vle-vlaobjectp myarc) (princ "VLAだす") (princ "VLAじゃないだす"))
 (princ)

)

</syntaxhighlight>



関連事項