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命令更省事！！！！
页: [1]
查看完整版本: 求一个程序，框选更换格式