;批量替换文本值
(defun c:rep()
(setq s (ssget (list (cons 0 "text"))))
(setq sl (sslength s))
(setq str (getstring "替换为:"))
(setq st 0)
(while (< st sl)
(setq e (entget (ssname s st)))
(setq st(1+ st))
(setq src (cdr (assoc 1 e)))
(setq e (subst (cons 1 str) (assoc 1 e) e))
(entmod e)
(princ (strcat src "替换为" str "\n"))
)
(princ (strcat "已替换" (itoa st) "项\n"))
(setq ret nil)
)
autolisp批量替换cad中文本值
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 17114 阅读
-
Bootstrap4显示和隐藏元素 5076 阅读
-
mysql批量去除重复记录 4165 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 4130 阅读
-
-
loadjs - javascript动态载入css和js文件 2092 阅读
-
BT宝塔中安装nodejs 2026 阅读
-
github无法加载或不显示图片问题 1910 阅读