AutoLisp 简要笔记

Virtual Lisp

---

为了便于 autolisp 的开发调试，autodesk 公司推出了 Virtual Lisp 集成开发环境。在 CAD 命令行输入 vlide 或者 vlisp 即可调出IDE。

CAD 设置

---

• 修改支持文件搜索路径，添加自己的脚本文件路径
  

• 加载自定义脚本文件
  load "脚本名称" ；可以省略lsp后缀

AutoLisp 语法

---

• 数据类型

  • String

  e.g.： "hello"

  • Integers

  e.g.： 1 2 3

  • Real

  e.g.： 1.2

  • List

  e.g.： (1 1.2 "hello")

• 禁止求值

任何使用 () 的地方都会被自动求值，即第一个参数被认为是操作符，后面视为操作数。如果不想被自动求值，例如定义list时：(setq l '(1 2 3))，可以在括号前加一个单引号。如果此时不加单引号会报错，因为 1 不是一个函数。当列表中元素是变量名时不能这么写，而是应该使用 list 函数求值，才能得到想要的值，例如：

        (setq a 100)
        (setq b 200)
        (setq m (list a b))

• 变量

  • 变量定义

    (setq varname value)

  • 在CAD中查看变量

    !varname

  • 不要使用内建函数名称

    当名称与内建函数名称冲突时会覆盖内建函数，可以使用名称前缀加 . 符号强制使用内建函数

  • 没有单个字符的内建函数名称

    a-z 可以随便使用，但要保证他们没有在自动加载的脚本文件中已经使用

NOTE: 变量名称不区分大小写

• 条件
  autolisp 里 nil 是 False

  • if

    • 使用格式：

      (if BoolExpr 
          DoSomething|(progn DoSomethings) 
          [DoSomething|(progn DoSomethings)]
      )

    • 示例：

      (if (> 10 3)
          (princ "greater")
          (princ "less or equal") 
      )
      
      (if (> 10 3)
          (progn 
              (princ "greater1")
              (princ "greater2")
          )
          (princ "less or equal") 
      )   
      
      (if (> 10 3)
          (progn 
              (princ "greater1")
              (princ "greater2")
          )
          (progn 
              (princ "less or equal1")    
              (princ "less or equal2")    
          )   
      )   

  • cond

    • 使用格式：

      (cond 
          (BoolExpr DoSomething|(progn DoSomethings)) 
          (BoolExpr DoSomething|(progn DoSomethings)) 
          (BoolExpr DoSomething|(progn DoSomethings)) 
          ... 
      )

    • 示例：

      (setq m 10)
      (cond
          ((> m 10) (princ "greater than 10"))
          ((> m 5) (princ "greater than 5"))
          ((> m 3) (princ "greater than 3"))
      )

• 循环

  • while

    • 使用格式：

      (while BoolExpr 
          DoSomething1
          DoSomething2
          ...
      )

    • 示例：

      (setq i 1)
      (while (< i 10)
          (princ i)
          (setq i (+ i 1))
      )

  • repeat

    • 使用格式：

      (repeat integer
          DoSomething1
          DoSomething2
          ...
      )

    • 示例

      (repeat 10
          (princ "Hello")
      )

  • foreach

    • 使用格式：

      (foreach elem mylist
          DoSomething1withelem
          DoSomething2withelem
          ...
      )

    • 示例

      (setq l '(1 2 3))
      (foreach i l
          (princ i)
          (princ "Hello")
      )

• 函数

  • CAD中带括号执行

    • 使用格式：

      (defun funcname(args / localargs)())

    • 示例

      (defun hello(msg)
          (princ msg)
      )

  • CAD中不带括号执行

    • 使用格式：

      (defun C:funcname(args / localargs)())

    • 示例

      (defun C:hello(msg)
          (princ msg)
      )

  • / 参数
    这个单独说下，因为它写法比较特殊。它的意思是 / 后面的变量的作用范围只在该函数体。

    • 示例
      

      (setq m 100)
      (defun hello()
          (setq m 99)
          (princ m)
      )
      (hello)

    执行完这个脚本后，我们可以看到m的值变为99了。现在我们让m变量本地化

    (setq m 100)
    (defun hello(/ m)
        (setq m 99)
        (princ m)
    )
    (hello)

    执行完我们可以看到m的值还是100。

  • 返回值
    作为函数式编程语言，函数也是表达式，函数体中最后一个表达式的值就是函数的返回值。如果不想函数显示值可以在函数体最后加上 (princ)