新建单行文字lisp代码报错

lzspain

本人是LISP小白，为了解决工作中的小问题，让AI写了一个lisp程序。主要功能如下：选择一个单行文本（可理解为初始高程），指定计算基点和目标点，在世界坐标系下计算两点Y坐标之差，生成一个新文本，即新文本=旧文本+目标点Y坐标-基点Y坐标。但效果不理想，最终生成的文本并没有在目标点位置，而是在原点处，我想要的结果是新文本左下角和目标点对齐，AI调试了一个多小时也不能实现。以下是代码和运行后的提示：


(defun c:gwz ()
  (setq numText nil)

  ;; 提示用户选择纯数字文本
  (prompt "\n请选择一个纯数字单行文字：")
  (setq sel (ssget '((0 . "TEXT")))) ; 仅选择单行文字对象
  
  (if sel
    (progn
      ;; 获取所选文本对象
      (setq ent (ssname sel 0))
      (setq numText (cdr (assoc 1 (entget ent)))) ; 获取文本内容
      (prompt (strcat "\n选中的文本内容是: " numText)) ; 调试信息

      ;; 检查文本是否为纯数字（支持负号和小数点）
      (if (and numText (not (vl-string-search "[^0-9.-]" numText)))
        (progn
          ;; 提示选择计算基点
          (prompt "\n请选择计算基点：")
          (setq basePoint (getpoint))

          ;; 输出基点的值
          (prompt (strcat "\n基点的坐标是: " (rtos (car basePoint) 2 4) ", " (rtos (cadr basePoint) 2 4)))

          ;; 提示选择目标点
          (prompt "\n请选择目标点：")
          (setq targetPoint (getpoint))

          ;; 输出目标点的值
          (prompt (strcat "\n目标点的坐标是: " (rtos (car targetPoint) 2 4) ", " (rtos (cadr targetPoint) 2 4)))

          ;; 计算 Y 值的差值
          (setq baseY (cadr basePoint)
                targetY (cadr targetPoint)
                diffY (- targetY baseY))

          ;; 确保将文本内容转换为浮点数
          (setq originalNumber (atof numText)) ; 使用 atof 转换为浮点数
          (prompt (strcat "\n原始数字是: " (rtos originalNumber 2 4))) ; 调试信息
         
          ;; 计算新的数字
          (setq newNumber (+ originalNumber diffY))
          (prompt (strcat "\n计算后的新数字是: " (rtos newNumber 2 4))) ; 调试信息

          ;; 用户输入小数位数
          (setq decimal-places (getint "\n请输入小数位数（0表示无小数位）："))

          ;; 根据用户输入的小数位数生成新的文本内容
          (setq formattedNewText (rtos newNumber 2 decimal-places))

          ;; 输出新的文本内容
          (prompt (strcat "\n格式化后的新文本内容是: " formattedNewText)) ; 调试信息

          ;; 获取原文本的属性
          (setq textStyle (cdr (assoc 7 (entget ent))) ; 字体样式
                height (cdr (assoc 40 (entget ent))) ; 字高
                width (cdr (assoc 41 (entget ent)))  ; 字宽
                align (cdr (assoc 72 (entget ent)))  ; 对齐样式
                newPoint (list (car targetPoint) (cadr targetPoint))) ; 新文本位置

          ;; 输出文本属性和位置调试信息
          (prompt (strcat "\n新文本位置: " (rtos (car newPoint) 2 4) ", " (rtos (cadr newPoint) 2 4)))
          (prompt (strcat "\n文本样式: " textStyle ", 字高: " (rtos height 2 4) ", 字宽: " (rtos width 2 4)))

          ;; 创建新的文本对象
          (setq newTextEnt (entmake
            (list
              (cons 0 "TEXT")
              (cons 1 formattedNewText)       ; 新文本内容
              (cons 10 newPoint)              ; 文本位置
              (cons 40 height)                ; 字高
              (cons 41 width)                 ; 字宽
              (cons 7 textStyle)              ; 字体样式
              (cons 72 align)                 ; 对齐样式
              (cons 210 '(0 0 1))             ; 文本的法向量
            )))

          ;; 调整文本位置以确保左下角在目标点
          (if newTextEnt
            (progn
              ;; 计算文本的偏移量
              (setq textHeight (cdr (assoc 40 (entget newTextEnt)))
                    offsetY (* 0.5 textHeight)) ; 偏移为高度的一半

              ;; 移动文本到目标点
              (command "MOVE" newTextEnt "" newPoint (list (car targetPoint) (+ (cadr targetPoint) offsetY)))

              (prompt "\n新文本已创建，内容为：")
            )
            (prompt "\n文本创建失败！"))
          (princ formattedNewText)
        )
        (prompt "\n非纯数字文本对象！")
      )
    )
    (prompt "\n未选择任何对象！")
  )
  (princ)
)

(princ "\n命令 gwz 已加载，请使用 gwz 命令。")


运行后提示如下：

命令: GWZ

请选择一个纯数字单行文字：
选择对象: 找到 1 个

选择对象:
选中的文本内容是: 3564.12
请选择计算基点：
基点的坐标是: 1983.5526, 1754.0645
请选择目标点：
目标点的坐标是: 1983.5526, 1751.4645
原始数字是: 3564.12
计算后的新数字是: 3561.52
请输入小数位数（0表示无小数位）：2

格式化后的新文本内容是: 3561.52
新文本位置: 1983.5526, 1751.4645
文本样式: 横断面, 字高: 1, 字宽: 0.7; 错误: 参数类型错误: lentityp ((0 . "TEXT") (1 . "3561.52") (10 1983.55 1751.46) (40 . 1.0) (41 . 0.7) (7 . "横断面") (72 . 1) (210 0 0 1))


本想让程序自行判断小数位数，奈何一直报参数类型错误，无法解决，故采用手动输入小数位数的方式。恳请大佬出手调整一下代码，让最终生成的文本在目标点位置，且左下角与目标点对齐，能自动计算、匹配小数位数更好。