用“+”串连字符

gogozb · 发表于 2023-1-12 15:30:13

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

e2002 · 发表于 2023-1-14 12:21:40

一般的，我们对于这种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 · 发表于 2023-1-12 19:06:48

感谢大佬分享~

中国梦 · 发表于 2023-1-12 21:37:27

谢谢楼主分享

cjf160204 · 发表于 2023-1-13 10:34:43

谢谢楼主分享

hzyhzjjzh · 发表于 2023-1-13 13:21:13

谢谢楼主分享

magicheno · 发表于 2023-1-14 16:16:09

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

大佬没看到函数呢

gogozb · 发表于 2023-1-14 21:23:41

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

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

戏男 · 发表于 2023-6-9 19:13:53

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

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