wangxf888 发表于 2019-11-22 13:47:16

两个命令的合并问题，请高手指点迷津!

前两天借用了论坛上的一段代码获取字高，忘了哪位朋友写的了，现在我想获取字高后，再用Scaletext这个命令调整字高，但是就是不知道怎么合并这两个命令，用了IF Progn 也不成功，恳请高手指点！代码如下：

(defun c:test()
(setq e (ssget "_+.:E:S" '((0 . "TEXT"))))
   (setq e (ssname e 0))
   (setq en (entget e))
   (setq TextW (cdr (assoc 40 en)))
(princ (strcat"\n所选字高: "(rtos TextW 2 2)))
；；；不知道上下这两部分怎么合并起来；；；
;(command "scaletext" en "" "m" "S" pause))
(princ)
)

有老各位了！:handshake

start4444 发表于 2019-11-22 16:10:59

(defun c:tt5(/ e en nh textw)
        (setq e (ssget ":S" '((0 . "*TEXT"))))
        (setq e (ssname e 0))
        (setq en (entget e))
        (setq TextW (cdr (assoc 40 en))
                  nh    (getreal (strcat"\n所选字高["(rtos TextW 2 2) "] >>> 输入缩放系数：")))
        (command "scaletext" e "" "m" "S" nh)
        (princ)
)

wangxf888 发表于 2019-11-22 17:24:04

start4444 发表于 2019-11-22 16:10
(defun c:tt5(/ e en nh textw)
        (setq e (ssget ":S" '((0 . "*TEXT"))))
        (setq e (ssname e 0))


感谢！感谢！完全是我想要的效果 ！   再次感谢！
页: [1]
查看完整版本: 两个命令的合并问题，请高手指点迷津!