DCL对话框内容为空时，怎么写？

yfywk · 发表于 2015-5-28 10:00:42

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

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

×

初次学习写DCL对话框，学写一个符号插入工具，遇到了几个问题：
1、符号比例那里我想要打开对话框就有初始值，我设置为当前标注比例，但只能比例是1时可以，当前比例为**时，就死了
2、对话框中每个内容都设置了默认值，如果未设置值时，lsp立面怎么写，我使用了赋值为“0”没用，赋值为nil也没用
3、比例那里能不能**只输入数字，输入**值弹出非法对话框并继续返回当前对话框进行修改；
以下为源码：
lmfh.DCL

lmfh : dialog {
label = "立面符号插入工具——by 凯凯";
: boxed_column {
: row {
: edit_box {
label = "索引页码： ";
key = "syym_sc";
edit_width = 12;
edit_limit =12;
fixed_width = true;
}
}
: row {
: edit_box {
label = "索引号： ";
key = "syh_sc";
edit_width = 12;
edit_limit =12;
fixed_width = true;
}
}
: row {
: edit_box {
label = "符号比例：";
key = "bl_sc";
edit_width = 12;
edit_limit =12;
fixed_width = true;
}
}
}
: row {
alignment=centered;
fixed_width=true;
: button {
label = "确定";
key = "ins_ok";
width = 8;
}
: spacer { width =2;}
cancel_button;
}
}

lmfh : dialog { 
     label = "立面符号插入工具——by  凯 凯"; 
     : boxed_column { 
       : row { 
        : edit_box { 
              label = "索引页码： "; 
              key = "syym_sc"; 
              edit_width = 12; 
              edit_limit =12; 
              fixed_width = true; 
            } 
          } 
       : row { 
        : edit_box { 
              label = "索引号： "; 
              key = "syh_sc"; 
              edit_width = 12; 
              edit_limit =12; 
              fixed_width = true; 
            } 
          } 
       : row { 
        : edit_box { 
              label = "符号比 例："; 
              key = "bl_sc"; 
              edit_width = 12; 
              edit_limit =12; 
              fixed_width = true; 
            } 
          } 
} 
    : row { 
      alignment=centered; 
      fixed_width=true; 
      : button { 
                      label = "确定"; 
                      key = "ins_ok"; 
                      width = 8; 
       } 
       : spacer { width =2;} 
        cancel_button; 
    } 
}

lisp文件

(defun YL_begin ()
(vl-load-com)
(setq oderr *error*) ;;保存原来的*error*
(setq *error* YL_err) ;;将*error*用自己的错误处理函数替代
(setq odosm (getvar "osmode")) ;;记录当前捕捉方式
(setq odlay (getvar "clayer")) ;;记录当前层
(setq odbpm (getvar "blipmode")) ;;记录当前控制点标记是否可见
(setq odzin (getvar "dimzin")) ;;记录主单位值消零处理方式
(setq odcmd (getvar "cmdecho")) ;;记录命令行回显方式
(setq n2 (getvar "DIMSCALE"))
(setvar "cmdecho" 0) ;;设置命令行不回显
(setvar "blipmode" 0) ;;不显示控制点标记
(setvar "OSMODE" 0);;关闭对象捕捉方式
(setvar "dimzin" 8) ;;对主单位值后续零作消零处理,因为DIMZIN 对 AutoLISP rtos 和 angtos 函数执行实数向字符串转换操作有影响。
(setvar "ORTHOMODE" 1)
(setvar "INSUNITS" 4)
(setvar "INSUNITSDEFTARGET" 4)
)
;;*****************************************************************************
(defun YL_end ()
(setvar "osmode" odosm)
(setvar "blipmode" odbpm)
(setvar "dimzin" odzin) ;;恢复主单位值消零处理方式
(command "layer" "s" odlay "")
(setvar "cmdecho" odcmd)
(setq *error* oderr) ;;恢复原来的*error*
(princ)
)
;;*****************************************************************************
;;YL_err
;;功能：错误处理函数。
(defun YL_err (msg)
(princ (strcat "\n错误:" msg "\n")) ;;打印错误原因
(YL_end) ;;调用函数YL_end恢复程序开始前的设置
(setq *error* oderr) ;;恢复原来的*error*
(princ)
)
(defun Set_layer ()
(vl-load-com)
(setq fh_layer "-符号标注")
(if (=(tblobjname "LAYER" fh_layer) nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS") ;线型
'(62 . 3) ;颜色
'(70 . 0) ;图层状态
(cons 2 fh_layer) ;图层名
)
)
)
);建图层
)
;;;立面符号插入命令，作者：凯凯
(defun c:test (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer)
(command "ATTDIA" 0)
(YL_begin)
(dcl_lmfh)
(YL_end) ;
(princ)
)
(defun dcl_lmfh ()
(setq dcl_id (load_dialog "lmfh"))
(new_dialog "lmfh" dcl_id)
(if (= (get_tile "bl_sc") nil);;;;;;;这里意思是内容为空时，使用了nil没用
(set_tile "bl_sc" (rtos n2));;;;;;;;;;这里设置初始值为当前标注值，但貌似当前标注比例为1时可以，但为别的时就错误死了
)
(set_tile "syym_sc" "-");;;设置引页码为-
(set_tile "syh_sc" "1") ;;;设置索引号1
(action_tile "ins_ok" "(ok_lmfh) (done_dialog 1) ")
(setq dd (start_dialog)) (UNLOAD_DIALOG dcl_id)
(if (= dd 1)
(progn
(setq pt1 (getpoint "\n指定立面符号插入点:"))
(if (= pt1 nil)
(setq pt1 (getpoint "\n*错误*，请指定立面符号插入点或按ESC键结束命令:"))
)
(if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。
(command "INSERT" "klimianp" "0.0" 1 1 0)
)
(Set_layer)
(command "layer" "s" fh_layer "")
(command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp)
)
)
)
(defun ok_lmfh ()
(setq n1 (get_tile "bl_sc"));;;当前标注比例
(if (= n1 "0") ;;;;;;;;这里意思是内容为空时，使用了0没用
(setq n1 n2)
)
(setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03.
(if (= keyk "0") ;;;;;;;;这里意思是内容为空时，使用了0没用
(setq keyk "-")
)
(setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>:
(if (= keyp nil) ;;;;;;;;;;;;这里意思是内容为空时，使用了nil没用
(setq keyp 1)
)
)

(defun YL_begin () 
(vl-load-com) 
(setq oderr *error*) ;;保存原来的*error* 
(setq *error* YL_err) ;;将*error*用自己的错误处理函数替代 
(setq odosm (getvar "osmode")) ;;记录当前捕捉方式 
(setq odlay (getvar "clayer")) ;;记录当前层 
(setq odbpm (getvar "blipmode")) ;;记录当前控制点标记是否可见 
(setq odzin (getvar "dimzin")) ;;记录主单位值消零处理方式 
(setq odcmd (getvar "cmdecho")) ;;记录命令行回显方式 
(setq n2 (getvar "DIMSCALE")) 
(setvar "cmdecho" 0) ;;设置命令行不回显 
(setvar "blipmode" 0) ;;不显示控制点标记 
(setvar "OSMODE" 0);;关闭对象捕捉方式 
(setvar "dimzin" 8) ;;对主单位值后续零作消零处理,因为DIMZIN 对 AutoLISP rtos 和 angtos 函数执行实数向字符串转换操作有影响。 
(setvar "ORTHOMODE" 1) 
(setvar "INSUNITS" 4) 
(setvar "INSUNITSDEFTARGET" 4) 
) 
 
;;***************************************************************************** 
(defun YL_end () 
(setvar "osmode" odosm) 
(setvar "blipmode" odbpm) 
(setvar "dimzin" odzin) ;;恢复主单位值消零处理方式 
(command "layer" "s" odlay "") 
(setvar "cmdecho" odcmd) 
(setq *error* oderr) ;;恢复原来的*error* 
(princ) 
) 
 
;;***************************************************************************** 
;;YL_err 
;;功 能：错误处理函数。 
(defun YL_err (msg) 
(princ (strcat "\n错误:" msg "\n")) ;;打印错误原因 
(YL_end) ;;调用函数YL_end恢复程序开始前的设置 
(setq *error* oderr) ;;恢复原来的*error* 
(princ) 
) 
 
(defun Set_layer () 
(vl-load-com) 
(setq fh_layer "-符号标注") 
(if (=(tblobjname "LAYER" fh_layer) nil) 
(progn 
(entmake (list 
'(0 . "LAYER") 
'(100 . "AcDbSymbolTableRecord") 
'(100 . "AcDbLayerTableRecord") 
'(6 . "CONTINUOUS") ;线型 
'(62 . 3) ;颜色 
'(70 . 0) ;图层状态 
(cons 2 fh_layer) ;图层名 
) 
) 
) 
);建图层 
) 
 
;;;立面符号插入命令，作者：凯凯 
(defun c:test (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer) 
(command  "ATTDIA" 0) 
(YL_begin) 
(dcl_lmfh) 
(YL_end) ; 
(princ) 
) 
 
(defun dcl_lmfh () 
(setq dcl_id (load_dialog "lmfh")) 
(new_dialog "lmfh" dcl_id) 
 
(if (= (get_tile "bl_sc") nil);;;;;;;这里意思是内容为空时，使用了nil没用 
    (set_tile "bl_sc" (rtos n2));;;;;;;;;;这里设置初始值为当前标注值，但貌似当前标注比例为1时可以，但为别的时就错误死了 
  ) 
(set_tile "syym_sc" "-");;;设置引页码为- 
(set_tile "syh_sc" "1") ;;;设置索引号1 
(action_tile "ins_ok" "(ok_lmfh) (done_dialog 1) ") 
(setq dd (start_dialog)) (UNLOAD_DIALOG dcl_id) 
(if (= dd 1) 
            (progn 
           (setq pt1 (getpoint "\n指定立面符号插入点:")) 
           (if (= pt1 nil) 
               (setq pt1 (getpoint "\n*错误*，请指定立面符号插入点或按ESC键结束命令:")) 
            ) 
          (if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。 
               (command "INSERT" "klimianp" "0.0" 1 1 0) 
           ) 
          (Set_layer) 
          (command "layer" "s" fh_layer "") 
          (command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp) 
         ) 
     ) 
) 
 
(defun ok_lmfh () 
(setq n1 (get_tile "bl_sc"));;;当前标注比例 
(if (= n1 "0") ;;;;;;;;这里意思是内容为空时，使用了0没用 
   (setq n1 n2) 
) 
(setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03. 
 (if (= keyk "0") ;;;;;;;;这里意思是内容为空时，使用了0没用 
   (setq keyk "-") 
 ) 
(setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>: 
 (if (= keyp nil) ;;;;;;;;;;;;这里意思是内容为空时，使用了nil没用 
   (setq keyp 1) 
 ) 
)

csharp · 发表于 2015-5-28 12:58:14

"" 空字符

zxq0220 · 发表于 2015-5-28 13:30:51

(defun YL_begin ()
(vl-load-com)
(setq oderr *error*) ;;保存原来的*error*
(setq *error* YL_err) ;;将*error*用自己的错误处理函数替代
(setq odosm (getvar "osmode")) ;;记录当前捕捉方式
(setq odlay (getvar "clayer")) ;;记录当前层
(setq odbpm (getvar "blipmode")) ;;记录当前控制点标记是否可见
(setq odzin (getvar "dimzin")) ;;记录主单位值消零处理方式
(setq odcmd (getvar "cmdecho")) ;;记录命令行回显方式
(setq n2 (getvar "DIMSCALE"))
(setvar "cmdecho" 0) ;;设置命令行不回显
(setvar "blipmode" 0) ;;不显示控制点标记
(setvar "OSMODE" 0);;关闭对象捕捉方式
(setvar "dimzin" 8) ;;对主单位值后续零作消零处理,因为DIMZIN 对 AutoLISP rtos 和 angtos 函数执行实数向字符串转换操作有影响。
(setvar "ORTHOMODE" 1)
(setvar "INSUNITS" 4)
(setvar "INSUNITSDEFTARGET" 4)
)
;;*****************************************************************************
(defun YL_end ()
(setvar "osmode" odosm)
(setvar "blipmode" odbpm)
(setvar "dimzin" odzin) ;;恢复主单位值消零处理方式
(command "layer" "s" odlay "")
(setvar "cmdecho" odcmd)
(setq *error* oderr) ;;恢复原来的*error*
(princ)
)
;;*****************************************************************************
;;YL_err
;;功能：错误处理函数。
(defun YL_err (msg)
(princ (strcat "\n错误:" msg "\n")) ;;打印错误原因
(YL_end) ;;调用函数YL_end恢复程序开始前的设置
(setq *error* oderr) ;;恢复原来的*error*
(princ)
)
(defun Set_layer ()
(vl-load-com)
(setq fh_layer "-符号标注")
(if (=(tblobjname "LAYER" fh_layer) nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS") ;线型
'(62 . 3) ;颜色
'(70 . 0) ;图层状态
(cons 2 fh_layer) ;图层名
)
)
)
);建图层
)
;;;立面符号插入命令，作者：凯凯
(defun c:test (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer)
(command "ATTDIA" 0)
(YL_begin)
(dcl_lmfh)
(YL_end) ;
(princ)
)
(defun dcl_lmfh ()
(setq dcl_id (load_dialog "lmfh"))
(new_dialog "lmfh" dcl_id)
(if (= (get_tile "bl_sc") "");;;;;;;这里意思是内容为空时，使用了nil没用
(set_tile "bl_sc" (rtos n2 2));;;;;;;;;;这里设置初始值为当前标注值，但貌似当前标注比例为1时可以，但为别的时就错误死了
)
(set_tile "syym_sc" "-");;;设置引页码为-
(set_tile "syh_sc" "1") ;;;设置索引号1
(action_tile "ins_ok" "(ok_lmfh) (done_dialog 1) ")
(setq dd (start_dialog))
(unload_dialog dcl_id)
(if (= dd 1) (progn
(setq pt1 (getpoint "\n指定立面符号插入点:"))
(if (= pt1 nil)
(setq pt1 (getpoint "\n*错误*，请指定立面符号插入点或按ESC键结束命令:"))
)
(if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。
(command "INSERT" "klimianp" "0.0" 1 1 0)
)
(Set_layer)
(command "layer" "s" fh_layer "")
(command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp)
))
)
(defun ok_lmfh ()
(setq n1 (get_tile "bl_sc"));;;当前标注比例
(if (= n1 "") ;;;;;;;;这里意思是内容为空时，使用了0没用
(setq n1 n2)
)
(setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03.
(if (= keyk "") ;;;;;;;;这里意思是内容为空时，使用了0没用
(setq keyk "-")
)
(setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>:
(if (= keyp "") ;;;;;;;;;;;;这里意思是内容为空时，使用了nil没用
(setq keyp 1)
)
)

(defun YL_begin () 
(vl-load-com) 
(setq oderr *error*) ;;保存原来的*error* 
(setq *error* YL_err) ;;将*error*用自己的错误处理函数替代 
(setq odosm (getvar "osmode")) ;;记录当前捕捉方式 
(setq odlay (getvar "clayer")) ;;记录当前层 
(setq odbpm (getvar "blipmode")) ;;记录当前控制点标记是否可见 
(setq odzin (getvar "dimzin")) ;;记录主单位值消零处理方式 
(setq odcmd (getvar "cmdecho")) ;;记录命令行回显方式 
(setq n2 (getvar "DIMSCALE")) 
(setvar "cmdecho" 0) ;;设置命令行不回显 
(setvar "blipmode" 0) ;;不显示控制点标记 
(setvar "OSMODE" 0);;关闭对象捕捉方式 
(setvar "dimzin" 8) ;;对主单位值后续零作消零处理,因为DIMZIN 对 AutoLISP rtos 和 angtos 函数执行实数向字符串转换操作有影响。 
(setvar "ORTHOMODE" 1) 
(setvar "INSUNITS" 4) 
(setvar "INSUNITSDEFTARGET" 4) 
) 
;;***************************************************************************** 
(defun YL_end () 
(setvar "osmode" odosm) 
(setvar "blipmode" odbpm) 
(setvar "dimzin" odzin) ;;恢复主单位值消零处理方式 
(command "layer" "s" odlay "") 
(setvar "cmdecho" odcmd) 
(setq *error* oderr) ;;恢复原来的*error* 
(princ) 
) 
;;***************************************************************************** 
;;YL_err 
;;功 能：错误处理函数。 
(defun YL_err (msg) 
(princ (strcat "\n错误:" msg "\n")) ;;打印错误原因 
(YL_end) ;;调用函数YL_end恢复程序开始前的设置 
(setq *error* oderr) ;;恢复原来的*error* 
(princ) 
) 
(defun Set_layer () 
(vl-load-com) 
(setq fh_layer "-符号标注") 
(if (=(tblobjname "LAYER" fh_layer) nil) 
(progn 
(entmake (list 
'(0 . "LAYER") 
'(100 . "AcDbSymbolTableRecord") 
'(100 . "AcDbLayerTableRecord") 
'(6 . "CONTINUOUS") ;线型 
'(62 . 3) ;颜色 
'(70 . 0) ;图层状态 
(cons 2 fh_layer) ;图层名 
) 
) 
) 
);建图层 
) 
;;;立面符号插入命令，作者：凯凯 
(defun c:test (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer) 
(command  "ATTDIA" 0) 
(YL_begin) 
(dcl_lmfh) 
(YL_end) ; 
(princ) 
) 
(defun dcl_lmfh () 
 (setq dcl_id (load_dialog "lmfh")) 
 (new_dialog "lmfh" dcl_id) 
 (if (= (get_tile "bl_sc") "");;;;;;;这里意思是内容为空时，使用了nil没用 
  (set_tile "bl_sc" (rtos n2 2));;;;;;;;;;这里设置初始值为当前标注值，但貌似当前标注比例为1时可以，但为别的时就错误死了 
 ) 
 (set_tile "syym_sc" "-");;;设置引页码为- 
 (set_tile "syh_sc" "1") ;;;设置索引号1 
 (action_tile "ins_ok" "(ok_lmfh) (done_dialog 1) ") 
 (setq dd (start_dialog)) 
 (unload_dialog dcl_id) 
 (if (= dd 1) (progn 
  (setq pt1 (getpoint "\n指定立面符号插入点:")) 
  (if (= pt1 nil) 
   (setq pt1 (getpoint "\n*错误*，请指定立面符号插入点或按ESC键结束命令:")) 
  ) 
  (if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。 
   (command "INSERT" "klimianp" "0.0" 1 1 0) 
  ) 
  (Set_layer) 
  (command "layer" "s" fh_layer "") 
  (command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp) 
 )) 
) 
(defun ok_lmfh () 
 (setq n1 (get_tile "bl_sc"));;;当前标注比例 
 (if (= n1 "") ;;;;;;;;这里意思是内容为空时，使用了0没用 
   (setq n1 n2) 
 ) 
 (setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03. 
 (if (= keyk "") ;;;;;;;;这里意思是内容为空时，使用了0没用 
  (setq keyk "-") 
 ) 
 (setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>: 
 (if (= keyp "") ;;;;;;;;;;;;这里意思是内容为空时，使用了nil没用 
  (setq keyp 1) 
 ) 
)

yfywk · 发表于 2015-5-28 14:54:21

比例那里能不能只输入数字，输入非数值时弹出非法对话框并继续返回当前对话框进行修改

st788796 · 发表于 2015-5-28 20:51:11

yfywk 发表于 2015-5-28 14:54
比例那里能不能只输入数字，输入非数值时弹出非法对话框并继续返回当前对话框进行修改

http://bbs.xdcad.net/thread-676321-1-5.html

yfywk · 发表于 2015-6-1 13:10:04

还是不太懂，需要另外写一个错误的对话框吗？

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

[求助] DCL对话框内容为空时，怎么写？

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