[求助]：请问版主：何设置使相近的两个单独的字和二为一

tywsc · 发表于 2005-10-7 21:29:56

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

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

×

请教各位高手：
我在编排别人的说明时，原说明文字中：一行中每个字都是独立的，
我用什么lisp命令，才能把这行中的各个字编辑成一个整体？
多谢指教了！

xyp1964 · 发表于 2005-10-7 21:57:35

下载签名栏下的“文本编辑套件”之文本合并，快捷命令：wbhb。

tywsc · 发表于 2005-10-9 23:09:20

感谢您了，我还以为不能实现呢！
请问：1-选择先后/2-X坐标/3-Y坐标
2-X坐标－－－是表示按字的X坐标的大小水平合并吗？

我刚学lisp，能冒昧的请教一下吗：到底是如何实现的啊。能告诉我具体函数吗？真想学一手

xyp1964 · 发表于 2005-10-10 00:29:57

“源码”：

[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]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
;;;文本合并
(defun c:wbhb ()
(Cmdla0)
(setq kw (UKWORD 7
"1 2 3"
"\n合并顺序 : 1-选择先后/2-X坐标/3-Y坐标"
kw
)
)
(cond ((= kw "1")
(princ "\n按选择顺序合并文本，保留和更改第一文本!")
(wbhb-01)
)
((= kw "2")
(princ
"\n按选择文本的X坐标顺序合并文本，保留和更改最左侧文本!"
)
(wbhb-02)
)
((= kw "3")
(princ
"\n按选择文本的Y坐标顺序合并文本，保留和更改最上方文本!"
)
(wbhb-02)
)
)
(Cmdla0)
)
;;;按选择顺序合并，保留和更改第一文本
(DEFUN wbhb-01 ()
(if (SETQ ss (ssget '((0 . "TEXT")))
i -1
)
(progn
(setq s0 (ssname ss (setq i (1+ i)))
tx-s1 (dxf 1 (entget s0))
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx1 (dxf 1 (entget s1))
tx-s1 (STRCAT tx-s1 TX1)
)
(entdel s1)
)
(sub_upd s0 1 tx-s1)
)
)
)
;;;按选择文本的X或Y坐标顺序合并文本!
(defun wbhb-02 ()
(while (not (SETQ SS (ssget '((0 . "TEXT"))))))
(setq i -1
leng (sslength ss)
lst '()
)
(repeat leng
(setq s1 (ssname SS (setq i (1+ i)))
pt (dxf 10 (entget s1))
tx (dxf -1 (entget s1))
pt-tx (cons pt tx)
lst (cons pt-tx lst)
)
(fangshi)
)
(setq s0 (cdr (car lst))
tx-s1 (dxf 1 (entget s0))
lst (cdr lst)
)
(while (setq s1 (cdr (car lst)))
(setq tx1 (dxf 1 (entget s1))
tx-s1 (STRCAT tx-s1 TX1)
lst (cdr lst)
)
(entdel s1)
)
(sub_upd s0 1 tx-s1)
)
;;;排序方式
(defun fangshi ()
(cond ((= kw "2")
(setq lst
(vl-sort lst
(function (lambda (e1 e2) (< (car (car e1)) (car (car e2))))
)
)
)
)
((= kw "3")
(setq lst (vl-sort lst
(function
(lambda (e1 e2) (> (cadr (car e1)) (cadr (car e2))))
)
)
)
)
)
)
(PXYP "WBHB (文本合并)")[/FONT]

[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] 
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; 
 
;;;文本合并 
(defun c:wbhb () 
  (Cmdla0) 
  (setq        kw (UKWORD 7 
                   "1 2 3" 
                   "\n合并顺序 : 1-选择先后/2-X坐标/3-Y坐标" 
                   kw 
           ) 
  ) 
  (cond        ((= kw "1") 
         (princ "\n按选择顺序合并文本，保留和更改第一文本!") 
         (wbhb-01) 
        ) 
        ((= kw "2") 
         (princ 
           "\n按选择文本的X坐标顺序合并文本，保留和更改最左侧文本!" 
         ) 
         (wbhb-02) 
        ) 
        ((= kw "3") 
         (princ 
           "\n按选择文本的Y坐标顺序合并文本，保留和更改最上方文本!" 
         ) 
         (wbhb-02) 
        ) 
  ) 
  (Cmdla0) 
) 
 
;;;按选择顺序合并，保留和更改第一文本 
(DEFUN wbhb-01 () 
  (if (SETQ ss (ssget '((0 . "TEXT"))) 
            i  -1 
      ) 
    (progn 
      (setq s0          (ssname ss (setq i (1+ i))) 
            tx-s1 (dxf 1 (entget s0)) 
      ) 
      (while (setq s1 (ssname ss (setq i (1+ i)))) 
        (setq tx1   (dxf 1 (entget s1)) 
              tx-s1 (STRCAT tx-s1 TX1) 
        ) 
        (entdel s1) 
      ) 
      (sub_upd s0 1 tx-s1) 
    ) 
  ) 
) 
 
;;;按选择文本的X或Y坐标顺序合并文本! 
(defun wbhb-02 () 
  (while (not (SETQ SS (ssget '((0 . "TEXT")))))) 
  (setq        i    -1 
        leng (sslength ss) 
        lst  '() 
  ) 
  (repeat leng 
    (setq s1        (ssname SS (setq i (1+ i))) 
          pt        (dxf 10 (entget s1)) 
          tx        (dxf -1 (entget s1)) 
          pt-tx        (cons pt tx) 
          lst        (cons pt-tx lst) 
    ) 
    (fangshi) 
  ) 
  (setq        s0    (cdr (car lst)) 
        tx-s1 (dxf 1 (entget s0)) 
        lst   (cdr lst) 
  ) 
  (while (setq s1 (cdr (car lst))) 
    (setq tx1        (dxf 1 (entget s1)) 
          tx-s1        (STRCAT tx-s1 TX1) 
          lst        (cdr lst) 
    ) 
    (entdel s1) 
  ) 
  (sub_upd s0 1 tx-s1) 
) 
 
;;;排序方式 
(defun fangshi () 
  (cond        ((= kw "2") 
         (setq lst 
                (vl-sort lst 
                         (function (lambda (e1 e2) (< (car (car e1)) (car (car e2)))) 
                         ) 
                ) 
         ) 
        ) 
        ((= kw "3") 
         (setq lst (vl-sort lst 
                            (function 
                              (lambda (e1 e2) (> (cadr (car e1)) (cadr (car e2)))) 
                            ) 
                   ) 
         ) 
        ) 
  ) 
) 
(PXYP "WBHB  (文本合并)")[/FONT]

tywsc · 发表于 2005-10-10 12:21:39

再次感谢您了，我先吃透了，再请教您。

001_boy · 发表于 2005-10-14 18:14:47

AUTO CAD2004 的EXPRESS下拉菜單中的TEXT中也可以

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

[求助] [求助]：请问版主：何设置使相近的两个单独的字和二为一

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

相关帖子