[LISP程序]：我也来一个文字合并

ruan_gdqf · 发表于 2004-12-17 23:09:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

原码-----文字合并
;;; 合并文字　
;;; ruantext2to1.lsp

(defun c:r_text2to1()
(setq a (entsel "\n请选择第一个字串：")
b (entsel "\n请选择第二个字串：")
a1 (entget(car a))
a2 (assoc 1 a1)
ah (assoc 40 a1)
h (cdr ah)
ap (assoc 10 a1)
apoint (cdr ap)
string1 (cdr a2)
string2 (cdr(assoc 1 (entget (car b))))
  )
  (setq string (strcat string1 string2)
      a1 (subst (cons 1 string) a2 a1)
  )
  (entmod a1)
  (command ".erase" b "")
  (princ)
)

自由的鱼 · 发表于 2004-12-17 23:56:06

楼主可以把程序再扩展成可以批量选择！

ruan_gdqf · 发表于 2004-12-18 00:02:51

长老请给个提示。
我才学不长时间，考虑不周。希望给以指点。谢谢!

自由的鱼 · 发表于 2004-12-18 00:06:58

程序不错，我的意思是文本合并不一定是以第一个字串的图层或编码为准，也可能以第二个的字串的为准，可以再改进一下，你的LISP水平可比我高，：）

ruan_gdqf · 发表于 2004-12-20 11:07:26

多谢长老指点。我在努力中。

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：我也来一个文字合并

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子