对话框如何输入字符串并将其转换成变量进行赋值呢

世人皆醉 · 发表于 2023-4-7 08:26:59

大家好，之前一个社区大佬帮忙写了一个对话框代码，我后面的程序都是在此代码的基础上进行对话框编辑的，但是我发现这个对话框有限制，就是只能输入数字，输入字符串（字母或者其他符号等）就不能用了，求大佬帮我改一下下面的代码，让其无论输入数字或者字符串都能赋予值的变量

(defun c:ss (/ d1 d2 pt0 d3)
(setvar "cmdecho" 0) ;关闭普通命令提示信息
(setvar "osmode" 0) ;关闭对象捕捉状态
(command "._undo" "_begin")
(setq Keys '("d1" "d2" "d3" ))
(if (not bhd4)
(progn
(setq bhd1 1 bhd2 1 bhd3 150)
)) ;设变量初值
;加载DCL对话框
(setq DcLwjm (make_ZDBH_dcl)) ;生成DCL对话框
(setq dcl_id (load_dialog DcLwjm)) ;加载DCL对话框
;激活DCL画面
(if (not (new_dialog "自动编号" dcl_id))
(exit)
)
;控件赋初值
(mapcar '(lambda(Key Val) (set_tile Key Val))
Keys
(list
(rtos bhd1 2 2)
(rtos bhd2 2 2)
(rtos bhd3 2 2)
)
)
;设置d1为焦点
(mode_tile "d1" 2)
;控件相关操作
(foreach Key Keys
(action_tile Key "(set (read (strcat "bh" $key)) (atof (get_tile $key)))
"
)
)
(action_tile "accept" "(done_dialog 1)")
;将控制权交给DCL
(setq do_what (start_dialog))
;终止DCL: (done_dialog 0) (done_dialog 1)
(cond ((= do_what 0)
(princ "\n单击了取消按钮")
)
((= do_what 1)
(princ "\n单击了确定按钮")
; 这里加入进行相应的处理部分

(defun c:ss (/ d1 d2 pt0 d3) 
  (setvar "cmdecho" 0) ;关闭普通命令提示信息 
  (setvar "osmode" 0)  ;关闭对象捕捉状态 
   (command "._undo" "_begin") 
  (setq Keys '("d1" "d2" "d3" )) 
  (if (not bhd4) 
  (progn 
  (setq bhd1 1 bhd2 1 bhd3 150) 
  )) ;设变量初值 
   
    ;加载DCL对话框 
    (setq DcLwjm (make_ZDBH_dcl))      ;生成DCL对话框 
    (setq dcl_id (load_dialog DcLwjm)) ;加载DCL对话框 
 
    ;激活DCL画面 
    (if (not (new_dialog "自动编号" dcl_id)) 
        (exit) 
    ) 
 
    ;控件赋初值 
    (mapcar '(lambda(Key Val) (set_tile Key Val)) 
             Keys 
             (list 
             (rtos bhd1 2 2) 
             (rtos bhd2 2 2) 
       (rtos bhd3 2 2) 
       ) 
    ) 
 
 
 
 
   
    ;设置d1为焦点 
    (mode_tile "d1" 2) 
 
    ;控件相关操作 
    (foreach Key Keys 
        (action_tile Key "(set (read (strcat "bh" $key)) (atof (get_tile $key))) 
                           
                          " 
        ) 
    ) 
   
    (action_tile "accept" "(done_dialog 1)") 
 
    ;将控制权交给DCL 
    (setq do_what (start_dialog)) 
 
    ;终止DCL: (done_dialog 0) (done_dialog 1) 
    (cond ((= do_what 0) 
              (princ "\n单击了取消按钮") 
          ) 
          ((= do_what 1) 
              (princ "\n单击了确定按钮") 
              ; 这里加入进行相应的处理部分

xj6019 · 发表于 2023-4-7 08:27:00

用你的套不习惯，用我习惯的重新套了一遍

yaojing38 · 发表于 2023-4-7 09:28:34

代码不完整，，少了bh4的获取

世人皆醉 · 发表于 2023-4-7 09:30:30

yaojing38 发表于 2023-4-7 09:28
代码不完整，，少了bh4的获取

我知道，BH4只是我用来测试的，可以替换bhd1,bhd2，我现在的疑惑是如果把bhd1改成字符串“1/” "deh-"之类的就会运行出错

xj6019 · 发表于 2023-4-7 10:38:56

开头的部分，替换一下试试，之后的不动
(defun c:ss (/ d1 d2 pt0 d3)
  (setvar "cmdecho" 0) ;关闭普通命令提示信息
  (setvar "osmode" 0)  ;关闭对象捕捉状态
(command "._undo" "_begin")
  (setq Keys '("d1" "d2" "d3" ))
  (if (not bhd4)
(progn
(setq bhd1 "1" bhd2 "1" bhd3 "150")
)) ;设变量初值

;加载DCL对话框
(setq DcLwjm (make_ZDBH_dcl))    ;生成DCL对话框
(setq dcl_id (load_dialog DcLwjm)) ;加载DCL对话框

;激活DCL画面
(if (not (new_dialog "自动编号" dcl_id))
(exit)
)

;控件赋初值
(mapcar
'(lambda(Key Val) (set_tile Key Val))
Keys
(list bhd1 bhd2 bhd3)
)

世人皆醉 · 发表于 2023-4-7 11:26:57

xj6019 发表于 2023-4-7 10:38
开头的部分，替换一下试试，之后的不动
(defun c:ss (/ d1 d2 pt0 d3)
(setvar "cmdecho" 0) ;关闭普 ...

到最后一步还是有问题，显示文字出错，因为我只需要前缀带有字符串，其他都是正常的文字，所以在你的基础上稍微改了一下，最后还是不行大佬有空帮忙看看什么问题，下面是完整代码

(defun make_ZDBH_dcl (/ lst_str str file f)
(setq lst_str
(list
"自动编号:dialog { //定义名字为自动编号的对话框"
" label= "自动编号";//显示在对话框顶部的标签"
" :row{ //引用行"
" :edit_box{ //引用编辑框1"
" label="编号前缀为： "; //编辑框1的标签"
" edit_width=8; //编辑框1的宽度"
" key= "d1";//编辑框1的关键字"
" mnemonic = "d1";//编辑框1的热键"
" }} //编辑框1引用结束"
" :row{ //引用行"
" :edit_box{ //引用编辑框1"
" label="起始数字为： "; //编辑框1的标签"
" edit_width=8; //编辑框1的宽度"
" key= "d2";//编辑框1的关键字"
" mnemonic = "d2";//编辑框1的热键"
" }} //编辑框1引用结束"
" :row{ //引用行"
" :edit_box{ //引用编辑框1"
" label="编号大小为： "; //编辑框1的标签"
" edit_width=8; //编辑框1的宽度"
" key= "d3";//编辑框1的关键字"
" }} //编辑框1引用结束"
" ok_cancel;// 引用ok_cancel组合控件"
"}"
)
)
(setq file (vl-filename-mktemp "DclTemp-ZDBH.dcl"))
(setq fff (open file "w"))
(foreach str lst_str
(write-line str fff)
)
(close fff)
file
)
(defun c:ss (/ d1 d2 pt0 d3)
(setvar "cmdecho" 0) ;关闭普通命令提示信息
(setvar "osmode" 0) ;关闭对象捕捉状态
(command "._undo" "_begin")
(setq Keys '("d1" "d2" "d3" ))
(if (not bhd4)
(progn
(setq bhd1 "1/" bhd2 1 bhd3 150)
)) ;设变量初值
;加载DCL对话框
(setq DcLwjm (make_ZDBH_dcl)) ;生成DCL对话框
(setq dcl_id (load_dialog DcLwjm)) ;加载DCL对话框
;激活DCL画面
(if (not (new_dialog "自动编号" dcl_id))
(exit)
)
;控件赋初值
(mapcar
'(lambda(Key Val) (set_tile Key Val))
Keys
(list bhd1
(rtos bhd2 2 2)
(rtos bhd3 2 2))
)
;设置d1为焦点
(mode_tile "d1" 2)
;控件相关操作
(foreach Key Keys
(action_tile Key "(set (read (strcat "bh" $key)) (atof (get_tile $key)))
"
)
)
(action_tile "accept" "(done_dialog 1)")
;将控制权交给DCL
(setq do_what (start_dialog))
;终止DCL: (done_dialog 0) (done_dialog 1)
(cond ((= do_what 0)
(princ "\n单击了取消按钮")
)
((= do_what 1)
(princ "\n单击了确定按钮")
; 这里加入进行相应的处理部分
(while (< bhd2 9999)
(progn
(setq pt0 (getpoint "\n请选择插入点: "))
(if (null pt0) (exit))
(setq d2s( rtos bhd2 2 2))
(command "color" 1)
(command "text" "m" pt0 bhd3 0 (strcat bhd1 d2s))
(setq bhd2 (1+ bhd2))
(command "color" 7)))
))
(setvar "osmode" 16383) ;打开对象捕捉状态
(princ) ;静默退出
(command "._undo" "_end")
)

(defun make_ZDBH_dcl (/ lst_str str file f) 
  (setq lst_str 
        (list 
         "自动编号:dialog { //定义名字为自动编号的对话框" 
 "     label= "自动编号";//显示在对话框顶部的标签" 
  "     :row{ //引用行" 
  "           :edit_box{ //引用编辑框1" 
  "               label="编号前缀为： "; //编辑框1的标签" 
  "               edit_width=8; //编辑框1的宽度" 
  "               key= "d1";//编辑框1的关键字" 
  "               mnemonic = "d1";//编辑框1的热键" 
  "            }} //编辑框1引用结束" 
  "     :row{ //引用行" 
  "           :edit_box{ //引用编辑框1" 
  "               label="起始数字为： "; //编辑框1的标签" 
  "               edit_width=8; //编辑框1的宽度" 
  "               key= "d2";//编辑框1的关键字" 
  "               mnemonic = "d2";//编辑框1的热键" 
  "            }} //编辑框1引用结束" 
 
  "     :row{ //引用行" 
  "           :edit_box{ //引用编辑框1" 
  "               label="编号大小为：   "; //编辑框1的标签" 
  "               edit_width=8; //编辑框1的宽度" 
  "               key= "d3";//编辑框1的关键字" 
  "            }} //编辑框1引用结束" 
 
             "     ok_cancel;// 引用ok_cancel组合控件" 
             "}" 
       ) 
  ) 
  (setq file (vl-filename-mktemp "DclTemp-ZDBH.dcl")) 
  (setq fff (open file "w")) 
  (foreach str lst_str 
      (write-line str fff) 
  ) 
  (close fff) 
  file 
) 
 
 
 
 
  (defun c:ss (/ d1 d2 pt0 d3) 
  (setvar "cmdecho" 0) ;关闭普通命令提示信息 
  (setvar "osmode" 0)  ;关闭对象捕捉状态 
        (command "._undo" "_begin") 
  (setq Keys '("d1" "d2" "d3" )) 
  (if (not bhd4) 
                (progn 
                        (setq bhd1 "1/" bhd2 1 bhd3 150) 
                )) ;设变量初值 
   
        ;加载DCL对话框 
        (setq DcLwjm (make_ZDBH_dcl))      ;生成DCL对话框 
        (setq dcl_id (load_dialog DcLwjm)) ;加载DCL对话框 
       
        ;激活DCL画面 
        (if (not (new_dialog "自动编号" dcl_id)) 
                (exit) 
        ) 
       
        ;控件赋初值 
        (mapcar 
                '(lambda(Key Val) (set_tile Key Val)) 
                Keys 
                (list bhd1 
                      (rtos bhd2 2 2) 
                      (rtos bhd3 2 2))                
        ) 
 
 
 
 
   
    ;设置d1为焦点 
    (mode_tile "d1" 2) 
 
    ;控件相关操作 
    (foreach Key Keys 
        (action_tile Key "(set (read (strcat "bh" $key)) (atof (get_tile $key))) 
                           
                          " 
        ) 
    ) 
   
    (action_tile "accept" "(done_dialog 1)") 
 
    ;将控制权交给DCL 
    (setq do_what (start_dialog)) 
 
    ;终止DCL: (done_dialog 0) (done_dialog 1) 
    (cond ((= do_what 0) 
              (princ "\n单击了取消按钮") 
          ) 
          ((= do_what 1) 
              (princ "\n单击了确定按钮") 
              ; 这里加入进行相应的处理部分 
 
 
 
 
 
 
 
 
   
   
 
  (while (< bhd2 9999) 
  (progn 
    (setq pt0 (getpoint "\n请选择插入点: ")) 
    (if (null pt0) (exit)) 
    (setq d2s( rtos bhd2 2 2)) 
    (command "color" 1) 
    (command "text" "m" pt0 bhd3 0 (strcat bhd1  d2s)) 
    (setq bhd2 (1+ bhd2)) 
    (command "color" 7))) 
  )) 
   (setvar "osmode" 16383)  ;打开对象捕捉状态 
  (princ) ;静默退出 
  (command "._undo" "_end") 
  )

yaojing38 · 发表于 2023-4-7 12:04:30

本帖最后由 yaojing38 于 2023-4-7 12:15 编辑

;控件相关操作
(foreach Key Keys
      (action_tile Key "(set (read (strcat "bh" $key)) (atof (get_tile $key)))

                        "
      )
)
      ;替换
  (action_tile "d1" "(set (read (strcat "bh" $key)) (read(get_tile $key)))")
      (action_tile "d2" "(set (read (strcat "bh" $key)) (atof (get_tile $key)))")
      (action_tile "d3" "(set (read (strcat "bh" $key)) (atof (get_tile $key)))")

世人皆醉 · 发表于 2023-4-7 13:52:29

xj6019 发表于 2023-4-7 08:27
用你的套不习惯，用我习惯的重新套了一遍

谢谢大佬，学习了

世人皆醉 · 发表于 2023-4-7 14:00:16

yaojing38 发表于 2023-4-7 12:04
;控件相关操作
(foreach Key Keys
(action_tile Key "(set (read (strcat "bh" $key)) ( ...

试了，显示参数太多

tender138 · 发表于 2024-11-5 16:20:07

xj6019 发表于 2023-4-7 08:27
用你的套不习惯，用我习惯的重新套了一遍

不好意思，弱弱的问下，能否不结束程序鼠标右键重新显示对话框继续运行？

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

[提问] 对话框如何输入字符串并将其转换成变量进行赋值呢

最佳答案

本帖子中包含更多资源

点评