dcl对话框嵌套之后,为何不能执行下一个对话框的程序?
 

dcl对话框嵌套之后,为何不能执行下一个对话框的程序?
www.dimcax.com
dcl对话框嵌套之后,为何不能执行下一个对话框的程序?
请使用winrar软件打开rar压缩文件。
( 2.34 kb，已被下载 4 次 )
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
( .99 kb，已被下载 6 次 )
对话框文件必须配合 dia8a.lsp 文件才能显示相应对话框。
文件预览:
我想把几个小程序综合在一个对话框里,也就是用dcl对话框嵌套,可是嵌套之后,点击嵌套的内容之后,下一个对话框也会出现,点击ok后,cad就死机了! 要么就是提示参数错误等等,可是如果我把这些小程序单独分开加载的话,可以顺利地执行,参数设置应该是没问题的啊究竟错在哪里了呢?
请高手帮小弟看看,顺便指导一下,先谢谢了!
d
上传个图片作详细说明.点击第二个对话框的ok程序,cad就不动弹了!
另外,有没有办法在打开第二个对话框后,先暂时关闭第一个对话框?如果不执行第二个对话框里的程序的话,点击"取消",第一个对话框又自动弹出? 请求高人指点,感激不尽!!!
d
明经里这么多高手,指教一下嘛!
d
下面是改过的程序。不过只是在前一个对话框上打开了第二个对话框，未关闭前一个对话框。
以下内容需要帖子数达到5才可以浏览
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
( c:dia8a()
( "cmdecho" 0)
(dcl_dia8a)
()
)
( dcl_dia8a()
( ( ( dcl_id ( "dia8a")) 0) (
( dd 3)
( ( dd 1)
( ( "dia8a" dcl_id) (
(sub_rb1)
( "rb1" "1")
( "kww" "100")
( "khh" "100")
( "rb1" "(sub_rb1)")
( "rb2" "(sub_rb2)")
( "rb3" "( 2)")
( "rb4" "(sub_rb4)")
( "accept" "(ok_dia8a)( 1)")
( dd ())
)
( "unable to display dialog box!")
)
( ( dd 2) (sub_rb3))
)
( dcl_id)
)
( "unable to load dialog box!")
)
( ( dd 1) (draw_dia8a))
)
( sub_rb1()
( ddtype 1)
(show_sld "kimage" "dia8a1")
)
( sub_rb2()
( ddtype 2)
(show_sld "kimage" "dia8a2")
)
( show_sld(key sld)
( x ( key))
( y ( key))
( key)
( 0 0 x y -2)
( 0 0 x y sld)
()
)
( ok_dia8a()
( ww ( ( "kww")))
( hh ( ( "khh")))
)
( draw_dia8a()
( pt1 ( "insert,please:"))
( pt2 ( pt1 0 ww))
( pt3 ( pt2 ( pi 2) hh))
( pt4 ( pt3 pi ( ww 0.5)))
( pt5 ( pt4 ( pi 1.5) ( hh 0.5)))
( pt6 ( pt5 pi ( ww 0.5)))
(
(( ddtype 1)( "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c"))
(( ddtype 2)( "pline" pt6 pt1 pt2 pt3 pt4 "")
( "circle" "2p" pt4 pt6))
)
)
;the type1 and type2;
( sub_rb3()
( "cmdecho" 0)
( word_list'("平面图" "立面图" "总经理室" "楼梯间"
"弹簧" "螺丝" "传真机" "翔虹信息"
"翔虹autocad技术中心"
)
( dcl_dia7a()
; ( dcl_id ( "dia8a"))
()
( ( "dia7a" dcl_id) (
( "klist")
( 'add_list word_list)
()
( "klist" "(sub_klist $value)")
( "accept" "(ok_dia7a)( 1)")
( de( ))
)
( "unable to display dialog box!")
)
( ( de 1) (
( "cmdecho" 1)
( "text" pause pause 0 wordstr)
( "cmdecho" 0)
))
)
( sub_klist(vvs)
( "wordstr" ( ( vvs) word_list))
)
( ok_dia7a()
( wordstr( "wordstr"))
)
踅摸
d
謝謝版主!
謝謝版主的解答!
我先才復制下來，回家再看看能不能再執行。
可是，現在我又發現了一個新的問題：我編寫了一個lisp程序，運行也正常，可是，
我把它編成vlx文件時，它卻提示我的lisp中有錯，用lisp它卻很正常的呀？文件太常，我就不上傳了。
; (compile-files st (d:/�Gω秨祇/standard/inblock.lsp))
[analyzing file "d:/�Gω秨祇/standard/inblock.lsp"]
.....
; warning: run time evaluated expression: path
; warning: run time evaluated expression: blockname
...
; error: malformed list on input
......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
; compilation aborted: fatal errors found.
d
这样好像还是不行啊,版主.还是死机,不知道是怎么回事,我能打开第二个对话框,可是点击ok时,它还是不动了!