[编程申请]：麻烦高手们帮忙写个文字追加程序，实现功能如下

guanhuaming · 发表于 2005-7-20 18:52:40

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

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

×

麻烦高手们帮忙写个文字追加程序，实现功能如下：

如果要把“文字B”追加到“文字A”，只要输入命令，先选择“文字A”再选择“文字B”时，“文字A”自动变成“文字A文字B”，并把“文字B”自动删除。谢谢！

如果可以的话，麻烦高手们分享一下lisp源码。

奖励10个金币！

xyp1964 · 发表于 2005-7-20 20:48:17

试试签名栏下的“文本编辑套件”之文本合并：
http://www.xdcad.net/forum/showthread.php?s=&threadid=352703

guanhuaming · 发表于 2005-7-20 22:57:03

我要的是源码，不过还是谢谢楼上的。

xyp1964 · 发表于 2005-7-20 23:31:56

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
(DEFUN C:WBHB ()
(CMDLA0)
(SETQ S1 (car (ENTSEL "\n\t选择主文本 : "))
S2 (car (ENTSEL "\n\t选择被合并文本 : "))
tx1 (dxf 1 (entget s1))
tx2 (dxf 1 (entget s2))
tx3 (STRCAT TX1 TX2)
)
(sub_upd s1 1 tx3)
(COMMAND "ERASE" S2 "")
(CMDLA1)
)
(PXYP "WBHB (文本合并)")
(PRINC)[/FONT]

狂刀 · 发表于 2005-7-21 02:35:44

;;文本追加
;;支持TEXT;MTEXT
;;可连续点选.回车退出.
[php]
(defun c:tta (/ el t1 str t2)
  (if (and(setq el(entsel "\n文本追加;支持TEXT;MTEXT------by狂刀2005.7\n选择文本:"))
   (setq t1 (entget(car el)))
   (wcmatch (cdr (assoc 0 t1))  "*TEXT" ))
(progn
   (setq str (cdr (assoc 1 t1)))
   (while (setq el(entsel "\n选择文本:"))
(if (and (setq t2 (entget(car el)))
         (wcmatch (cdr (assoc 0 t2))  "*TEXT" ))
   (progn
      (setq str (strcat str (cdr(assoc 1 t2)))
            t1  (subst (cons 1 str)(assoc 1 t1)t1))
      (entmod t1)
      (entdel (car el))
   )
)
   )
)
  )(princ)
)[/php]

guanhuaming · 发表于 2005-7-21 13:27:39

刚下载了试了试。真不错！谢谢xyp1964 版主和“狂刀”大侠。

请版主从我的金币中帮忙分别转5块给xyp1964 版主和“狂刀”大侠。谢谢了！

honza · 发表于 2005-7-23 17:08:13

老兄別這麼懶，這種程序看LISP函數表十分鐘就可做得出來，何需來求?

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

[编程申请]：麻烦高手们帮忙写个文字追加程序，实现功能如下

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

相关帖子