文字偏移Lisp rou帮助
我很快就能完成这段代码，但需要一些最后的润色和操作。。目前，它偏移了特定图层和副本上的所有文本，并将其向上移动“0.15”，这是我们在图形中使用的另一个图层所做的。（我们使用它在标记点上方添加特定描述。）我现在想要的是更改代码，这样就不用偏移/复制/移动图形中缺陷层上的每个文本字符串，而是让它提示我要偏移的单个文本字符串，即（“\n选择要偏移的文本：”），然后，在我做出选择后，它偏移/复制/移动字符串“0.15”，并以其各自的属性放置在缺陷层上。。。
希望有人能尽快插话，感谢大家的支持！ 如果看不到代码，很难帮助。。。
但是，如果您的代码在AutoLISP中，并且使用ssget函数和选择方法“_X”，请尝试将选择方法更改为“_+：E:S”
亨里克 我最真诚的道歉，这对我来说是个新手。。
请参阅下面的代码。
;;;OFFSET DEFICIENCY NOTES
(defun c:DEF ()
(input1)
(execute1))
(defun input1 ()
(setq lay_name "*DEFICIENCY")
(setq ss1 (ssget "X"(list(cons 0 "TEXT")(cons 8 lay_name)))))
(defun execute1 ()
(command "-layer" "n" "TEXT" "c" "104" "TEXT" "")
(command "copy" SS1 "" "0,0" "")
(command "move" SS1 "" "0,0" "@0,.15")
(command "chprop" "p" "" "la" "DEFICIENCY" "")
(princ))
好的，你建议的选择方法非常有效！荣誉有没有办法允许用户继续选择文本，直到点击回车结束命令或单击关闭？现在只是执行一次命令，然后结束。 尝试
;;;OFFSET DEFICIENCY NOTES
(defun c:DEF (/ execute1 input1)
(defun input1 ()
(setq lay_name "*DEFICIENCY")
(princ "\nSelect text to offset: ")
(setq ss1 (ssget "_+.:E:S" (list (cons 0 "TEXT") (cons 8 lay_name))))
)
(defun execute1 ()
(command "-layer" "n" "TEXT" "c" "104" "TEXT" "")
(command "copy" SS1 "" "0,0" "")
(command "move" SS1 "" "0,0" "@0,.15")
(command "chprop" "p" "" "la" "DEFICIENCY" "")
)
(while (input1)
(execute1)
)
(princ)
)
有一个问题，图层文字是为什么而创建的？
亨里克 非常好，谢谢Henrique。我删除了文本层片段，这实际上是我们使用的其他代码的一部分。这是多余的。祝福兄弟！ 不客气！
很高兴我能帮忙
亨里克 你会碰巧有那个偏移文本例程可用吗。。。非常感谢
thnx，
-比尔
页:
[1]