zlg258369 发表于 2011-3-3 13:18:25

如何为文字添加前缀

如何为文字添加前缀

http://space.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 zlg258369的微博

yucpp 发表于 2011-3-7 18:21:26

本帖最后由 yucpp 于 2011-3-7 18:22 编辑

这哥们惜字如金呀。
在论坛的lisp源码800例里给你找了个现成的，看看是否满足要求！
;一个加减前、后缀的程序
(DEFUN C:ch3 ()
(setq qh (getint "\n1--加前缀,2--加后缀,<1>"))
(if (= qh nil)(setq qh 1))
(princ "\nselect object:")
(setq s (ssget))
(setq str (getstring "\n输入要加的字:"))
(setq n (sslength s))
(setq k 0 )
(while (< k n)
      (setq name (ssname s k))
      (setq a (entget name))
      (setq t1 (assoc '0 a))
      (setq t1 (cdr t1))
      (if (= t1 "TEXT") (PROGN
      (setq h (assoc '1 a))
      (setq hh (cdr h))
      (if (= qh 1)(setqstr1 (strcat str hh)))
      (if (/= qh 1)(setq str1 (strcat hh str)))
      (setq h1 (cons 1 str1))
      ;(if (= str "") (setq h1 h))
      (setq a (subst h1 h a))
      (entmod a)
      ))
      (setq k (+ k 1))
)
)



yucpp 发表于 2011-3-5 00:03:08

加什么样的前缀？讲明白点呀。

zlg258369 发表于 2011-3-5 14:40:56

回复 yucpp 的帖子

任意字符，文字什么的

yucpp 发表于 2011-3-5 23:00:48

直接双击文字就可以了。

zlg258369 发表于 2011-3-7 16:42:43

回复 yucpp 的帖子

我晕，是自动加

zlg258369 发表于 2011-3-11 08:47:02

回复 yucpp 的帖子

o 谢了！！

2001liulei 发表于 2011-6-23 18:45:05

回复 zlg258369 的帖子

网上有一个CTT的小程序，可能自动添加前缀，不行加我Q，我发你262988659

chenbh2 发表于 2012-10-7 13:52:03

谢谢.我也下了

iszc 发表于 2012-10-8 04:05:23

6#很实用，不知道减前后缀怎么用
页: [1] 2
查看完整版本: 如何为文字添加前缀