vlisp 下的ActiveX函数

1. 初始化Autolisp的Active环境，（vl-load-com)函数

2.获取A utoCAD应用程序，（vlax-get-acad-object)函数
(setq  myacad(vlax-get-acad-object)) 该函数没有参数，

3. 了解AutoCAD应用程序的属性  (vlax-dump-object myacad)
（vlax-dump-object  VLA对象   {T])函数

4. 获取活动文档对象(setq mydoc(vla-get-ActiveDocument acad))

5. 了解活动文档的属性(vlax-dump-object mydoc)

6. 获取模型空间对象(setq myms(vla-get-ModelSpace mydoc))

7.了解活动文档的属性和方法(vlax-dump-object myms t)

8.获取模型空间的第一个图形对象(setq myline(vla-item myms 0)) 

9.创建变体用vlax-make-variant函数
    (setq varnil(vlax-make-variant));返回#<variant 0>，
   (setq varint (vlax-make-variant 50 vlax-vbInteger));返回#<variant 2 50>，
   (setq varlng(vlax-make-variant 5));返回#<variant 3 5>，
   (setq varstr(vlax-make-variant "tsinghua"));返回#<variant 8 tsinghua

10.了解变体的数据类型vlax-variant-type函数

      (vlax-variant-type varnil) ；返回nil

     (vlax-variant-type varint) ；返回2即vlax-vbInteger

11.了解变体的值用vlax-variant-value函数，调用的格式如下：

    (vlax-variant-value varnil) ；返回nil

   (vlax-variant-value varint) ；返回50

  (vlax-variant-value varstr) ；返回"tsinghua"

12.改变变体的数据类型用vlax-variant-change-type函数

   (setq varint (vlax-make-variant 5)) ;返回#<variant 3 5>

   (setq varintStr (vlax-variant-change-type varint vlax-vbstring)) ;返回#<variant 8 5>

13.创建安全数组用vlax-make-safearray函数，

   (vlax-make-safearray 类型 '(下限 . 上限) [ '(下限 . 上限)...])

   (setq p1 (vlax-make-safearray vlax-vbDouble '(0 . 2))) ；返回#<safearray...>，

   (setq mt2(vlax-make-safearray vlax-vbString '(0 . 1) '(1 . 3)))；返回#<safearray...>，

14.为整个安全数组赋值用vlax-safearray-fill函数

     (vlax-safearray-fill 变量  '数值表)

   (vlax-safearray-fill p1 '(1 2 3));返回#<safearray...>

   (vlax-safearray-fill mt2 '(("a" "b" "c") ("d" "e" "f"))) ;返回#<safearray...>