Visual LISP入门：开发AutoCAD自动备份插件

创作时间:

2025-01-22 07:58:47

作者:

@小白创作中心

Visual LISP入门：开发AutoCAD自动备份插件

在工程设计领域，AutoCAD作为一款强大的计算机辅助设计软件，其功能之强大毋庸置疑。然而，面对复杂的设计任务，单纯依赖AutoCAD的基础功能可能无法满足我们的需求。这时，我们就需要借助AutoLISP、DCL和Visual LISP等编程语言，来解放我们的设计能力。

什么是Visual LISP？

Visual LISP是AutoCAD内置的一种编程语言，它允许用户自定义函数和命令，从而扩展AutoCAD的功能。与传统的AutoLISP相比，Visual LISP提供了更丰富的功能和更强大的性能，是开发AutoCAD插件的首选工具。

开发环境搭建

启用Visual LISP编辑器

从AutoCAD 2021版本开始，Visual LISP编辑器（VLIDE）已经内置在软件中。你可以在Ribbon的"MANAGE"选项卡中找到它。点击"Visual LISP"按钮，即可启动编辑器。

配置LISPSYS系统变量

LISPSYS系统变量用于控制使用哪个编辑器来编辑LISP代码。默认情况下，AutoCAD使用VLIDE。你可以在命令行输入LISPSYS，然后根据提示进行设置。

基础语法与功能

让我们从最基础的语法开始学习Visual LISP。如果你有其他编程语言的基础，你会发现Visual LISP的语法相对简单直观。

变量与数据类型

在Visual LISP中，变量不需要预先声明类型，可以直接使用。例如：

(setq a 10)
(setq b "Hello, World!")

这里，a是一个整数变量，b是一个字符串变量。

函数定义

函数是Visual LISP的核心。你可以定义自己的函数来实现特定功能。例如：

(defun add (x y)
  (+ x y)
)

这个函数接收两个参数x和y，返回它们的和。

实战示例：选择对象并输出数量

让我们通过一个简单的插件示例来学习Visual LISP的开发。这个插件的功能是让用户选择一些对象，然后输出所选对象的数量。

(defun c:CountSelected (/ ss count)
  (setq ss (ssget)) ; 获取当前选择集
  (if ss
    (progn
      (setq count (sslength ss)) ; 获取选择集中对象的数量
      (princ (strcat "\n已选择 " (itoa count) " 个对象。"))
    )
    (princ "\n未选择任何对象。")
  )
)

(princ "\n加载成功！输入 CountSelected 开始使用。")
(princ)

这个代码定义了一个名为CountSelected的命令。当用户在AutoCAD中输入这个命令时，程序会提示用户选择对象，并输出所选对象的数量。

开发实战：创建一个实用插件

让我们尝试开发一个更实用的插件：自动备份当前图纸。这个插件会在每次保存时自动创建一个备份文件，以防数据丢失。

(defun c:Bcc (/ sj fn n)
  ; 将CAD备份为新的文件，后缀时间例如“新图纸-20240725235717.dwg”；精确到秒。
  (command "qsave")
  (setq sj (getvar "cdate")
        sj (* 10000 sj)
        sj (rtos sj 2 0)
        fn (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
        n (strlen fn)
        fn (substr fn 1 (- n 17))
        fn (strcat fn "-" sj ".dwg")
  )
  (command "saveas" "2018" fn)
  ;;; 保存为2018版本，如果你想保存为低版本可以改成2004
  (prompt "文件已经保存；并且另存为：")
  (princ fn)
  (princ)
)

这个插件会获取当前图纸的名称和时间戳，然后创建一个带时间戳的备份文件。每次保存时，都会自动创建一个新的备份。