乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 146|回复: 9

請教各位怎樣隱藏對話框執行圖面操作後回退到對話框?(急),先謝謝各位啦!

[复制链接]

17

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
126
发表于 2003-9-23 10:53:00 | 显示全部楼层 |阅读模式
[em00]
回复

使用道具 举报

76

主题

595

帖子

10

银币

中流砥柱

Rank: 25

铜币
899
发表于 2003-9-23 11:11:00 | 显示全部楼层
再调入显示对话框呀
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-9-23 11:33:00 | 显示全部楼层
帮助文件中搜索“隐藏对话框”,有详细介绍和例子。。。
如无中文帮助,本站有下载
回复

使用道具 举报

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-9-23 12:32:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:yiw2dw1vhnw.lsp 
下载次数:0  文件大小:3.14 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]


请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:n1ygsqatkxh.dcl 
下载次数:0  文件大小:1.93 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

17

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
126
发表于 2003-9-23 12:39:00 | 显示全部楼层
[em00]
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-9-23 12:43:00 | 显示全部楼层
不用这么懒吧,方法也告诉你了,例子给你了,也介绍了参考内容,就在本站的下载中心,你找一下都不愿意?
回复

使用道具 举报

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-9-24 09:40:00 | 显示全部楼层
在對話方塊作用期間,使用者無法進行交談式選取。如果您要使用者從圖形螢幕進行選取,必須先隱藏您的對話方塊,然後加以還原。隱藏對話方塊與以 done_dialog 加以結束一樣,不過您的回覆函數必須使用 done_dialog 的 status 引數指出該對話方塊是被隱藏A而不是被結束或取消。請將 status 設成應用程式定義的值。
當對話方塊消失時,start_dialog 函數會傳回應用程式定義的 status。然後您的程式必須檢查  start_dialog 傳回的狀態,看看接著要做什麼。有關標準和應用程式定義的 status 值,請參閱 "done_dialog" 在 「AutoLISP 參考手冊」內。
例如,以下是一個示範對話方塊,它需要使用者在 AutoCAD 圖形視窗中點選一個點:
該對話方塊是以下列 DCL 定義:
hidedcl : dialog
{ label="Hide Example";
  : column
  { : text
    { key="message";
      label="按一下 PickMe 點選一個點";
      fixed_width=true;
      fixed_height=true;
      alignment=centered;
    }
    :row
    { ok_only;
      :retirement_button
      { label    = &quotickMe";
        key      = "hide";
        mnemonic = "H";
    }}}}
該函數控制對話方塊來顯示視窗,直到使用者按下「確定」或關閉視窗為止。如果使用者選擇 PickMe,程式便會隱藏對話方塊,並提示使用者選取一個點。下列 AutoLISP 程式碼控制該對話方塊:
(defun c:hidedcl (/ dcl_id what_next cnt)
  (setq dcl_id (load_dialog "hidedcl.dcl"))﹔載入對話方塊。
  (setq what_next 2)
  (setq cnt 1)
  (while (>= what_next 2)                    ;開始顯示迴路。
    (if (null (new_dialog "hidedcl" dcl_id)) ;起始設定對話方塊
      (exit)                                 ;,如果傳回 nil
    ); endif                                 ;則結束。
    ;設定在按下按鈕時要採取的動作。任一按鈕
    ;導致 done_dialog 呼叫關閉對話方塊。
    ;每個按鈕都以 done_dialog 與特定的狀態碼關聯,
    ; 而此狀態碼是由
    ; start_dialog 所傳回。
  
    (action_tile "accept" "(done_dialog 1)") ;設定 OK 的動作。
    (action_tile "hide" "(done_dialog 4)")   ;設定動作
                                             ickMe。
    (setq what_next (start_dialog))         ;顯示對話方塊。
    ;
    (cond
      ((= what_next 4)                       ;提示使用者
        (getpoint "\npick a point")          ;選取一點。
      )
      ((= what_next 0)
        (prompt "\n使用者取消對話")
      )
    )
  )
  (unload_dialog dcl_id)
  (princ)
)
注意 雖然 term_dialog 函數可以一次終止所有的對話方塊,它不會傳回狀態碼,因此沒有任何方法可以讓您的應用程式辨別錯誤情況是來自隱藏巢狀或取消對話方塊。
回复

使用道具 举报

17

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
126
发表于 2003-9-24 11:16:00 | 显示全部楼层
謝謝Spring和Meflying和指導,但是請幫我看看這個程式,沒辦法偉回屏幕操作的信息,我該怎麼辦啊?再次感謝![br]
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:32wc4mdnmcd.rar 
下载次数:0  文件大小:2.1 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]


[em00]
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-9-24 11:59:00 | 显示全部楼层
你的对话框初始化不对,你可以看看程序执行循序,每次调用对话框(就是(while (> what_next 2)...)开始),都会将对话框内所有的值恢复原状。
还有你在屏幕操作时使用(set_tile...)是没用的,因为那时对话框已经结束了。
你必须这样做,对话框的初始化时那些需要变化的全部用变量,这些变量在调用对话框之前设置初始值,而在退出对话框进行屏幕操作时,仅仅改变这些变量即可,再次调用对话框时就会按这些变量的新值初始化对话框
回复

使用道具 举报

17

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
126
发表于 2003-9-25 17:24:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:4yhrzlcx0aj.rar 
下载次数:0  文件大小:4.32 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]


请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:f0vurja5iby.rar 
下载次数:0  文件大小:6.3 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 07:45 , Processed in 0.598849 second(s), 81 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表