用“+”串连字符

gogozb

2. (defun c:tt13(/ en ent entbak i jia m n name namebak ss str)
   
3.   (setq str "")
   
4.   (setq jia "+")
   
5.   (setq ss (ssget '((0 . "text"))))
   
6.   (setq i 0)
   
7.   (repeat (sslength ss)
   
8.     (setq name (ssname ss i))
   
9.     (print name)
   
10.     (setq str (strcat str (cdr (assoc 1 (setq ent (entget name)))) jia))
    
11.     (print i)
    
12.     (print str)
    
13.     (if (= i (- (sslength ss) 1))
    
14.         (setq str (vl-string-trim "+" str))
    
15.     )
    
16.     (if (null entbak)
    
17.       (setq entbak ent  namebak name)
    
18.       (progn (entmod (subst(cons 1 str)(assoc 1 entbak) entbak ))(entdel name))
    
19.     )
    
20.     (redraw namebak 3)
    
21.     (if namebak (redraw namebak 4) )   
    
22.     (setq i (1+ i))
    
23.   )
    
24.   (princ)  
    
25. )

(defun c:tt13(/ en ent entbak i jia m n name namebak ss str)<br />   (setq str "")<br />   (setq jia "+")<br />   (setq ss (ssget '((0 . "text"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq name (ssname ss i))<br />     (print name)<br />     (setq str (strcat str (cdr (assoc 1 (setq ent (entget name)))) jia))<br />     (print i)<br />     (print str)<br />     (if (= i (- (sslength ss) 1))<br />         (setq str (vl-string-trim "+" str))<br />     )<br />     (if (null entbak)<br />       (setq entbak ent  namebak name)<br />       (progn (entmod (subst(cons 1 str)(assoc 1 entbak) entbak ))(entdel name))<br />     )<br />     (redraw namebak 3)<br />     (if namebak (redraw namebak 4) )    <br />     (setq i (1+ i))<br />   )<br />   (princ)  <br /> )

e2002

一般的，我们对于这种Strings的各种常用操作，会写成通用的函数。
各种语言的 string类 都提供了很多的这些函数。

就这个String的Join操作，分隔字符串可以是任意的一个 String， 而不限于是 “+”。

（vllib_string_JoinBy sSeparator lsStingList iReturnType)
;; Pars:
;; sSeparator : 分隔字符串
;; lsStringList : 字符串列表， 格式为 '("a" "b" "c" ...)
;; iReturnType : 返回值类型，整数：[0-3]
;;                     =0 :  "a/b/c/d"
;;                     =1 : "/a/b/c/d"
;;                     =2 : "a/b/c/d/"
;;                     =3 :"/a/b/c/d/"
;; 返回值：字符串                  

magicheno

感谢大佬分享~

中国梦

谢谢楼主分享

cjf160204

谢谢楼主分享

hzyhzjjzh

谢谢楼主分享

magicheno

e2002 发表于 2023-1-14 12:21
一般的，我们对于这种Strings的各种常用操作，会写成通用的函数。
各种语言的 string类 都提供了很多的这 ...

大佬没看到函数呢

gogozb

e2002 发表于 2023-1-14 12:21
一般的，我们对于这种Strings的各种常用操作，会写成通用的函数。
各种语言的 string类 都提供了很多的这 ...

谢谢指教，我熟悉vba，不熟悉autolisp，因工作需要才开始学，知识点很碎片化不系统，用到东西都是网上摘抄修改而成。于菜鸟的我还请指点方向，想系统性的学习autolisp。

戏男

真能把所有数字列成+法？