标注的文字用lisp怎么设置移动一点距离

xj6019

标注的数值用lisp怎么设置移动，移动的方向沿着引出标注的方向（垂直方向），移动的距离在lisp里面设置就好，移动距离预设为0.01,也可以理解为调整尺寸值距离尺寸线的位置，在默认距离的情况下，相对增加距离0.01（注意：不是与尺寸线的绝对距离）
能支持先选后输命令执行，而且支持先输命令后选择，两种方式都可以
谁抽空帮忙写一下吧，我很需要用这个功能，劳驾您了，谢谢！！

start4444

还是小尾巴的问题？我前后对比一下移动0.01之后，其实是改动了70组码的数值，下面代码直接改的数值看看行不行得通

(defun c:tt5 (/ ent entd i ss)
        (setq ss (ssget '((0 . "DIMENSION"))) i 0)       
        (repeat (sslength ss)
                (setq ent (ssname ss i)
                        entd (entget ent)
                        i (1+ i)               
                )
                (entmod (setq entd (subst (cons 70 160) (assoc 70 entd) entd))))
        (princ)
)

xj6019

start4444 发表于 2020-1-5 15:13
还是小尾巴的问题？我前后对比一下移动0.01之后，其实是改动了70组码的数值，下面代码直接改的数值看看行不 ...

非常完美，就这效果。先输入命令的情况下，可以不按空格确认，直接鼠标一点击，直接执行吗？这样优化一下，更完美！！谢谢！！

start4444

xj6019 发表于 2020-1-5 17:02
非常完美，就这效果。先输入命令的情况下，可以不按空格确认，直接鼠标一点击，直接执行吗？这样优化一下 ...

第一句改为：(setq ss (ssget ":S" '((0 . "DIMENSION"))) i 0)       

xj6019

start4444 发表于 2020-1-5 19:17
第一句改为：(setq ss (ssget ":S" '((0 . "DIMENSION"))) i 0)

非常感谢，完美解决！！！！愁了好几天了，终于搞定了！！！

kenken

如果水平方向移动咋整？