计算结果插入
请高手指点，希望在插入计算结果前加上“=”等于号，不知道如何修改一下代码。还望各位老师指教。代码如下：
(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)) 烟盒迷唇 发表于 2021-7-5 08:16
(cons 1 (strcat "=" GL-result))
万分感谢 另外，转动坐标轴后插入进来的文字不在鼠标点的位置，会偏的很远，这个怎么解？需要加怎么样的代码？本人小白，还请高手多多指教。
页:
[1]