文字偏移Lisp rou帮助

tmelancon · 发表于 2022-7-5 16:34:49

我很快就能完成这段代码，但需要一些最后的润色和操作。。目前，它偏移了特定图层和副本上的所有文本，并将其向上移动“0.15”，这是我们在图形中使用的另一个图层所做的。（我们使用它在标记点上方添加特定描述。）

我现在想要的是更改代码，这样就不用偏移/复制/移动图形中缺陷层上的每个文本字符串，而是让它提示我要偏移的单个文本字符串，即（“\n选择要偏移的文本：”），然后，在我做出选择后，它偏移/复制/移动字符串“0.15”，并以其各自的属性放置在缺陷层上。。。

希望有人能尽快插话，感谢大家的支持！

hmsilva · 发表于 2022-7-5 16:45:28

如果看不到代码，很难帮助。。。

但是，如果您的代码在AutoLISP中，并且使用ssget函数和选择方法“_X”，请尝试将选择方法更改为“_+：E:S”

亨里克

tmelancon · 发表于 2022-7-5 16:59:49

我最真诚的道歉，这对我来说是个新手。。

请参阅下面的代码。

copy

;;;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))

tmelancon · 发表于 2022-7-5 17:03:46

好的，你建议的选择方法非常有效！荣誉有没有办法允许用户继续选择文本，直到点击回车结束命令或单击关闭？现在只是执行一次命令，然后结束。

hmsilva · 发表于 2022-7-5 17:15:55

尝试

copy


;;;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)
)