cad lisp怎么创建上下公差

Question

cad lisp，创建文字上公差为+1.00下公差为-2.00，上下堆叠的数字

Answer 1

阿里嘎多学长整理AIGC生成，因移动端显示问题导致当前答案未能完全显示，请使用PC端查看更加详细的解答过程

解决方案

你可以使用以下Lisp代码来创建上下公差的文字：

(defun c:text-gap (text / gap-up gap-down)
  (setq gap-up 1.00
        gap-down -2.00)
  (entmod (list (cons 70 (strcat text " " (rtos gap-up)))
                (cons 71 (strcat text " " (rtos gap-down)))))
  (entupd (car (entlast)))
)

(command "_.text" "hello" "\n" "c:text-gap")

说明

• c:text-gap 是一个函数，它接受一个文本参数，并设置上下公差。
• entmod 函数用于修改当前的实体。
• cons 函数用于添加一个新属性到实体中。
• strcat 函数用于连接字符串。
• rtos 函数用于将数字转换为字符串。
• entlast 函数用于获取当前的实体。
• command 函数用于执行命令。

使用方法

1. 在 AutoCAD 中打开 Lisp 编辑器。
2. 粘贴上面的 Lisp 代码。
3. 运行 c:text-gap 函数，传入一个文本参数（例如 "hello"）。
4. 文字将被创建，并且上下公差将被设置为 +1.00 和 -2.00。