DCL 对话框多级窗口开发示例

vitalgg

已于 2023-03-02 00:55:27 修改

阅读量457

点赞数

CC 4.0 BY-SA版权

分类专栏： AutoLisp CAD 文章标签： lisp emacs gitee

于 2023-03-02 00:47:35 首次发布

本文链接：https://blog.youkuaiyun.com/netvt/article/details/129292751

本文介绍了在CAD环境中利用DCL创建多级窗口的方法，强调了子对话框的使用和与主对话框的交互。提供示例代码展示如何实现，并详细说明了如何在CAD中安装和运行@lisp程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

dcl 多级窗口

有时为了有更好地操作，需要使用多级窗口来分类多个功能。

因为 dcl 只支持模态对话框，所以打开子对话框后，只有子对话框能获得焦点。如果要与主对话框交互，需先关闭子对话框。

示例代码

(defun example:dcl-subdialog (/ *error* curr-page total-page dcl-fp dcl-tmp cb-flush-page cb-img1 cb-img2 cb-img3)
  "DCL多级对话框示例代码"
  ""
  "(example:dcl-subdialog)"
  (require (quote dcl:*))
  
  (defun subdialog (m n / curr-page total-page dcl-fp dcl-tmp cb-flush-page page-init)
    "m n 表示图像的 行 列个数"
    "1. Model 建立数据模型。"
    (setq curr-page 0)
    (setq total-page 3)
    "2. View 建立显示视图。"
    (dcl:dialog "subimgs")
    (progn (dcl:hr 0.08)
       (write-line ":text{key=\"num\";}"
               dcl-fp)
       (dcl:hr 0.08)
       (setq i 0)
       (dcl:begin-cluster "column" "")
       (repeat m
           (