[编程申请]：字符连接之1

lengliqun

点击第一个字符串如A1B，再点击第二个字符串如C2D，则将第二个字符串连接到第一个字符串后且中间加多个空格如A1B C2D。

lengliqun

点击第一个字符串如A1B，再点击第二个字符串如C2D，则将第二个字符串插入到第一个字符串前且中间加多个空格如C2D A1B。

重复发帖！

xyp1964

[php](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")
通用函数下载地址:
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
|;

(defun c:test1 ()
  (cmdla0)
  (setq        s1  (usel1 0 "TEXT" "第一个TEXT文本")
        s2  (usel1 0 "TEXT" "第二个TEXT文本")
        txt (strcat (dxf 1 (entget (car s1)))
                    "   "
                    (dxf 1 (entget (car s2)))
            )
  )
  (sub_upd (CAR s1) 1 txt)
  (vla-erase (obj s2))
  (cmdla1)
)
(defun c:test2 ()
  (cmdla0)
  (setq        s1  (usel1 0 "TEXT" "第一个TEXT文本")
        s2  (usel1 0 "TEXT" "第二个TEXT文本")
        txt (strcat (dxf 1 (entget (car s2)))
                    "   "
                    (dxf 1 (entget (car s1)))
            )
  )
  (sub_upd (CAR s1) 1 txt)
  (vla-erase (obj s2))
  (cmdla1)
)[/php]

lengliqun

CAD2002经测试不能运行，提示为
错误 : no function definition: USEL1
请注意，第一楼与第二楼应编为两个不同LSP程序，并非重复发贴。请大侠再次出手。

有附件

eachy

最初由 lengliqun 发布
[B]CAD2002经测试不能运行，提示为
错误 : no function definition: USEL1
请注意，第一楼与第二楼应编为两个不同LSP程序，并非重复发贴。请大侠再次出手。

有附件 [/B]

第二个请求你改变下选择顺序和第一个有什么不同？

xyp1964

最初由 eachy 发布
第二个请求你改变下选择顺序和第一个有什么不同？

确实不同，扣币有点“冤枉”。呵呵……

lengliqun

1、经测试xyp1964斑竹三楼两个LSP程序可用，谢谢。
2、字符在CAD图中的位置不同啦。

xyp1964

最初由 lengliqun 发布
[B]1、经测试xyp1964斑竹三楼两个LSP程序可用，谢谢。
2、字符在CAD图中的位置不同啦。 [/B]

字符的位置决定于原来的对位方式，建议用MC对位方式。

lengliqun

请大侠将上面两程序增加如下功能：将第二次点击的字符串如C2D删除，因其已连接到其它字符串中去了，不必再保留。

已经修改，见3楼。by xyp1964[/COLOR]