消除前面的0

戏男

liuhe 发表于 2023-6-5 17:10
应该问题不大了

错误: 读入的 (八进制) 字符不正确: 0  加载错误

liuhe

戏男 发表于 2023-6-5 19:34
错误: 读入的 (八进制) 字符不正确: 0  加载错误

》。。。。我测试了没问题，那就你的问题了

lijiao

(defun remove0 (ostr / )
  (if (and (> (strlen ostr) 0)
            (= (substr ostr 1 1) "0")
            )
    (remove0 (substr ostr 2))
    ostr)
  )

ZZXXQQ

(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)
)

KO你

论坛里有前后缀增加与删除的，前缀删除0就行了

戏男

KO你 发表于 2023-6-12 01:16
论坛里有前后缀增加与删除的，前缀删除0就行了

能查得到链接吗？