再求代码,文本代替，后缀

wgij007

两段代码
1，在文本后+设定好的文字
2，将设定好的文字代替原来的文本

有两个要求：1.单行文字与多行文字都可用， 2.字体跟修改的文本字体一样

原贴
http://bbs.mjtd.com/thread-180627-1-1.html

start4444

后缀 tt5,替换 tt6

fangmin723

这两个功能CAD自带的替换就可以做啊
1、“etwt” 替换为 “etwt 放电加工”
2、“etwt” 替换为 “放电加工”

wgij007

fangmin723 发表于 2019-12-11 11:35
这两个功能CAD自带的替换就可以做啊
1、“etwt” 替换为 “etwt 放电加工”
2、“etwt” 替换为 “放电加 ...

不是要全部改，只是需要才改

wgij007

这段只能改标注，如果能改文本就实可以的

(DEFUN C:FE()(SETQ SS(SSGET))(COMMAND"._DIMEDIT" "n"  "<>正面放电深" SS "" ""))

start4444

看懂了cad自带替换命令没有？你的要求直接能满足，自带的已经做得很完美了

wgij007

start4444 发表于 2019-12-12 09:41
看懂了cad自带替换命令没有？你的要求直接能满足，自带的已经做得很完美了

那个替换我知道，你想一下，如果一份图有几百个内容不一样的文本，加同一样的后缀如何。

wudechao

(defun c:gh (/ oos ss ent txt2 n index date1)
  (setvar "cmdecho" 0)
  (setq oos (getvar "osmode"))
  (setvar "osmode" 0)
  (setq txt2 (getvar "users3"))
  (setq txt2 (getstring t (strcat "\n请输入后缀< " txt2 " >:"))
        txt2 (if txt2
               txt2
               (getvar "users3")
             )
  )
  (if (= txt2 "")
    (setq txt2 (getvar "users3"))
  )
  (setvar "users3" txt2)
  (prompt (strcat "\n请选取要加后缀的文本<退出>:"))
  (setq ss (ssget '((0 . "TEXT,MTEXT"))))
  (if (/= ss nil)
    (progn
      (setq date1 (getvar "millisecs")
            index 0
      )
      (repeat (sslength ss)
        (setq ent (entget (ssname ss index)))
        (setq index (+ 1 index))
        (entmod (subst
                  (cons 1 (strcat (cdr (assoc 1 ent)) txt2))
                  (assoc 1 ent)
                  ent
                )
        )
      )
      (prompt (strcat "\n总共给\"" (itoa n) "\"个文本加了后缀\"" txt2 "\".耗时\"" (rtos (/ (- (getvar "millisecs") date1) 1000.000)
                                                                                        2 3
                                                                                  ) "\"秒"
              )
      )
    )
  )
  (setvar "osmode" oos)
  (setvar "cmdecho" 1)
  (princ)
)

wgij007

wudechao 发表于 2019-12-12 13:06
(defun c:gh (/ oos ss ent txt2 n index date1)
  (setvar "cmdecho" 0)
  (setq oos (getvar "osmode") ...

这个也不是我想要的，我是要把设定好的文本内容去加后缀，我连接那代码可以做到，只是有两个问题。1.单行文字与多行文字都可用， 2.字体跟修改的文本字体一样

我要的是替代与+后缀 两种代码。要独立的两种。不要可选的

KO你

单行文字和多行文本都可以加前后缀，(对话框模式并带记忆功能)
快捷键  t+  文字加前后缀
(defun c:t+ ()
  (vl-load-com)
  (setq @dclfiledame (vl-filename-mktemp nil nil ".dcl"))
  (setq @dclfiled (open @dclfiledame "w"))
  (write-line "dzmjjsbdc:dialog {" @dclfiled)
  (write-line "    label = \"文本加前后缀\" ;" @dclfiled)
  (write-line "    :row {" @dclfiled)
  (write-line "        :edit_box {" @dclfiled)
  (write-line "            key = \"textaddstring1\" ;" @dclfiled)
  (write-line "            label = \"前缀\" ;" @dclfiled)
  (write-line "            width = 30  ;" @dclfiled)
  (write-line "        }" @dclfiled)
  (write-line "        :edit_box {" @dclfiled)
  (write-line "            key = \"textaddstring2\" ;" @dclfiled)
  (write-line "            label = \"后缀\" ;" @dclfiled)
  (write-line "            width = 30  ;" @dclfiled)
  (write-line "        }" @dclfiled)
  (write-line "    }" @dclfiled)
  (write-line "        ok_cancel;" @dclfiled)
  (write-line "}" @dclfiled)
  (close @dclfiled)

  ;;以下根据情况处理
  (setq @dclid (load_dialog @dclfiledame))
  (new_dialog "dzmjjsbdc" @dclid)
  ;;设置控件默认值
  (if (and (/= textaddstring1_1 "") (/= textaddstring1_1 nil))
    (set_tile "textaddstring1" textaddstring1_1)
  )
  (if (and (/= textaddstring2_1 "") (/= textaddstring2_1 nil))
    (set_tile "textaddstring2" textaddstring2_1)
  )
  (action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)");;;确定

  (setq return# (start_dialog))
  (cond
    ((= return# 1)
     (prompt "\n 选择文本<退出>")
     (if (setq ss (ssget (list (cons 0 "MTEXT,TEXT"))))
       (repeat (setq k (sslength ss))
(setq ent (ssname ss (setq k (1- k))))
(setq obj (vlax-ename->vla-object ent))
(setq str1 (vla-get-textstring obj))
(vla-put-textstring obj (strcat textaddstring1_1 str1 textaddstring2_1))
       )
     )
    )
  )
  (unload_dialog @dclid)
  (vl-file-delete @dclfiledame)
  (princ)
)

;;;;;获得对话框值
(defun get_dzmjjsbdc_main ()
(setq textaddstring1_1   (get_tile "textaddstring1"))
(setq textaddstring2_1   (get_tile "textaddstring2"))
)