组合两个文本右近

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

尝试在图形中绘制土地使用和楼层数。

这两个。dxf文件是一个接一个的，并且是独立的文本。有没有可能两个正确的lisp，可以结合所有的文本，是在他们之间的一个-在每个顶部。

我现在只是在学习autolisp，我是一个真正的初学者，我认为这将节省我很多时间。

如果有人能帮我，我会非常感激。

我在论坛上找到了一些类似的东西，但不是我真正需要的---

copy


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