文字样式对话框怎样才能插入自定义对话框

zdqwy19

文字样式对话框的插入形式。

(defun c:test()
  (setq f (vl-filename-mktemp "test.dcl"))
  (setq of (open f "w"))
  (write-line "test : dialog {" of)
  (write-line "label = \"试验\" ;" of)
  (write-line ":button {key = \"m\"; label = \"文字样式\";}" of)
  (write-line "ok_only;" of)
  (write-line "}" of)
  (close of)
  (setq dcl_id (load_dialog f))
  (new_dialog "test" dcl_id)
  (action_tile "m" "(vl-cmdf \"_.STYLE\")")
  (action_tile "accept" "(done_dialog 1)")
  (start_dialog)
  (unload_dialog dcl_id)
  (vl-file-delete f)
  )
自定义插入对话框无论何种形式，command或vl-cmdf均会产生错误

VEVAL-STR+ ARX 命令中发生异常
Unhandled Exception e06d7363 (e06d7363h) at address fd10be0dh
未处理的异常 e06d7363(e06d7363h) ，地址 fd10be0dh

liuhe

2. (defun c:test()
   
3.   (setq f (vl-filename-mktemp "test.dcl"))
   
4.   (setq of (open f "w"))
   
5.   (write-line "test : dialog {" of)
   
6.   (write-line "label = "试验" ;" of)
   
7.   (write-line ":button {key = "m"; label = "文字样式";}" of)
   
8.   (write-line "ok_only;" of)
   
9.   (write-line "}" of)
   
10.   (close of)
    
11.   (setq dcl_id (load_dialog f))
    
12.   (new_dialog "test" dcl_id)
    
13.   (action_tile "m" "(done_dialog 2)")
    
14.   (action_tile "accept" "(done_dialog 1)")
    
15.   (SETQ DD(start_dialog))
    
16.   (IF (= DD 2)(T1))
    
17.   (unload_dialog dcl_id)
    
18.   (vl-file-delete f)
    
19.   )
    
20. (DEFUN T1()
    
21.   (vl-cmdf "_.STYLE"))

(defun c:test()<br />   (setq f (vl-filename-mktemp "test.dcl"))<br />   (setq of (open f "w"))<br />   (write-line "test : dialog {" of)<br />   (write-line "label = "试验" ;" of)<br />   (write-line ":button {key = "m"; label = "文字样式";}" of)<br />   (write-line "ok_only;" of)<br />   (write-line "}" of)<br />   (close of)<br />   (setq dcl_id (load_dialog f))<br />   (new_dialog "test" dcl_id)<br />   (action_tile "m" "(done_dialog 2)")<br />   (action_tile "accept" "(done_dialog 1)")<br />   (SETQ DD(start_dialog))<br />   (IF (= DD 2)(T1))<br />   (unload_dialog dcl_id)<br />   (vl-file-delete f)<br />   )<br /> (DEFUN T1()<br />   (vl-cmdf "_.STYLE"))

zdqwy19

liuhe 发表于 2023-12-4 18:47

象上面那样对话框重叠放置的有没有方法？

liuhe

zdqwy19 发表于 2023-12-4 19:46
象上面那样对话框重叠放置的有没有方法？

不可以调用command 命令，DCL必须是焦点，很多函数无法执行