[风之影][基础]VisualLISP函数大全——每天整理一点

cabinsummer

基本函数
应用程序处理函数

1. (arx)                                                         ;;;返回当前加载的ObjectARX应用程序列表
   
2. (arxload application [onfailure])                             ;;;加载ObjectARX应用程序
   
3. (arxunload application [onfailure])                           ;;;卸载ObjectARX应用程序
   
4. (autoarxload filename cmdlist)                                ;;;预定义加载关联ObjectARX文件的命令名
   
5. (autoload filename cmdlist)                                   ;;;预定义加载关联AutoLISP文件的命令名
   
6. (initdia [dialogflag])                                        ;;;强制显示下一个命令对话框
   
7. (load filename [onfailure])                                   ;;;计算文件中的AutoLISP表达式
   
8. (startapp appcmd file)                                        ;;;启动Windows应用程序
   
9. (vl-vbaload "filename")                                       ;;;加载Visual Basic工程
   
10. (vl-vbarun "macroname")                                       ;;;运行Visual Basic宏
    
11. (vlax-add-cmd "global-name" unc-sym ["local-name" cmd-flags]) ;;;向AutoCAD的内置命令集中添加命令

(arx)                                                         ;;;返回当前加载的ObjectARX应用程序列表<br /> (arxload application [onfailure])                             ;;;加载ObjectARX应用程序<br /> (arxunload application [onfailure])                           ;;;卸载ObjectARX应用程序<br /> (autoarxload filename cmdlist)                                ;;;预定义加载关联ObjectARX文件的命令名<br /> (autoload filename cmdlist)                                   ;;;预定义加载关联AutoLISP文件的命令名<br /> (initdia [dialogflag])                                        ;;;强制显示下一个命令对话框<br /> (load filename [onfailure])                                   ;;;计算文件中的AutoLISP表达式<br /> (startapp appcmd file)                                        ;;;启动Windows应用程序<br /> (vl-vbaload "filename")                                       ;;;加载Visual Basic工程<br /> (vl-vbarun "macroname")                                       ;;;运行Visual Basic宏<br /> (vlax-add-cmd "global-name" unc-sym ["local-name" cmd-flags]) ;;;向<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>的内置命令集中添加命令

数学函数

1. (+ [number number]...)    ;;;返回所有数值的总和
   
2. (- [number number]...)    ;;;从第一个数值中减去第二个和后面的数值，返回差值
   
3. (* [number number]...)    ;;;返回所有数值的乘积
   
4. (/ [number number]...)    ;;;用第一个数值除以后面其他数值的乘积，返回商值
   
5. (~ int)                   ;;;返回参数的按位非(即1的补码)
   
6. (1+ number)               ;;;返回参数增1的结果
   
7. (1- number)               ;;;返回参数减1的结果
   
8. (abs number)              ;;;返回参数的绝对值
   
9. (atan num1 [num2])        ;;;返回一个数的反正切值(以弧度为单位)
   
10. (cos ang)                 ;;;返回一个以弧度表示的角度的余弦值
    
11. (exp number)              ;;;返回常数e的指定次幂
    
12. (expt base power)         ;;;返回一个数的指定次幂
    
13. (fix number)              ;;;截去实数的小数部分，将它转换成整数后返回该整数
    
14. (float number)            ;;;将一个数转换成实数后返回该实数
    
15. (gcd int1 int2)           ;;;返回两个整数的最大公约数
    
16. (log number)              ;;;以实数形式返回一个数的自然对数
    
17. (logand [int int...])     ;;;返回一组整数逻辑按位与的结果
    
18. (logior [int int...])     ;;;返回一组整数逻辑按位或的结果
    
19. (lsh [int numbits])       ;;;返回一个整数进行指定位逻辑移位后的结果
    
20. (max [number number...])  ;;;返回给定的数中的最大值
    
21. (min [number number...])  ;;;返回给定的数中的最小值
    
22. (minusp number)           ;;;检查一个数是否为负数
    
23. (rem [num1 num2...])      ;;;用第一个数除以第二个数，返回余数
    
24. (sin ang)                 ;;;以实数形式返回一个以弧度表示的角度的正弦值
    
25. (sqrt number)             ;;;以实数形式返回一个数的平方根
    
26. (zerop number)            ;;;检查一个数是否为0

(+ [number number]...)    ;;;返回所有数值的总和<br /> (- [number number]...)    ;;;从第一个数值中减去第二个和后面的数值，返回差值<br /> (* [number number]...)    ;;;返回所有数值的乘积<br /> (/ [number number]...)    ;;;用第一个数值除以后面其他数值的乘积，返回商值<br /> (~ int)                   ;;;返回参数的按位非(即1的补码)<br /> (1+ number)               ;;;返回参数增1的结果<br /> (1- number)               ;;;返回参数减1的结果<br /> (abs number)              ;;;返回参数的绝对值<br /> (atan num1 [num2])        ;;;返回一个数的反正切值(以弧度为单位)<br /> (cos ang)                 ;;;返回一个以弧度表示的角度的余弦值<br /> (exp number)              ;;;返回常数e的指定次幂<br /> (expt base power)         ;;;返回一个数的指定次幂<br /> (fix number)              ;;;截去实数的小数部分，将它转换成整数后返回该整数<br /> (float number)            ;;;将一个数转换成实数后返回该实数<br /> (gcd int1 int2)           ;;;返回两个整数的最大公约数<br /> (log number)              ;;;以实数形式返回一个数的自然对数<br /> (logand [int int...])     ;;;返回一组整数逻辑按位与的结果<br /> (logior [int int...])     ;;;返回一组整数逻辑按位或的结果<br /> (lsh [int numbits])       ;;;返回一个整数进行指定位逻辑移位后的结果<br /> (max [number number...])  ;;;返回给定的数中的最大值<br /> (min [number number...])  ;;;返回给定的数中的最小值<br /> (minusp number)           ;;;检查一个数是否为负数<br /> (rem [num1 num2...])      ;;;用第一个数除以第二个数，返回余数<br /> (sin ang)                 ;;;以实数形式返回一个以弧度表示的角度的正弦值<br /> (sqrt number)             ;;;以实数形式返回一个数的平方根<br /> (zerop number)            ;;;检查一个数是否为0

等量和条件函数

1. (= numstr [numstr]...)             ;;;如果所有参数的数值相等则返回T，否则返回nil
   
2. (/= numstr [numstr]...)            ;;;如果所有参数的数值不相等则返回T，否则返回nil
   
3. (< numstr [numstr]...)             ;;;如果所有参数的数值都小于它右边的参数则返回T，否则返回nil
   
4. (<= numstr [numstr]...)            ;;;如果所有参数的数值都小于或等于它右边的参数则返回T，否则返回nil
   
5. (> numstr [numstr]...)             ;;;如果所有参数的数值都大于它右边的参数则返回T，否则返回nil
   
6. (>= numstr [numstr]...)            ;;;如果所有参数的数值都大于或等于它右边的参数则返回T，否则返回nil
   
7. (and [expr...])                    ;;;返回一组表达式的逻辑与
   
8. (Boole func int1 [int2...])        ;;;用作一个通用的按位布尔函数
   
9. (cond [(test result...)...])       ;;;用作AutoLISP的主条件函数
   
10. (eq expr1 expr2)                   ;;;判断两个表达式是否相同
    
11. (equal expr1 expr2 [fuzz])         ;;;判断两个表达式的值是否相等
    
12. (if testexpr thenexpr [elseexpr])  ;;;根据条件计算表达式
    
13. (or [expr...])                     ;;;返回一组表达式的逻辑或
    
14. (repeat int [expr...])             ;;;计算每个表达式指定的次数，返回最后一个表达式的值
    
15. (while testexpr [expr...])         ;;;计算测试表达式，如果结果不是nil，则计算其它表达式，重复这个计算过程，直到测试表达式的结果为nil

(= numstr [numstr]...)             ;;;如果所有参数的数值相等则返回T，否则返回nil<br /> (/= numstr [numstr]...)            ;;;如果所有参数的数值不相等则返回T，否则返回nil<br /> (< numstr [numstr]...)             ;;;如果所有参数的数值都小于它右边的参数则返回T，否则返回nil<br /> (<= numstr [numstr]...)            ;;;如果所有参数的数值都小于或等于它右边的参数则返回T，否则返回nil<br /> (> numstr [numstr]...)             ;;;如果所有参数的数值都大于它右边的参数则返回T，否则返回nil<br /> (>= numstr [numstr]...)            ;;;如果所有参数的数值都大于或等于它右边的参数则返回T，否则返回nil<br /> (and [expr...])                    ;;;返回一组表达式的逻辑与<br /> (Boole func int1 [int2...])        ;;;用作一个通用的按位布尔函数<br /> (cond [(test result...)...])       ;;;用作AutoLISP的主条件函数<br /> (eq expr1 expr2)                   ;;;判断两个表达式是否相同<br /> (equal expr1 expr2 [fuzz])         ;;;判断两个表达式的值是否相等<br /> (if testexpr thenexpr [elseexpr])  ;;;根据条件计算表达式<br /> (or [expr...])                     ;;;返回一组表达式的逻辑或<br /> (repeat int [expr...])             ;;;计算每个表达式指定的次数，返回最后一个表达式的值<br /> (while testexpr [expr...])         ;;;计算测试表达式，如果结果不是nil，则计算其它表达式，重复这个计算过程，直到测试表达式的结果为nil

错误处理函数

1. (alert string)                          ;;;显示警告框，其中显示错误或警告信息，该信息以字符串形式传递
   
2. (*error* string)                        ;;;用户可定义的错误处理函数
   
3. (exit)                                  ;;;强制退出当前应用程序
   
4. (quit)                                  ;;;强制退出当前应用程序
   
5. (vl-catch-all-apply 'function list)     ;;;将参数列表传递给指定的函数，并捕获异常
   
6. (vl-catch-all-error-message error-obj)  ;;;从错误对象中返回信息
   
7. (vl-catch-all-error-p arg)              ;;;判断vl-catch-all-apply返回的参数是否是错误对象

(alert string)                          ;;;显示警告框，其中显示错误或警告信息，该信息以字符串形式传递<br /> (*error* string)                        ;;;用户可定义的错误处理函数<br /> (exit)                                  ;;;强制退出当前应用程序<br /> (quit)                                  ;;;强制退出当前应用程序<br /> (vl-catch-all-apply 'function list)     ;;;将参数列表传递给指定的函数，并捕获异常<br /> (vl-catch-all-error-message error-obj)  ;;;从错误对象中返回信息<br /> (vl-catch-all-error-p arg)              ;;;判断vl-catch-all-apply返回的参数是否是错误对象

函数处理函数

1. (apply function lst)                                 ;;;将参数表传递给指定的函数
   
2. (defun sym ([arguments] [/variables...]) expr...)    ;;;定义一个函数
   
3. (defun-q sym ([arguments] [/variables...]) expr...)  ;;;将函数定义为表
   
4. (defun-q-list-ref 'function)                         ;;;显示用defun-q定义的函数的表结构
   
5. (defun-q-list-set 'sym list)                         ;;;将函数定义为表
   
6. (eval expr)                                          ;;;返回AutoLISP表达式的计算结果
   
7. (lambda arguments expr...)                           ;;;定义无名函数
   
8. (progn [expr]...)                                    ;;;按顺序计算每一个表达式，返回最后一个表达式的值
   
9. (trace function...)                                  ;;;调试AutoLISP程序时的辅助工具
   
10. (untrace function...)                                ;;;清楚指定函数的跟踪标志

(apply function lst)                                 ;;;将参数表传递给指定的函数<br /> (defun sym ([arguments] [/variables...]) expr...)    ;;;定义一个函数<br /> (defun-q sym ([arguments] [/variables...]) expr...)  ;;;将函数定义为表<br /> (defun-q-list-ref 'function)                         ;;;显示用defun-q定义的函数的表结构<br /> (defun-q-list-set 'sym list)                         ;;;将函数定义为表<br /> (eval expr)                                          ;;;返回AutoLISP表达式的计算结果<br /> (lambda arguments expr...)                           ;;;定义无名函数<br /> (progn [expr]...)                                    ;;;按顺序计算每一个表达式，返回最后一个表达式的值<br /> (trace function...)                                  ;;;调试AutoLISP程序时的辅助<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a><br /> (untrace function...)                                ;;;清楚指定函数的跟踪标志

表操作函数

1. (acad_strlsort lst)                                 ;;;按字母顺序对字符串进行排序
   
2. (append lst...)                                     ;;;将任意数目的表合成一个表
   
3. (assoc item alist)                                  ;;;从关联表中搜索一个表，如果找到则返回该关联表条目
   
4. (car lst)                                           ;;;返回表的第一个元素
   
5. (cdr lst)                                           ;;;返回指定的表，表的第一个元素除外
   
6. (cons new-first-element lst)                        ;;;基本的表构造函数
   
7. (foreach name lst [expr...])                        ;;;将表的所有成员带入表达式求值
   
8. (last lst)                                          ;;;返回表的最后一个元素
   
9. (length lst)                                        ;;;以整数形式返回表中元素的数目
   
10. (list [expr...])                                    ;;;将任意数目的表达式合成一个表
    
11. (listp item)                                        ;;;检查某个项目是否是表
    
12. (mapcar function list1... listn)                    ;;;将一个或多个表的各个元素作为函数的参数，返回该函数执行结果的表
    
13. (member expr lst)                                   ;;;在表中搜索指定的表达式，并从第一次出现该表达式的位置开始返回表的其余部分
    
14. (nth n lst)                                         ;;;返回表的第n个元素
    
15. (reverse lst)                                       ;;;颠倒表中元素的顺序，然后返回修改后的表
    
16. (subst newitem olditem lst)                         ;;;在表中搜索某个旧项目，并用一个新项目替换表中的所有旧项目，然后返回修改后的表的副本
    
17. (vl-consp list-variable)                            ;;;判断表是否为nil
    
18. (vl-every predicate-function list [more-lists]...)  ;;;检查每个元素合并的预测是否为真
    
19. (vl-list* object [more-objects]...)                 ;;;构造并返回表
    
20. (vl-list->string char-codes-list)                   ;;;将与整数表相关联的字符合并到字符串中
    
21. (vl-list-length list-or-cons-object)                ;;;计算真表的表长度
    
22. (vl-member-if predicate-function list)              ;;;判断表成员之一的预测是否为真
    
23. (vl-member-if-not predicate-function list)          ;;;判断表成员之一的预测是否为nil
    
24. (vl-position symbol list)                           ;;;返回指定的表项目的索引
    
25. (vl-remove element-to-remove list)                  ;;;从列表中删除元素
    
26. (vl-remove-if predicate-function list)              ;;;返回函数测试失败的表的所有元素
    
27. (vl-remove-if-not predicate-function list)          ;;;返回通过函数测试的表的所有元素
    
28. (vl-some predicate-function list [more-lists]...)   ;;;检查元素合并的预测是否为nil
    
29. (vl-sort list less?-function)                       ;;;根据给定的比较函数对表中的元素排序
    
30. (vl-sort-i list less?-function)                     ;;;根据给定的比较函数对表中的元素排序，返回元素索引号
    
31. (vl-string->list string)                            ;;;将字符串转换为字符代码表

(acad_strlsort lst)                                 ;;;按字母顺序对字符串进行排序<br /> (append lst...)                                     ;;;将任意数目的表合成一个表<br /> (assoc item alist)                                  ;;;从关联表中搜索一个表，如果找到则返回该关联表条目<br /> (car lst)                                           ;;;返回表的第一个元素<br /> (cdr lst)                                           ;;;返回指定的表，表的第一个元素除外<br /> (cons new-first-element lst)                        ;;;基本的表构造函数<br /> (foreach name lst [expr...])                        ;;;将表的所有成员带入表达式求值<br /> (last lst)                                          ;;;返回表的最后一个元素<br /> (length lst)                                        ;;;以整数形式返回表中元素的数目<br /> (list [expr...])                                    ;;;将任意数目的表达式合成一个表<br /> (listp item)                                        ;;;检查某个项目是否是表<br /> (mapcar function list1... listn)                    ;;;将一个或多个表的各个元素作为函数的参数，返回该函数执行结果的表<br /> (member expr lst)                                   ;;;在表中搜索指定的表达式，并从第一次出现该表达式的位置开始返回表的其余部分<br /> (nth n lst)                                         ;;;返回表的第n个元素<br /> (reverse lst)                                       ;;;颠倒表中元素的顺序，然后返回修改后的表<br /> (subst newitem olditem lst)                         ;;;在表中搜索某个旧项目，并用一个新项目替换表中的所有旧项目，然后返回修改后的表的副本<br /> (vl-consp list-variable)                            ;;;判断表是否为nil<br /> (vl-every predicate-function list [more-lists]...)  ;;;检查每个元素合并的预测是否为真<br /> (vl-list* object [more-objects]...)                 ;;;构造并返回表<br /> (vl-list->string char-codes-list)                   ;;;将与整数表相关联的字符合并到字符串中<br /> (vl-list-length list-or-cons-object)                ;;;计算真表的表长度<br /> (vl-member-if predicate-function list)              ;;;判断表成员之一的预测是否为真<br /> (vl-member-if-not predicate-function list)          ;;;判断表成员之一的预测是否为nil<br /> (vl-position symbol list)                           ;;;返回指定的表项目的索引<br /> (vl-remove element-to-remove list)                  ;;;从列表中删除元素<br /> (vl-remove-if predicate-function list)              ;;;返回函数测试失败的表的所有元素<br /> (vl-remove-if-not predicate-function list)          ;;;返回通过函数测试的表的所有元素<br /> (vl-some predicate-function list [more-lists]...)   ;;;检查元素合并的预测是否为nil<br /> (vl-sort list less?-function)                       ;;;根据给定的比较函数对表中的元素排序<br /> (vl-sort-i list less?-function)                     ;;;根据给定的比较函数对表中的元素排序，返回元素索引号<br /> (vl-string->list string)                            ;;;将字符串转换为字符代码表

字符串处理函数

1. (read [string])                                              ;;;返回从字符串中获得的第一个表或原子数据
   
2. (strcase string [which])                                     ;;;将字符串中的所有字母转换成大写或小写，然后返回修改后的字符串
   
3. (strcat [string1 [string2]...)                               ;;;将多个字符串拼接成一个字符串，然后返回新字符串
   
4. (strlen [string]...)                                         ;;;返回代表字符串中字符数目的整数
   
5. (subst string start [length])                                ;;;返回字符串的子串
   
6. (vl-prin1-to-string object)                                  ;;;返回表示任意LISP对象的字符串，如同prin1函数输出的字符串
   
7. (vl-princ-to-string object)                                  ;;;返回表示任意LISP对象的字符串，如同princ函数输出的字符串
   
8. (vl-string->list string)                                     ;;;将字符串转换为字符代码表
   
9. (vl-string-elt string position)                              ;;;返回表示在字符串中指定位置的字符的ASCII码
   
10. (vl-string-left-trim character-set string)                   ;;;从字符串的开始位置删除指定的字符串
    
11. (vl-string-mismatch str1 str2 [pos1 pos2 ignore-case-p])     ;;;返回两个字符串的最长公共前缀的长度，指定位置的字符
    
12. (vl-string-position char-code str [start-pos [from-end-p]])  ;;;在字符串中查找指定ASCII码的字符
    
13. (vl-string-right-trim characterset string)                   ;;;从字符串的末尾删除指定的字符串
    
14. (vl-string-search pattern string [startpos])                 ;;;在字符串中搜索指定的模式
    
15. (vl-string-subst new-str pattern string [start-pos])         ;;;用一个字符串替换另一个字符串中的子串
    
16. (vl-string-translate source-set dest-set str)                ;;;用指定的字符集替换字符串中的字符
    
17. (vl-string-trim char-set str)                                ;;;从字符串的开始河末尾删除指定的字符
    
18. (wcmatch string pattern)                                     ;;;在字符串上进行通配代码匹配

(read [string])                                              ;;;返回从字符串中获得的第一个表或原子数据<br /> (strcase string [which])                                     ;;;将字符串中的所有字母转换成大写或小写，然后返回修改后的字符串<br /> (strcat [string1 [string2]...)                               ;;;将多个字符串拼接成一个字符串，然后返回新字符串<br /> (strlen [string]...)                                         ;;;返回代表字符串中字符数目的整数<br /> (subst string start [length])                                ;;;返回字符串的子串<br /> (vl-prin1-to-string object)                                  ;;;返回表示任意LISP对象的字符串，如同prin1函数输出的字符串<br /> (vl-princ-to-string object)                                  ;;;返回表示任意LISP对象的字符串，如同princ函数输出的字符串<br /> (vl-string->list string)                                     ;;;将字符串转换为字符代码表<br /> (vl-string-elt string position)                              ;;;返回表示在字符串中指定位置的字符的ASCII码<br /> (vl-string-left-trim character-set string)                   ;;;从字符串的开始位置删除指定的字符串<br /> (vl-string-mismatch str1 str2 [pos1 pos2 ignore-case-p])     ;;;返回两个字符串的最长公共前缀的长度，指定位置的字符<br /> (vl-string-position char-code str [start-pos [from-end-p]])  ;;;在字符串中查找指定ASCII码的字符<br /> (vl-string-right-trim characterset string)                   ;;;从字符串的末尾删除指定的字符串<br /> (vl-string-search pattern string [startpos])                 ;;;在字符串中搜索指定的模式<br /> (vl-string-subst new-str pattern string [start-pos])         ;;;用一个字符串替换另一个字符串中的子串<br /> (vl-string-translate source-set dest-set str)                ;;;用指定的字符集替换字符串中的字符<br /> (vl-string-trim char-set str)                                ;;;从字符串的开始河末尾删除指定的字符<br /> (wcmatch string pattern)                                     ;;;在字符串上进行通配代码匹配

符号处理函数

1. (atom item)                        ;;;验证一个项目是否是原子数据
   
2. (atoms-family format [symlist])    ;;;返回当前定义符号列表
   
3. (boundp sym)                       ;;;检验值是否被绑定到符号上
   
4. (not item)                         ;;;验证项目的计算结果是否等于nil
   
5. (null item)                        ;;;验证项目是否被绑定到nil
   
6. (numberp item)                     ;;;验证项目是实数还是整数
   
7. (quote expr)                       ;;;返回表达式但不对它进行计算
   
8. (set sym expr)                     ;;;将被引号引起来的符号名的值设置成表达式
   
9. (setq sym1 expr1 [sym2 expr2]...)  ;;;将符号的值设置成相关联的表达式
   
10. (type item)                        ;;;返回指定项目的类型
    
11. (vl-symbol-name symbol)            ;;;返回包含符号名的字符串
    
12. (vl-symbol-value symbol)           ;;;返回绑定到符号的当前值
    
13. (vl-symbolp object)                ;;;标识指定的对象是否是符号

(atom item)                        ;;;验证一个项目是否是原子数据<br /> (atoms-family format [symlist])    ;;;返回当前定义符号列表<br /> (boundp sym)                       ;;;检验值是否被绑定到符号上<br /> (not item)                         ;;;验证项目的计算结果是否等于nil<br /> (null item)                        ;;;验证项目是否被绑定到nil<br /> (numberp item)                     ;;;验证项目是实数还是整数<br /> (quote expr)                       ;;;返回表达式但不对它进行计算<br /> (set sym expr)                     ;;;将被引号引起来的符号名的值设置成表达式<br /> (setq sym1 expr1 [sym2 expr2]...)  ;;;将符号的值设置成相关联的表达式<br /> (type item)                        ;;;返回指定项目的类型<br /> (vl-symbol-name symbol)            ;;;返回包含符号名的字符串<br /> (vl-symbol-value symbol)           ;;;返回绑定到符号的当前值<br /> (vl-symbolp object)                ;;;标识指定的对象是否是符号

工具函数
转换函数

1. (angtof string [mode])
   
2. (angtos angle [mode [precision]])
   
3. (ascii string)
   
4. (atof string)
   
5. (atoi string)
   
6. (chr integer)
   
7. (cvunit value from to)
   
8. (distof string [mode])
   
9. (itoa int)
   
10. (rtos number [mode [precision]])
    
11. (trans pt from to [disp])

(angtof string [mode])<br /> (angtos angle [mode [precision]])<br /> (ascii string)<br /> (atof string)<br /> (atoi string)<br /> (chr integer)<br /> (cvunit value from to)<br /> (distof string [mode])<br /> (itoa int)<br /> (rtos number [mode [precision]])<br /> (trans pt from to [disp])

设备访问函数

1. (grread [track] [allkeys [curtype]])
   
2. (tablet code [row1 row2 row3 direction])

(grread [track] [allkeys [curtype]])<br /> (tablet code [row1 row2 row3 direction])

显示控制函数

1. (graphscr)
   
2. (grdraw from to color [highlight])
   
3. (grtext [box text [highlight]])
   
4. (grvecs vlist [trans])
   
5. (menucmd string)
   
6. (menugroup groupname)
   
7. (prin1 [expr [file-desc]])
   
8. (princ [expr [file-desc]])
   
9. (print [expr [file-desc]])
   
10. (prompt msg)
    
11. (redraw [ename [mode]])
    
12. (terpri)
    
13. (textpage)
    
14. (textscr)
    
15. (vports)

(graphscr)<br /> (grdraw from to color [highlight])<br /> (grtext [box text [highlight]])<br /> (grvecs vlist [trans])<br /> (menucmd string)<br /> (menugroup groupname)<br /> (prin1 [expr [file-desc]])<br /> (princ [expr [file-desc]])<br /> (print [expr [file-desc]])<br /> (prompt msg)<br /> (redraw [ename [mode]])<br /> (terpri)<br /> (textpage)<br /> (textscr)<br /> (vports)

文件处理函数

1. (close file-desc)
   
2. (findfile filename)
   
3. (open filename mode)
   
4. (read-char [file-desc])
   
5. (read-line [file-desc])
   
6. (vl-directory-files [directory pattern directories])
   
7. (vl-file-copy "source-filename" "destination-filename" [append])
   
8. (vl-file-delete "filename")
   
9. (vl-file-directory-p "filename")
   
10. (vl-file-rename "old-filename" "newfilename")
    
11. (vl-file-size "filename")
    
12. (vl-file-systime "filename")
    
13. (vl-filename-base "filename")
    
14. (vl-filename-directory "filename")
    
15. (vl-filename-extension "filename")
    
16. (vl-filename-mktemp ["pattern" "directory" "extension"])
    
17. (write-char num [file-desc])
    
18. (write-line string [file-desc])

(close file-desc)<br /> (findfile filename)<br /> (open filename mode)<br /> (read-char [file-desc])<br /> (read-line [file-desc])<br /> (vl-directory-files [directory pattern directories])<br /> (vl-file-copy "source-filename" "destination-filename" [append])<br /> (vl-file-delete "filename")<br /> (vl-file-directory-p "filename")<br /> (vl-file-rename "old-filename" "newfilename")<br /> (vl-file-size "filename")<br /> (vl-file-systime "filename")<br /> (vl-filename-base "filename")<br /> (vl-filename-directory "filename")<br /> (vl-filename-extension "filename")<br /> (vl-filename-mktemp ["pattern" "directory" "extension"])<br /> (write-char num [file-desc])<br /> (write-line string [file-desc])

几何函数

1. (angle pt1 pt2)
   
2. (distance pt1 pt2)
   
3. (inters pt1 pt2 pt3 pt4 [onseg])
   
4. (osnap pt mode)
   
5. (polar pt ang dist)
   
6. (textbox elist)

(angle pt1 pt2)<br /> (distance pt1 pt2)<br /> (inters pt1 pt2 pt3 pt4 [onseg])<br /> (osnap pt mode)<br /> (polar pt ang dist)<br /> (textbox elist)

查询和命令函数

1. (acad_colordlg colornum [flag])
   
2. (acad_helpdlg helpfile topic)
   
3. (command [arguments]...)
   
4. (getcfg cfgname)
   
5. (getcname cname)
   
6. (getenv "variable-name")
   
7. (getvar varname)
   
8. (help [helpfile [topic [command]]])
   
9. (setcfg cfgname cfgval)
   
10. (setenv "varname" "value")
    
11. (setfunhelp "fname" ["helpfile" ["topic" ["command"]]])
    
12. (setvar varname value)
    
13. (ver)
    
14. (vl-cmdf [arguments]...)
    
15. (vlax-add-cmd global-name func-sym [local-name cmd-flags])
    
16. (vlax-remove-cmd global-name)

(acad_colordlg colornum [flag])<br /> (acad_helpdlg helpfile topic)<br /> (command [arguments]...)<br /> (getcfg cfgname)<br /> (getcname cname)<br /> (getenv "variable-name")<br /> (getvar varname)<br /> (help [helpfile [topic [command]]])<br /> (setcfg cfgname cfgval)<br /> (setenv "varname" "value")<br /> (setfunhelp "fname" ["helpfile" ["topic" ["command"]]])<br /> (setvar varname value)<br /> (ver)<br /> (vl-cmdf [arguments]...)<br /> (vlax-add-cmd global-name func-sym [local-name cmd-flags])<br /> (vlax-remove-cmd global-name)

用户输入函数

1. (entsel [msg])
   
2. (getangle [pt] [msg])
   
3. (getcorner pt [msg])
   
4. (getdist [pt] [msg])
   
5. (getfiled title default ext flags)
   
6. (getint [msg])
   
7. (getkword [msg])
   
8. (getorient [pt] [msg])
   
9. (getpoint [pt] [msg])
   
10. (getreal [msg])
    
11. (getstring [cr] [msg])
    
12. (initget [bits] [string])
    
13. (nentsel [msg])
    
14. (nentselp [msg] [pt])

(entsel [msg])<br /> (getangle [pt] [msg])<br /> (getcorner pt [msg])<br /> (getdist [pt] [msg])<br /> (getfiled title default ext flags)<br /> (getint [msg])<br /> (getkword [msg])<br /> (getorient [pt] [msg])<br /> (getpoint [pt] [msg])<br /> (getreal [msg])<br /> (getstring [cr] [msg])<br /> (initget [bits] [string])<br /> (nentsel [msg])<br /> (nentselp [msg] [pt])

选择集、对象和符号表函数
扩展数据处理函数

1. (regapp application)
   
2. (xdroom ename)
   
3. (xdsize lst)

(regapp application)<br /> (xdroom ename)<br /> (xdsize lst)

对象处理函数

1. (entdel ename)
   
2. (entget ename [applist])
   
3. (entlast)
   
4. (entmake [elist])
   
5. (entmakex [elist])
   
6. (entmod elist)
   
7. (entnext [ename])
   
8. (entupd ename)
   
9. (handent handle)
   
10. (vlax-dump-object obj)
    
11. (vlax-erased-p obj)
    
12. (vlax-get-acad-object)
    
13. (vlax-method-applicable-p obj method)
    
14. (vlax-object-released-p obj)
    
15. (vlax-read-enabled-p obj)
    
16. (vlax-release-object obj)
    
17. (vlax-typeinfo-available-p obj)
    
18. (vlax-write-enabled-p obj)

(entdel ename)<br /> (entget ename [applist])<br /> (entlast)<br /> (entmake [elist])<br /> (entmakex [elist])<br /> (entmod elist)<br /> (entnext [ename])<br /> (entupd ename)<br /> (handent handle)<br /> (vlax-dump-object obj)<br /> (vlax-erased-p obj)<br /> (vlax-get-acad-object)<br /> (vlax-method-applicable-p obj method)<br /> (vlax-object-released-p obj)<br /> (vlax-read-enabled-p obj)<br /> (vlax-release-object obj)<br /> (vlax-typeinfo-available-p obj)<br /> (vlax-write-enabled-p obj)

选择集处理函数

1. (ssadd [ename [ss]])
   
2. (ssdel ename ss)
   
3. (ssget [mode] [pt1 [pt2]] [pt-list] [filter-list])
   
4. (ssgetfirst)
   
5. (sslength ss)
   
6. (ssmemb ename ss)
   
7. (ssname ss index)
   
8. (ssnamex ss index)
   
9. (sssetfirst gripset [pickset])

(ssadd [ename [ss]])<br /> (ssdel ename ss)<br /> (ssget [mode] [pt1 [pt2]] [pt-list] [filter-list])<br /> (ssgetfirst)<br /> (sslength ss)<br /> (ssmemb ename ss)<br /> (ssname ss index)<br /> (ssnamex ss index)<br /> (sssetfirst gripset [pickset])

符号表和词典处理函数

1. (dictadd ename symbol newobj)
   
2. (dictnext ename symbol [rewind])
   
3. (dictremove ename symbol)
   
4. (dictrename ename oldsym newsym)
   
5. (dictsearch ename symbol [setnext])
   
6. (layoutlist)
   
7. (namedobjdict)
   
8. (setview view_description [vport_id])
   
9. (snvalid sym_name)
   
10. (tblnext table-name [rewind])
    
11. (tblobjname table-name symbol)
    
12. (tblsearch table-name symbol [setnext])
    
13. (vlax-ldata-delete dict key)
    
14. (vlax-ldata-get dict key [defaultdata])
    
15. (vlax-ldata-list dict)
    
16. (vlax-ldata-put dict key data)
    
17. (vlax-ldata-test data)

(dictadd ename symbol newobj)<br /> (dictnext ename symbol [rewind])<br /> (dictremove ename symbol)<br /> (dictrename ename oldsym newsym)<br /> (dictsearch ename symbol [setnext])<br /> (layoutlist)<br /> (namedobjdict)<br /> (setview view_description [vport_id])<br /> (snvalid sym_name)<br /> (tblnext table-name [rewind])<br /> (tblobjname table-name symbol)<br /> (tblsearch table-name symbol [setnext])<br /> (vlax-ldata-delete dict key)<br /> (vlax-ldata-get dict key [defaultdata])<br /> (vlax-ldata-list dict)<br /> (vlax-ldata-put dict key data)<br /> (vlax-ldata-test data)

内存管理函数

1. (alloc int)
   
2. (expand number)
   
3. (gc)
   
4. (mem)

(alloc int)<br /> (expand number)<br /> (gc)<br /> (mem)

可编程对话框函数
对话框打开和关闭函数

1. (done_dialog [status])                           ;;;终止对话框
   
2. (load_dialog dclfile)                            ;;;加载DCL文件
   
3. (new_dialog dlgname dcl_id [action [screen-pt]]) ;;;开始并显示新对话框，也可以指定缺省动作
   
4. (start_dialog)                                   ;;;显示对话框并开始接受用户输入
   
5. (term_dialog)                                    ;;;终止所有当前对话框，就好像用户逐个取消这些对话框
   
6. (unload_dialog dcl_id)                           ;;;卸载DCL文件

(done_dialog [status])                           ;;;终止对话框<br /> (load_dialog dclfile)                            ;;;加载DCL文件<br /> (new_dialog dlgname dcl_id [action [screen-pt]]) ;;;开始并显示新对话框，也可以指定缺省动作<br /> (start_dialog)                                   ;;;显示对话框并开始接受用户输入<br /> (term_dialog)                                    ;;;终止所有当前对话框，就好像用户逐个取消这些对话框<br /> (unload_dialog dcl_id)                           ;;;卸载DCL文件

控件和属性处理函数

1. (action_tile key action-expression)              ;;;指定当用户选择对话框中的特定控件时要执行的动作
   
2. (get_attr key attribute)                         ;;;获取对话框属性的DCL值
   
3. (get_tile key)                                   ;;;获取对话框控件的当前运行时的值
   
4. (mode_tile key mode)                             ;;;设置对话框控件的模式
   
5. (set_tile key value)                             ;;;设置对话框控件的值

(action_tile key action-expression)              ;;;指定当用户选择对话框中的特定控件时要执行的动作<br /> (get_attr key attribute)                         ;;;获取对话框属性的DCL值<br /> (get_tile key)                                   ;;;获取对话框控件的当前运行时的值<br /> (mode_tile key mode)                             ;;;设置对话框控件的模式<br /> (set_tile key value)                             ;;;设置对话框控件的值

列表框和弹出式列表框处理函数

1. (add_list string)                                ;;;在当前活动对话框列表中添加或修改一个字符串
   
2. (end_list)                                       ;;;结束处理当前活动对话列表框
   
3. (start_list key [operation [index]])             ;;;开始处理列表框中或弹出式列表对话框框控件中的列表

(add_list string)                                ;;;在当前活动对话框列表中添加或修改一个字符串<br /> (end_list)                                       ;;;结束处理当前活动对话列表框<br /> (start_list key [operation [index]])             ;;;开始处理列表框中或弹出式列表对话框框控件中的列表

图像控件处理函数

1. (dimx_tile key)和(dimy_tile key)                 ;;;以对话框单位为单位获取控件的尺寸
   
2. (end_image)                                      ;;;结束创建当前活动对话框图像
   
3. (fill_image x1 y1 wid hgt color)                 ;;;在当前活动对话框图像控件中绘制一个填充矩形
   
4. (slide_image x1 y1 wid hgt sldname)              ;;;在当前活动对话框图像控件中显示一个幻灯片
   
5. (start_image key)                                ;;;开始在对话框中创建一个图像
   
6. (vector_image x1 y1 x2 y2 color)                 ;;;在当前活动对话框图像中绘制一个矢量

(dimx_tile key)和(dimy_tile key)                 ;;;以对话框单位为单位获取控件的尺寸<br /> (end_image)                                      ;;;结束创建当前活动对话框图像<br /> (fill_image x1 y1 wid hgt color)                 ;;;在当前活动对话框图像控件中绘制一个填充矩形<br /> (slide_image x1 y1 wid hgt sldname)              ;;;在当前活动对话框图像控件中显示一个幻灯片<br /> (start_image key)                                ;;;开始在对话框中创建一个图像<br /> (vector_image x1 y1 x2 y2 color)                 ;;;在当前活动对话框图像中绘制一个矢量

特定应用程序处理函数

1. (client_data_tile key clientdata)                ;;;将应用程序管理的数据与对话框控件相关联

(client_data_tile key clientdata)                ;;;将应用程序管理的数据与对话框控件相关联

Visual LISP的AutoLISP扩展

1. (vl-load-com)

(vl-load-com)

ActiveX集合操作函数

1. (vlax-for symbol collection [expression1 [expression2...]])
   
2. (vlax-map-collection obj function)

(vlax-for symbol collection [expression1 [expression2...]])<br /> (vlax-map-collection obj function)

ActiveX数据转换函数

1. (vlax-3D-point list)
   
2. (vlax-3D-point x y [z])
   
3. (vlax-ename->vla-object entname)
   
4. (vlax-make-safearray type '(l-bound . u-bound) ['(l-bound . u-bound)...])
   
5. (vlax-make-variant value type)
   
6. (vlax-safearray-fill var 'element-values)
   
7. (vlax-safearray-get-dim var)
   
8. (vlax-safearray-get-element var element)
   
9. (vlax-safearray-get-l-bound var dim)
   
10. (vlax-safearray-get-u-bound var dim)
    
11. (vlax-safearray-put-element var element value)
    
12. (vlax-safearray-type var)
    
13. (vlax-safearray->list var)
    
14. (vlax-tmatrix list)
    
15. (vlax-variant-change-type var type)
    
16. (vlax-variant-type var)
    
17. (vlax-variant-value var)
    
18. (vlax-vla-object->ename obj)

(vlax-3D-point list)<br /> (vlax-3D-point x y [z])<br /> (vlax-ename->vla-object entname)<br /> (vlax-make-safearray type '(l-bound . u-bound) ['(l-bound . u-bound)...])<br /> (vlax-make-variant value type)<br /> (vlax-safearray-fill var 'element-values)<br /> (vlax-safearray-get-dim var)<br /> (vlax-safearray-get-element var element)<br /> (vlax-safearray-get-l-bound var dim)<br /> (vlax-safearray-get-u-bound var dim)<br /> (vlax-safearray-put-element var element value)<br /> (vlax-safearray-type var)<br /> (vlax-safearray->list var)<br /> (vlax-tmatrix list)<br /> (vlax-variant-change-type var type)<br /> (vlax-variant-type var)<br /> (vlax-variant-value var)<br /> (vlax-vla-object->ename obj)

ActiveX方法调用函数

1. (vlax-invoke-method obj method list)
   
2. (vlax-method-applicable-p obj method)

(vlax-invoke-method obj method list)<br /> (vlax-method-applicable-p obj method)

ActiveX对象处理函数

1. (vlax-dump-object obj)
   
2. (vlax-erased-p obj)
   
3. (vlax-get-acad-object)
   
4. (vlax-method-applicable-p obj method)
   
5. (vlax-object-released-p obj)
   
6. (vlax-read-enabled-p obj)
   
7. (vlax-release-object obj)
   
8. (vlax-typeinfo-available-p obj)
   
9. (vlax-write-enabled-p obj)

(vlax-dump-object obj)<br /> (vlax-erased-p obj)<br /> (vlax-get-acad-object)<br /> (vlax-method-applicable-p obj method)<br /> (vlax-object-released-p obj)<br /> (vlax-read-enabled-p obj)<br /> (vlax-release-object obj)<br /> (vlax-typeinfo-available-p obj)<br /> (vlax-write-enabled-p obj)

ActiveX特性处理函数

1. (vlax-get-property obj property)
   
2. (vlax-property-available-p obj prop [T])
   
3. (vlax-put-property obj property arg)

(vlax-get-property obj property)<br /> (vlax-property-available-p obj prop [T])<br /> (vlax-put-property obj property arg)

曲线测量函数

1. (vlax-curve-getArea curve-obj)
   
2. (vlax-curve-getDistAtParam curve-obj param)
   
3. (vlax-curve-getDistAtPoint curve-obj point)
   
4. (vlax-curve-getEndParam curve-obj)
   
5. (vlax-curve-getEndPoint curve-obj)
   
6. (vlax-curve-getParamAtDist curve-obj param)
   
7. (vlax-curve-getParamAtPoint curveobj point)
   
8. (vlax-curve-getPointAtDist curve-obj dist)
   
9. (vlax-curve-getPointAtParam curveobj param)
   
10. (vlax-curve-getStartParam curve-obj)
    
11. (vlax-curve-getStartPoint curve-obj)
    
12. (vlax-curve-isClosed curve-obj)
    
13. (vlax-curve-isPeriodic curve-obj)
    
14. (vlax-curve-isPlanar curve-obj)
    
15. (vlax-curve-getClosestPointTo curve-obj givenPnt [extend])
    
16. (vlax-curve-getClosestPointToProjection curve-obj givenPnt normal [extend])
    
17. (vlax-curve-getFirstDeriv curve-obj param)

(vlax-curve-getArea curve-obj)<br /> (vlax-curve-getDistAtParam curve-obj param)<br /> (vlax-curve-getDistAtPoint curve-obj point)<br /> (vlax-curve-getEndParam curve-obj)<br /> (vlax-curve-getEndPoint curve-obj)<br /> (vlax-curve-getParamAtDist curve-obj param)<br /> (vlax-curve-getParamAtPoint curveobj point)<br /> (vlax-curve-getPointAtDist curve-obj dist)<br /> (vlax-curve-getPointAtParam curveobj param)<br /> (vlax-curve-getStartParam curve-obj) <br /> (vlax-curve-getStartPoint curve-obj)<br /> (vlax-curve-isClosed curve-obj)<br /> (vlax-curve-isPeriodic curve-obj)<br /> (vlax-curve-isPlanar curve-obj)<br /> (vlax-curve-getClosestPointTo curve-obj givenPnt [extend])<br /> (vlax-curve-getClosestPointToProjection curve-obj givenPnt normal [extend])<br /> (vlax-curve-getFirstDeriv curve-obj param)

词典函数

1. (vlax-ldata-delete dict key)
   
2. (vlax-ldata-get dict key [default-data])
   
3. (vlax-ldata-list dict)
   
4. (vlax-ldata-put dict key data)
   
5. (vlax-ldata-test data)

(vlax-ldata-delete dict key)<br /> (vlax-ldata-get dict key [default-data])<br /> (vlax-ldata-list dict)<br /> (vlax-ldata-put dict key data)<br /> (vlax-ldata-test data)

对象处理函数

1. (vlax-create-object "prog-id")
   
2. (vlax-dump-object obj)
   
3. (vlax-erased-p obj)
   
4. (vlax-get-acad-object)
   
5. (vlax-get-object "prog-id")
   
6. (vlax-get-or-create-object "prog-id")
   
7. (vlax-import-type-library :tlb-filename filename [:methods-prefix mprefix :properties-prefix pprefix :constants-prefix cprefix])
   
8. (vlax-method-applicable-p obj method)
   
9. (vlax-object-released-p obj)
   
10. (vlax-read-enabled-p obj)
    
11. (vlax-release-object obj)
    
12. (vlax-typeinfo-available-p obj)
    
13. (vlax-write-enabled-p obj)

(vlax-create-object "prog-id")<br /> (vlax-dump-object obj)<br /> (vlax-erased-p obj)<br /> (vlax-get-acad-object)<br /> (vlax-get-object "prog-id")<br /> (vlax-get-or-create-object "prog-id")<br /> (vlax-import-type-library :tlb-filename filename [:methods-prefix mprefix :properties-prefix pprefix :constants-prefix cprefix])<br /> (vlax-method-applicable-p obj method)<br /> (vlax-object-released-p obj)<br /> (vlax-read-enabled-p obj)<br /> (vlax-release-object obj)<br /> (vlax-typeinfo-available-p obj)<br /> (vlax-write-enabled-p obj)

反应器函数

1. (vlr-acdb-reactor data callbacks)          ;;;构造一个数据库（全局）反应器对象
   
2. (vlr-add obj)                              ;;;启用被禁用的反应器对象
   
3. (vlr-added-p obj)                          ;;;测试判断反应器对象是否被启用
   
4. (vlr-beep-reaction [args])                 ;;;产生蜂鸣声
   
5. (vlr-current-reaction-name)                ;;;如果从反应器回调中调用，则返回当前时间的名称（符号）
   
6. (vlr-data obj)                             ;;;返回与反应器相关联的应用特定数据
   
7. (vlr-data-set obj data)                    ;;;覆盖与反应器相关联的应用特定数据
   
8. (vlr-deepclone-reactor obj data)           ;;;构造一个编辑器反应器对象，用于通知深度克隆事件
   
9. (vlr-docmanager-reactor obj data)          ;;;构造一个反应器对象，用于通知MDI相关的事件
   
10. (vlr-dwg-reactor obj data)                 ;;;构造一个编辑器反应器对象，用于通知图形事件（例如：打开或关闭图形文件）
    
11. (vlr-dxf-reactor obj data)                 ;;;构造一个编辑器反应器对象，用于通知读写DXF文件的事件
    
12. (vlr-editor-reactor data callbacks)        ;;;构造一个编辑器（全局）反应器对象
    
13. (vlr-linker-reactor data callbacks)        ;;;构造一个链接器（全局）反应器对象
    
14. (vlr-miscellaneous-reactor data callbacks) ;;;构造一个编辑器反应器对象，不属于其它任何编辑器反应器类型
    
15. (vlr-mouse-reactor data callbacks)         ;;;构造一个编辑器反应器对象，用于通知鼠标事件（例如：双击）
    
16. (vlr-notification reactor)                 ;;;判断反应器毁掉函数在相关的名称空间未活动时是否执行
    
17. (vlr-object-reactor owners data callbacks) ;;;构造一个对象反应器对象
    
18. (vlr-owner-add reactor owner)              ;;;向对象反应器的所有者列表中添加对象
    
19. (vlr-owner-remove reactor owner)           ;;;从对象反应器的所有者列表中删除对象
    
20. (vlr-owners reactor)                       ;;;返回对象反应器的所有者列表
    
21. (vlr-pers reactor)                         ;;;使反应器永久生效
    
22. (vlr-pers-list [reactor])                  ;;;返回当前图形中永久生效的反应器列表
    
23. (vlr-pers-p reactor)                       ;;;判断反应器是否永久生效
    
24. (vlr-pers-release reactor)                 ;;;使反应器暂时生效
    
25. (vlr-reaction-names reactor-type)          ;;;返回某种反应器类型的所有回调条件列表
    
26. (vlr-reaction-set reactor eventfunction)   ;;;在反应器中添加和替换回调函数
    
27. (vlr-reactions reactor)                    ;;;返回反应器的(event-name . callback_function)点对表
    
28. (vlr-reactors [reactor-type...])           ;;;返回指定类型的反应器列表
    
29. (vlr-remove reactor)                       ;;;禁用一个反应器
    
30. (vlr-remove-all reactor-type)              ;;;禁用指定类型的所有反应器
    
31. (vlr-set-notification reactor range)       ;;;判断反应器回调函数在相关的名称空间未活动时是否执行
    
32. (vlr-sysvar-reactor data callbacks)        ;;;构造一个编辑器反应器对象，用于通知对相同变量的更改
    
33. (vlr-toolbar-reactor data callbacks)       ;;;构造一个编辑器反应器对象，用于通知对工具栏中的位图的更改
    
34. (vlr-trace-reaction)                       ;;;在“追踪”窗口中打印一个或多个回调参数的预定义回调函数
    
35. (vlr-type reactor)                         ;;;返回表示反应器类型的符号
    
36. (vlr-types)                                ;;;返回反应器类型的列表
    
37. (vlr-undo-reactor data callbacks)          ;;;构造一个编辑器反应器对象，用于通知放弃事件
    
38. (vlr-wblock-reactor data callbacks)        ;;;构造一个编辑器反应器对象，用于通知与写块相关的事件
    
39. (vlr-window-reactor data callbacks)        ;;;构造一个编辑器反应器对象，用于通知与移动或缩放Windows窗口相关的事件
    
40. (vlr-xref-reactor data callbacks)          ;;;构造一个编辑器反应器对象，用于通知与附着或修改外部参考相关的事件

(vlr-acdb-reactor data callbacks)          ;;;构造一个数据库（全局）反应器对象<br /> (vlr-add obj)                              ;;;启用被禁用的反应器对象<br /> (vlr-added-p obj)                          ;;;测试判断反应器对象是否被启用<br /> (vlr-beep-reaction [args])                 ;;;产生蜂鸣声<br /> (vlr-current-reaction-name)                ;;;如果从反应器回调中调用，则返回当前时间的名称（符号）<br /> (vlr-data obj)                             ;;;返回与反应器相关联的应用特定数据<br /> (vlr-data-set obj data)                    ;;;覆盖与反应器相关联的应用特定数据<br /> (vlr-deepclone-reactor obj data)           ;;;构造一个编辑器反应器对象，用于通知深度克隆事件<br /> (vlr-docmanager-reactor obj data)          ;;;构造一个反应器对象，用于通知MDI相关的事件<br /> (vlr-dwg-reactor obj data)                 ;;;构造一个编辑器反应器对象，用于通知图形事件（例如：打开或关闭图形文件）<br /> (vlr-dxf-reactor obj data)                 ;;;构造一个编辑器反应器对象，用于通知读写DXF文件的事件<br /> (vlr-editor-reactor data callbacks)        ;;;构造一个编辑器（全局）反应器对象<br /> (vlr-linker-reactor data callbacks)        ;;;构造一个链接器（全局）反应器对象<br /> (vlr-miscellaneous-reactor data callbacks) ;;;构造一个编辑器反应器对象，不属于其它任何编辑器反应器类型<br /> (vlr-mouse-reactor data callbacks)         ;;;构造一个编辑器反应器对象，用于通知鼠标事件（例如：双击）<br /> (vlr-notification reactor)                 ;;;判断反应器毁掉函数在相关的名称空间未活动时是否执行<br /> (vlr-object-reactor owners data callbacks) ;;;构造一个对象反应器对象<br /> (vlr-owner-add reactor owner)              ;;;向对象反应器的所有者列表中添加对象<br /> (vlr-owner-remove reactor owner)           ;;;从对象反应器的所有者列表中删除对象<br /> (vlr-owners reactor)                       ;;;返回对象反应器的所有者列表<br /> (vlr-pers reactor)                         ;;;使反应器永久生效<br /> (vlr-pers-list [reactor])                  ;;;返回当前图形中永久生效的反应器列表<br /> (vlr-pers-p reactor)                       ;;;判断反应器是否永久生效<br /> (vlr-pers-release reactor)                 ;;;使反应器暂时生效<br /> (vlr-reaction-names reactor-type)          ;;;返回某种反应器类型的所有回调条件列表<br /> (vlr-reaction-set reactor eventfunction)   ;;;在反应器中添加和替换回调函数<br /> (vlr-reactions reactor)                    ;;;返回反应器的(event-name . callback_function)点对表<br /> (vlr-reactors [reactor-type...])           ;;;返回指定类型的反应器列表<br /> (vlr-remove reactor)                       ;;;禁用一个反应器<br /> (vlr-remove-all reactor-type)              ;;;禁用指定类型的所有反应器<br /> (vlr-set-notification reactor range)       ;;;判断反应器回调函数在相关的名称空间未活动时是否执行<br /> (vlr-sysvar-reactor data callbacks)        ;;;构造一个编辑器反应器对象，用于通知对相同变量的更改<br /> (vlr-toolbar-reactor data callbacks)       ;;;构造一个编辑器反应器对象，用于通知对工具栏中的位图的更改<br /> (vlr-trace-reaction)                       ;;;在“追踪”窗口中打印一个或多个回调参数的预定义回调函数<br /> (vlr-type reactor)                         ;;;返回表示反应器类型的符号<br /> (vlr-types)                                ;;;返回反应器类型的列表<br /> (vlr-undo-reactor data callbacks)          ;;;构造一个编辑器反应器对象，用于通知放弃事件<br /> (vlr-wblock-reactor data callbacks)        ;;;构造一个编辑器反应器对象，用于通知与写块相关的事件<br /> (vlr-window-reactor data callbacks)        ;;;构造一个编辑器反应器对象，用于通知与移动或缩放Windows窗口相关的事件<br /> (vlr-xref-reactor data callbacks)          ;;;构造一个编辑器反应器对象，用于通知与附着或修改外部参考相关的事件

VLX名称空间函数

1. (vl-arx-import [function | application])   ;;;
   
2. (vl-doc-export 'function)                  ;;;
   
3. (vl-doc-import ['function | application])  ;;;
   
4. (vl-doc-ref symbol)                        ;;;
   
5. (vl-doc-set symbol value)                  ;;;
   
6. (vl-exit-with-error "msg")                 ;;;
   
7. (vl-exit-with-value value)                 ;;;
   
8. (vl-list-exported-functions ["appname"])   ;;;
   
9. (vl-list-loaded-vlx)                       ;;;
   
10. (vl-unload-vlx "appname")                  ;;;
    
11. (vl-vlx-loaded-p "appname")                ;;;

(vl-arx-import [function | application])   ;;;<br /> (vl-doc-export 'function)                  ;;;<br /> (vl-doc-import ['function | application])  ;;;<br /> (vl-doc-ref symbol)                        ;;;<br /> (vl-doc-set symbol value)                  ;;;<br /> (vl-exit-with-error "msg")                 ;;;<br /> (vl-exit-with-value value)                 ;;;<br /> (vl-list-exported-functions ["appname"])   ;;;<br /> (vl-list-loaded-vlx)                       ;;;<br /> (vl-unload-vlx "appname")                  ;;;<br /> (vl-vlx-loaded-p "appname")                ;;;

名称空间通讯函数

1. (vl-bb-ref 'variable)        ;;;从黑板名称空间中返回一个变量的值
   
2. (vl-bb-set 'variable value)  ;;;从黑板名称空间中设置一个变量的值
   
3. (vl-load-all "filename")     ;;;将一个文件加载到当前打开的所有文档及当前AutoCAD任务期间后续打开的文档中
   
4. (vl-propagate 'variable)     ;;;将一个变量的值复制到当前打开的所有文档及当前AutoCAD任务期间后续打开的文档中

(vl-bb-ref 'variable)        ;;;从黑板名称空间中返回一个变量的值<br /> (vl-bb-set 'variable value)  ;;;从黑板名称空间中设置一个变量的值<br /> (vl-load-all "filename")     ;;;将一个文件加载到当前打开的所有文档及当前AutoCAD任务期间后续打开的文档中<br /> (vl-propagate 'variable)     ;;;将一个变量的值复制到当前打开的所有文档及当前AutoCAD任务期间后续打开的文档中

Windows注册表函数

1. (vl-registry-delete reg-key [val-name])          ;;;从Windows注册表中删除指定的主键/键值
   
2. (vl-registry-descendents reg-key [val-names])    ;;;为指定的注册表主键返回一个子键或值名称的列表
   
3. (vl-registry-read reg-key [val-name])            ;;;返回Windows注册表中指定主键/键值所对应的数据
   
4. (vl-registry-write reg-key [val-name val-data])  ;;;在Windows注册表中创建主键
   
5. (vlax-product-key)                               ;;;返回AutoCAD注册路径

(vl-registry-delete reg-key [val-name])          ;;;从Windows注册表中删除指定的主键/键值<br /> (vl-registry-descendents reg-key [val-names])    ;;;为指定的注册表主键返回一个子键或值名称的列表<br /> (vl-registry-read reg-key [val-name])            ;;;返回Windows注册表中指定主键/键值所对应的数据<br /> (vl-registry-write reg-key [val-name val-data])  ;;;在Windows注册表中创建主键<br /> (vlax-product-key)                               ;;;返回AutoCAD注册路径

cnks

这个意义不大

13648893846

用功能来分类的话比用字母分类更方便查 因为对于我们初学者，编程过程中往往先想到的是想实现什么功能，而不是想到以什么字母开头

yanshengjiang

一晃，十一年就过去了。你还好吗，风。  遥记得当年你比较喜欢炫技，然后他们有点排挤你。我很愤愤不平呢^_^

zyhandw

很好，顶！！
至少对新手和像我这样基本功不扎实的比较有用！

longer1000

至少对像我这样新手的比较有用！

完整武器

这个对我们新手来说是好东西 谢谢楼主！

nhbabc

好东西，很难得这么全的函数了，顶

logoin

楼主太伟大了，用功能来分类的话比用字母分类更方便查
因为对于我们初学者，编程过程中往往先想到的是想实现什么功能，而不是想到以什么字母开头

qq229918602

好高学问。。。

弓志贤

很实用，方便编程时候调用

弓志贤

出自图书编辑的都是好贴，赞一个