Fleybovich 发表于 2022-7-5 23:19:09

组合两个文本右近

尝试在图形中绘制土地使用和楼层数。
 
这两个。dxf文件是一个接一个的，并且是独立的文本。有没有可能两个正确的lisp，可以结合所有的文本，是在他们之间的一个-在每个顶部。
 
我现在只是在学习autolisp，我是一个真正的初学者，我认为这将节省我很多时间。
 
如果有人能帮我，我会非常感激。
 
我在论坛上找到了一些类似的东西，但不是我真正需要的---

(defun c:txts (/ a b aa bb all txtheight)
(prompt "\nThis is to goin tow texts in one ... ")
(setq a(entget(car(entsel"\nSelect first Text: "))))
(setq aa(cdr (assoc 1 a)))
(setq b(entget(car(entsel"\nSelect second Text: "))))
(setq bb(cdr (assoc 1 b)))
(setq all(strcat aa bb))
(setq txtheight(cdr(assoc 40 a)))
(command "_.text" pause txtheight "" all)
(princ)
(princ "made By tharwat313@yahoo.com")
(princ)
)

MSasu 发表于 2022-7-5 23:24:33

这将在字符串串联中添加所需的字符：
 
(setq all (strcat aa " - " bb))
 
当做

Fleybovich 发表于 2022-7-5 23:26:35

所以这是可行的，虽然我必须分别完成我想合并的每两件事，这比编辑每件事要好，这包括很多步骤，但我在论坛上读到，如果你用两个字符和数字列表制作一个矩阵，那么我们可以合并所有它们，并将它们放回它们所属的位置。
是这样吗？

MSasu 发表于 2022-7-5 23:29:08

在用户决定取消选择之前重复该操作如何？
 
关于，

MSasu 发表于 2022-7-5 23:32:23

或者，这个可能更适合您的需要：
 
问候，

Fleybovich 发表于 2022-7-5 23:35:28

谢谢你，我的朋友。
 
这将节省我很多时间！
 
这个论坛真是太棒了
 
祝你有美好的一天

MSasu 发表于 2022-7-5 23:41:18

很高兴帮助你！不客气！
 
当做

alanjt 发表于 2022-7-5 23:43:36

如果文本堆叠在一起，你可以使用这样的东西。。。
 
4
慢慢地度过一天，享受一点乐趣。

Tharwat 发表于 2022-7-5 23:46:20

 
非常感谢。
 
当做
塔瓦特

MSasu 发表于 2022-7-5 23:49:49

 
像这样公开你的电子邮件地址不是一个好主意-这就像邀请垃圾邮件发送者一样。
 
当做
页: [1] 2
查看完整版本: 组合两个文本右近