求个加前后缀的源码

疯球

要求如图，求哪位大神能做一下

zixuan203344

(defun c:tt4 ();;;;
  (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 "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"))
)

疯球

与贱人工具箱的前后缀一样，谁能写个代码，谢谢！！

Kye

http://bbs.mjtd.com/forum.php?mo ... hlight=%BA%F3%D7%BA
虽然此链接的发帖者 非常不厚道，但可以向ssyfeng大侠讨要啊，要来之后 ，如ssyfeng允许 还把代码贴在这个帖子中比较好


建议明总对设置【此贴仅作者可见】的功能收费，支持论坛的生存

疯球

帮顶出高手吧

satan421

;;entget+assoc得到组码1中的文字内容，多行文字可能需要注意下格式
;;strcat增加前后缀
;;subst替换
;;entmod更新资料
;;还有啥???

疯球

请高手，出手！！

疯球

继续等!,继续等 ！！

疯球

高手都在睡觉吗

疯球

请各路大神给个指示吧