求一个程序，框选更换格式

wgij007 · 发表于 2021-7-28 08:09:48

直接用代码改

845245015 · 发表于 2021-7-28 08:09:49

(defun c:tt1 ( / ss i ent entg str)
  (if (not ss) (setq ss (ssget (list '(0 . "MTEXT,TEXT")))))
  (setq i 0)
  (repeat (sslength ss)
(setq ent (ssname ss i))
(setq entg (entget ent))
(setq str (vl-string-translate "." "-" (cdr (assoc 1 entg))))
(setq ent (subst (cons 1 str) (assoc 1 entg) entg))
(entmod ent)
(setq i (1+ i))
)
  )

wgij007 · 发表于 2021-7-28 18:59:44

845245015 发表于 2021-7-28 08:09
(defun c:tt1 ( / ss i ent entg str)
(if (not ss) (setq ss (ssget (list '(0 . "MTEXT,TEXT")))))
...

真的非常感谢！

xj6019 · 发表于 2021-7-28 22:48:17

学习了，这种方式处理起来看着好省事

paulpipi · 发表于 2021-7-31 10:08:44

轮回 · 发表于 2021-12-29 14:01:32

其实这个不是用cad自带的find命令更省事！！！！

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

[提问] 求一个程序，框选更换格式

最佳答案