给选择的文本或属性加前缀后缀或者两者都加的代码

Lisphk · 发表于 2016-9-21 17:56:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lisphk 于 2016-9-21 18:00 编辑

(defun c:tt (/ rep str ss i sn vl e)
(vl-load-com)
(if
(and (progn
(initget "Prefix Suffix Both")
(setq
rep (getkword "\n Specify your aim [Prefix/Suffix/Both] :")
)
(initget 1)
(setq str (getstring t "\n Enter Text :"))
)
(setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
)
(repeat
(setq i (sslength ss))
(setq sn (ssname ss (setq i (1- i))))
(setq vl (vlax-ename->vla-object sn))
(setq e (entget sn))
(cond (
(eq rep "Prefix")
(vla-put-textstring vl (strcat str (cdr (assoc 1 e))))
)
(
(eq rep "Suffix")
(vla-put-textstring vl (strcat (cdr (assoc 1 e)) str))
)
(
(eq rep "Both")
(vla-put-textstring vl (strcat str (cdr (assoc 1 e)) str))
)
)
)
(princ)
)
(princ)
)

(defun c:tt (/ rep str ss i sn vl e) 
  (vl-load-com) 
  (if 
    (and (progn 
           (initget "Prefix Suffix Both") 
           (setq 
             rep (getkword "\n Specify your aim [Prefix/Suffix/Both] :") 
           ) 
           (initget 1) 
           (setq str (getstring t "\n Enter Text :")) 
         ) 
         (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT")))) 
    ) 
     (repeat 
       (setq i (sslength ss)) 
        (setq sn (ssname ss (setq i (1- i)))) 
        (setq vl (vlax-ename->vla-object sn)) 
        (setq e (entget sn)) 
        (cond ( 
               (eq rep "Prefix") 
               (vla-put-textstring vl (strcat str (cdr (assoc 1 e)))) 
              ) 
              ( 
               (eq rep "Suffix") 
               (vla-put-textstring vl (strcat (cdr (assoc 1 e)) str)) 
              ) 
              ( 
               (eq rep "Both") 
               (vla-put-textstring vl (strcat str (cdr (assoc 1 e)) str)) 
              ) 
        ) 
     ) 
     (princ) 
  ) 
  (princ) 
)

下面的代码呢，还能给MTEXT，属性文字加前缀或后缀。

[it618postdisplay>0]

(defun c:tt (/ PreSuf Str ent Cstr)
(vl-load-com)
(initget "P S")
(setq PreSuf (getkword "\nChoose [Prefix/Suffix] <Suffix>: "))
(if (not PreSuf)
(setq PreSuf "S")
)
(while (not str)
(setq str (getstring T "\nEnter String: "))
(cond ((and (eq str "")
(princ "Null Input Try again")
(setq str nil)
)
)
)
)
(while (and (setq ent (car (nentsel "\nSelect Text/Attribute: ")))
(member (cdr (assoc 0 (entget ent)))
'("TEXT" "MTEXT" "ATTRIB")
)
)
(setq ent (vlax-ename->vla-object ent)
Cstr (vla-get-textstring ent)
)
(vla-put-textstring
ent
(if (eq PreSuf "S")
(strcat Cstr " " str)
(strcat str " " Cstr)
)
)
)
(princ)
)

(defun c:tt (/ PreSuf Str ent Cstr) 
  (vl-load-com) 
  (initget "P S") 
  (setq PreSuf (getkword "\nChoose [Prefix/Suffix]  <Suffix>: ")) 
  (if (not PreSuf) 
    (setq PreSuf "S") 
  ) 
  (while (not str) 
    (setq str (getstring T "\nEnter String: ")) 
    (cond ((and        (eq str "") 
                (princ "Null Input Try again") 
                (setq str nil) 
           ) 
          ) 
    ) 
  ) 
  (while (and (setq ent (car (nentsel "\nSelect Text/Attribute: "))) 
              (member (cdr (assoc 0 (entget ent))) 
                      '("TEXT" "MTEXT" "ATTRIB") 
              ) 
         ) 
    (setq ent  (vlax-ename->vla-object ent) 
          Cstr (vla-get-textstring ent) 
    ) 
    (vla-put-textstring 
      ent 
      (if (eq PreSuf "S") 
        (strcat Cstr " " str) 
        (strcat str " " Cstr) 
      ) 
    ) 
  ) 
  (princ) 
)

[/it618postdisplay]

ynhh · 发表于 2016-9-21 22:34:12

谢谢大师的分享

yoyoho · 发表于 2016-9-22 07:21:37

谢谢Lisphk大师分享程序!!!!

cable2004 · 发表于 2016-9-22 07:55:55

谢谢大师的分享

HLCAD · 发表于 2016-9-22 07:58:32

谢谢楼主的好程序！！！

qht5566 · 发表于 2016-11-19 13:33:53

这个可以有，谢了

sachindkini · 发表于 2016-11-19 14:03:57

see hidden contents

fangleihz · 发表于 2017-4-29 15:16:52

感谢大师的源码

向嘟嘟 · 发表于 2017-4-29 16:03:29

谢谢分享源码。

桥云山 · 发表于 2017-5-3 21:00:34

看看和我的有什么不同，学习一下

行雲 · 发表于 2017-5-4 01:26:12

谢谢分享源码。

xiayuxue213 · 发表于 2017-5-20 23:00:57

看看。。。。。。。。。。。。。。。。

我是人间惆怅客 · 发表于 2017-6-9 17:38:25

学习学习提高自己

sunshinejwt · 发表于 2017-6-9 21:32:06

谢谢大师的分享

lxdz443 · 发表于 2017-6-12 19:33:32

谢谢楼主的好程序

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

[每日一码] 给选择的文本或属性加前缀后缀或者两者都加的代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。