常用CAD免费LISP插件合集_批量打印 / 标注一键搞定

三、插件使用注意事项

四. 高频实用 LISP 代码

（机械设计日常使用率最高，代码稳定兼容 AutoCAD 全版本）

1、一键关闭其他图层（绘图高频必备）

• 功能：选中任意对象，一键关闭除此对象所在图层外的所有图层，快速整理杂乱图纸，专注绘图。
• 调用命令：GC
• 可复制代码：lisp

(defun c:gc (/ ss ent lay)
  (setq ss (ssget))
  (if ss
    (progn
      (setq lay (cdr (assoc 8 (entget (ssname ss 0)))))
      (command "-layer" "off" "*" "" "y")
      (command "-layer" "on" lay "")
    )
  )
  (princ)
)

2. 批量修改文字高度（统一图纸规范）

• 功能：一键批量修改选中所有文字 / 多行文字的字高，快速对齐 GB/T 4457 制图标准的字体要求。
• 调用命令：GCH
• 可复制代码：lisp

(defun c:gch (/ ss h i ent ed)
  (setq ss (ssget '((0 . "TEXT,MTEXT"))))
  (setq h (getreal "\n输入目标字高: "))
  (if (and ss h)
    (repeat (setq i (sslength ss))
      (setq ent (ssname ss (setq i (1- i))))
      (setq ed (entget ent))
      (setq ed (subst (cons 40 h) (assoc 40 ed) ed))
      (entmod ed)
    )
  )
  (princ)
)

3. 多段线总长度一键统计

• 功能：选中多条直线、多段线，一键统计总长度，无需手动相加，适合型材下料、管路长度计算。
• 调用命令：LEN
• 可复制代码：lisp

(defun c:len (/ ss i ent total len)
  (setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
  (setq total 0.0)
  (if ss
    (repeat (setq i (sslength ss))
      (setq ent (ssname ss (setq i (1- i))))
      (setq len (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)))
      (setq total (+ total len))
    )
  )
  (princ (strcat "\n选中对象总长度: " (rtos total 2 2) " mm"))
  (princ)
)

配套使用教程（可直接放入文章）

1. 新建记事本，将对应代码完整复制粘贴进去；
2. 点击「文件」→「另存为」，文件名自定义（如 gc.lsp），保存类型选「所有文件」，编码选 ANSI；
3. 打开 AutoCAD，命令行输入 APPLOAD 回车，选中保存的 .lsp 文件，点击「加载」；
4. 命令行输入对应调用命令（如 GC），按提示操作即可使用；
5. 如需开机自动加载，可在加载窗口的「启动组」中添加该文件。