应该问题不大了
错误: 读入的 (八进制) 字符不正确: 0加载错误{:1_1:} 戏男 发表于 2023-6-5 19:34
错误: 读入的 (八进制) 字符不正确: 0加载错误
》。。。。我测试了没问题，那就你的问题了:L (defun remove0 (ostr / )
(if (and (> (strlen ostr) 0)
(= (substr ostr 1 1) "0")
)
(remove0 (substr ostr 2))
ostr)
) (defun c:tt ()
(if (setq ss (ssget '((0 . "TEXT"))))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i)))))
(setq txt (cdr(assoc 1 ent)))
(setq j 1)
(while (= (substr txt j 1) "0") (setq j (1+ j)))
(entmod (subst (cons 1 (substr txt j)) (assoc 1 ent) ent))
)
)
(princ)
)
论坛里有前后缀增加与删除的，前缀删除0就行了 KO你 发表于 2023-6-12 01:16
论坛里有前后缀增加与删除的，前缀删除0就行了
能查得到链接吗？{:1_1:}
页:
1
[2]