请选择 进入手机版 | 继续访问电脑版

01BIM社区

 找回密码
 立即注册

扫一扫,访问微社区

查看: 5424|回复: 1

Lisp如何驱动DCL对话框

[复制链接]

155

主题

643

帖子

2531

积分

金牌会员

Rank: 6Rank: 6

积分
2531
发表于 2018-4-27 07:27:31 | 显示全部楼层 |阅读模式
本帖最后由 tzbm123456 于 2018-4-27 11:42 编辑

Lisp如何驱动DCL对话框:
Lisp文件:
(defun c:work_1()
        (setq dlg_file (getfiled "选择要预览的对话框所在文件" "C:\\Documents and Settings\\czj\\My Documents\\autolisp\\" "DCL" 2))
        (if (= dlg_file nil) (exit))
        (setq dlg_name (getstring "\n对话框名称:"))
        (if (= dlg_name "") (exit))
        (setq dlg_id (load_dialog dlg_file))
        (if (< dlg_id 0) (exit))
        (setq std 0)
        (if (not (new_dialog dlg_name dlg_id)) (exit))
        (action_tile "accept" "(done_dialog 1)")
        (action_tile "aceept" "(done_dialog 0)")
        (setq std (start_dialog))
        (unload_dialog dlg_id)
        (cond
                  ((= std 1) (princ "确定"))
                ((= std 0) (princ "取消"))
        )
        (princ)
)


回复

使用道具 举报

155

主题

643

帖子

2531

积分

金牌会员

Rank: 6Rank: 6

积分
2531
 楼主| 发表于 2018-4-27 07:28:27 | 显示全部楼层
本帖最后由 tzbm123456 于 2018-4-27 11:43 编辑

DCL文件:
shezhi:dialog{
        label="ZLQ系列数控自动编程系统";
        :text{
                label="参数设置:";
                alignment=left;
        }

        :edit_box{
                label="引入线长度:";
                edit_width=10;
        }
        :edit_box{
                label="割缝补偿:";
                edit_width=10;
        }
        spacer_1;
        :toggle{
                label="手动添加不封闭层轮廓引入线";
        }
        spacer_1;
        ok_cancel;
}

回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|01BIM社区 - 最专业的BIM技术交流平台 ( 渝ICP备15000873号 )

GMT+8, 2024-3-19 12:24 , Processed in 0.083043 second(s), 21 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表