[分享]：添加括号小模块

seany198198 · 发表于 2008-5-8 13:04:27

好东西，感谢共享

clalc · 发表于 2014-8-3 13:16:00

在哪儿下载？

sdlyjc · 发表于 2019-2-20 22:28:10

感谢楼主分享，谢谢

KKIMI · 发表于 2020-2-20 05:09:22

找了好久了，终于找到了，谢谢

KKIMI · 发表于 2020-2-20 05:10:52

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

kmliro_2017 · 发表于前天 07:49

不错，谢谢分享！！！！！

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