如何为文字添加前缀

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

如何为文字添加前缀

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)(setq  str1 (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#很实用，不知道减前后缀怎么用

账号		自动登录	找回密码
密码			注册