求把一串文字中的空格替换为逗号，把乘号x替换为* - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第3页

664571221 发表于 2018-7-17 15:12:23

bluefcc1 发表于 2018-7-9 16:09
(defun c:ss( / ss osmode i name ent size size_new size_all bak_cecolor)
(setvar "cmdecho" 0)
...

大神你好，生成的字符串两边的括号没有复制到粘贴板

llsheng_73 发表于 2018-7-17 16:24:17

--字符串随意替换--特点:灵活,快速,高效,省事,容错(根据增强型字符串分割写的)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=111935&fromuid=202795
(出处: 明经CAD社区)

多对多替换(需要 a ,b为长度相同的两个表,表内元素全部为字符串)
(Superstrsubst"所有a中指定的的字符串都会替换为b中所指定的字符串" '("字""串")'("A""B"))
"所有a中指定的的A符B都会替换为b中所指定的A符B"

bluefcc1 发表于 2018-7-17 19:44:01

664571221 发表于 2018-7-17 15:12
大神你好，生成的字符串两边的括号没有复制到粘贴板

請將
   (setq bak_cecolor(getvar 'cecolor))
   (set-clip-string size_all)       ;複製到剪貼簿(不含括號)
   (setvar 'cecolor "1")
   (setq size_all(strcat "(" size_all ")"))
修改成
   (setq bak_cecolor(getvar 'cecolor))
   (setvar 'cecolor "1")
   (setq size_all(strcat "(" size_all ")"))
   (set-clip-string size_all)       ;複製到剪貼簿

664571221 发表于 2018-7-22 09:52:33

bluefcc1 发表于 2018-7-9 14:17

你好大侠，这个怎么改成框选

852456 发表于 2018-8-11 19:46:57

看帖回帖是美德

页: 1 2 [3]

明经CAD社区's Archiver