[LISP]请帮忙举例说明怎么样隐藏当前的对话框，在屏幕上取一点后又再出现？

badgirl 发表于 2004-8-23 14:01:00

精灵王 发表于 2004-8-23 14:15:00

当对话框被激活时，用户不能进行交互式选择。如果想让用户在图形屏幕上选择，则必须先隐藏对话框，然后再将其恢复。隐藏对话框与用 done_dialog 来关闭对话框是相同的，但回调函数必须调用 done_dialog 的 status 参数指示该对话框是被隐藏而不是结束或取消。应将 status 参数设置为应用程序定义的值。<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

当对话框消失时，start_dialog 函数返回应用程序定义的 status。然后，程序必须检查 start_dialog 返回的状态以决定下一步动作。关于 status 的标准值和程序定义值的信息，请参见 AutoLISP 参考中的 done_dialog!AL(`XREF_18063_vlref',1)。 <o:p></o:p>

例如，有一个简单的对话框，需要用户在 AutoCAD 图形窗口中拾取一点：<o:p></o:p>

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 174pt; HEIGHT: 70.5pt" type="#_x0000_t75"><v:imagedata o:title="" src="file:///C:\DOCUME~1\ssj\LOCALS~1\Temp\msohtml1\01\clip_image001.png"></v:imagedata></v:shape><o:p></o:p>

该对话框用下列 DCL 定义：<o:p></o:p>

hidedcl : dialog<o:p></o:p>

{ label="Hide Example";<o:p></o:p>

 : column<o:p></o:p>

 { : text<o:p></o:p>

 { key="message";<o:p></o:p>

 label="Click PickMe to pick a point";<o:p></o:p>

 fixed_width=true;<o:p></o:p>

 fixed_height=true;<o:p></o:p>

 alignment=centered;<o:p></o:p>

 }<o:p></o:p>

 :row<o:p></o:p>

 { ok_only;<o:p></o:p>

 :retirement_button<o:p></o:p>

 { label = "PickMe";<o:p></o:p>

 key = "hide";<o:p></o:p>

 mnemonic = "H";<o:p></o:p>

 }}}}<o:p></o:p>

控制对话框的函数显示窗口，直到用户选择了“OK”或关闭窗口为止。如果用户选择“PickMe”，代码将隐藏对话框并提示用户选择一点。下列 AutoLISP 代码控制该对话框：<o:p></o:p>

(defun c:hidedcl (/ dcl_id what_next cnt)<o:p></o:p>

 (setq dcl_id (load_dialog "hidedcl.dcl")) ;加载对话框 <o:p></o:p>

 (setq what_next 2)<o:p></o:p>

 (setq cnt 1)<o:p></o:p>

 (while (>= what_next 2) ;开始显示循环 <o:p></o:p>

 (if (null (new_dialog "hidedcl" dcl_id)) ;初始化对话框 <o:p></o:p>

 (exit) ;如果返回 nil 则退出 <o:p></o:p>

 ); endif<o:p></o:p>

 ; 设置按钮被按下后执行的动作。每个按钮都调用 done_dialog <o:p></o:p>

 ; 关闭对话框 <o:p></o:p>

 ; 每个按钮都将一个特定的状态代码与 done_dialog 相关联， <o:p></o:p>

 ; 并且该状态代码由 start_dialog 返回。 <o:p></o:p>

 <o:p></o:p>

 (action_tile "accept" "(done_dialog 1)") ;设置 OK 的动作 <o:p></o:p>

 (action_tile "hide" "(done_dialog 4)") ;设置 PickMe的动作 <o:p></o:p>

 (setq what_next (start_dialog)) ;显示对话框 <o:p></o:p>

 ; <o:p></o:p>

(cond<o:p></o:p>

 ((= what_next 4) ;提示用户<o:p></o:p>

 (getpoint "\npick a point") ;拾取 pt<o:p></o:p>

 )<o:p></o:p>

((= what_next 0)<o:p></o:p>

 (prompt "\nuser cancelled dialog")<o:p></o:p>

 )<o:p></o:p>

 )<o:p></o:p>

 )<o:p></o:p>

 (unload_dialog dcl_id)<o:p></o:p>

 (princ)<o:p></o:p>

)<o:p></o:p>

注意 term_dialog 函数立即关闭对话框，但不返回状态码，因此应用程序不能区分嵌套对话框的隐藏和因为错误而导致的对话框被取消。<o:p></o:p>

badgirl 发表于 2004-8-23 17:15:00

谢谢您！

spring 发表于 2004-8-23 17:29:00

为什么不看帮助文件呢???

badgirl 发表于 2004-8-24 13:12:00

帮助文件也看了，只是没有搞明白，才发了个贴请求帮助。

meflying 发表于 2004-8-24 13:33:00

奇怪,你看不明白帮助,可2楼的看明白了,而2楼的好象就是直接从帮助中拷过来的

badgirl 发表于 2004-8-25 10:54:00

2楼的朋友的例子有解释呀。我用的是英文版的2002。

spring 发表于 2004-8-25 12:19:00

中文版帮助明经有下载

页: [1]

明经CAD社区's Archiver

[LISP]请帮忙举例说明怎么样隐藏当前的对话框，在屏幕上取一点后又再出现？