求大神帮忙改个程序

winerfjy

(defun c:fd ()(setvar "cmdecho" 0)(command "dimtedit" (ssget":s") "l" "")(PRINC "尺寸向左完成")(prin1))
(defun c:df ()(setvar "cmdecho" 0)(command "dimtedit" (ssget":s") "R" "")(PRINC "尺寸向右完成")(prin1))
这两个命令能不能加个判断合并为一个命令点选标注值为25的尺寸让在左边的到右边右边的到左边也就是反方向去

winerfjy

问题已经解决，非常感谢E派