liminnet 发表于 2008-6-5 16:56:00

liminnet 发表于 2008-6-5 16:59:00

龙龙仔 发表于 2008-6-5 17:11:00

我u盤中有ch_color程序,可試試

liminnet 发表于 2008-6-5 17:33:00

ZZXXQQ 发表于 2008-6-5 20:28:00

程序未经调试，先试试看。


;保留字号删字尾 明经 ZZXXQQ 2008.6.5
(defun c:tt ()
(if (setq ss (ssget '((0 . "TEXT")))) (progn
(setq i 0)
(repeat (sslength ss)
   (setq ent (entget (ssname ss i))
         i (1+ i)
         txt (cdr(assoc 1 ent))
         j 1 txt1 "" k nil sl (strlen txt))
   (while (< j sl)
    (if (and (>= (setq s (substr j 1)) "0") (<= s "9"))
   (setq txt1 (strcat txt1 s))
(setq k j j sl)
    )
    (setq j (1+ j))
   )
   (if (and k (< k sl)) (progn
    (setq txt (substr txt 1 (+ j 1))
          ent (subst (cons 1 txt) (assoc 1 ent) ent))
    (entmod ent)
   ))
)
))
(princ)
)

龙龙仔 发表于 2008-6-6 08:08:00


(defun C:TT (/ ENT N SS TEXT)
(setq SS (ssget "x" '((1 . "*號*"))))
(setq N 0)
(repeat (sslength SS)
    (setq ENT (entget (ssname SS N)))
    (setq TEXT (cdr (assoc 1 ENT)))
    (entmod
      (subst (cons 1 (substr TEXT 1 (+ 2 (vl-string-search "號" TEXT))))
      (assoc 1 ENT)
      ENT
      )
    )
    (setq N (1+ N))
)
(princ)
)

liminnet 发表于 2008-6-6 08:50:00

龙龙仔 发表于 2008-6-6 14:02:00

<p>(setq SS (ssget "x" '((1 . "*號*")))) 改為 (setq SS (ssget '((1 . "*號*"))))</p>

liminnet 发表于 2008-6-6 14:21:00

dkfylxs 发表于 2013-5-3 17:50:07

看不见................
页: [1]
查看完整版本: caoyin大哥,我知道我问题有点多啦,最近在统计规划图,再帮我一个好吗?