计算结果插入

cafa

请高手指点，希望在插入计算结果前加上“=”等于号，不知道如何修改一下代码。还望各位老师指教。
代码如下：
(defun GL:crjswz (GL-result / h la pt sc st ty tzbl)
  (if (/= GL-result "")
   (if (setq pt (getpoint "\n请点取插入点:"))
    (if GL-ed
     (progn
       (setq ty (cdr (assoc 0 GL-ed));字体类型
             st (cdr (assoc 7 GL-ed));字体样式
             la (cdr (assoc 8 GL-ed));图层
             h (cdr (assoc 40 GL-ed));文字高度
             sc (cdr (assoc 47 GL-ed));天正比例
             ;ar (cdr (assoc 41 GL-ed));文字宽高比
             ;co (cdr (assoc 62 GL-ed));颜色
       )
       (if (wcmatch ty "TCH_*")
          (entmake (list
            '(0 . "TEXT")
             (cons 1 GL-result)
             (cons 7 st)
             (cons 8 la)
             (cons 10 pt)
             (cons 40 (* h sc))
             (cons 41 0.8)
           )
          )
          (entmake (list
            '(0 . "TEXT")
             (cons 1 GL-result)
             (cons 7 st)
             (cons 8 la)
             (cons 10 pt)
             (cons 40 h)
             (cons 41 0.8)
           )
          )
       )
     )

烟盒迷唇

(cons 1 (strcat "=" GL-result))

cafa

烟盒迷唇 发表于 2021-7-5 08:16
(cons 1 (strcat "=" GL-result))

万分感谢

cafa

另外，转动坐标轴后插入进来的文字不在鼠标点的位置，会偏的很远，这个怎么解？需要加怎么样的代码？本人小白，还请高手多多指教。