明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 726|回复: 3

[LISP群(2)] 2013-08-22 明经 AutoLISP 编程②(177027547) 群聊记录:(defun c:hello() (dcl_project_load &q

 关闭 [复制链接]
发表于 2013-8-22 10:02 | 显示全部楼层 |阅读模式
[958620832]仁者 10:02:43
(defun c:hello()
(dcl_project_load "c:/hello.odcl" t)
(dcl_form_show "hello" "Form1")
(princ))
[958620832]仁者 10:04:00
加载后,
[qqimg]201308/{D8FA25EB-D1FC-D5E5-B2A6-3E6447517F09}.jpg[/qqimg]
没有出现对话框,只出现了! 什么缘故?!是什么东东?
 楼主| 发表于 2013-8-22 18:05 | 显示全部楼层
[958620832]仁者 18:05:03
REC:dialog {
    label = "Rectangle" ;
    :edit_box {
        edit_limit = 16 ;
        edit_width = 10 ;
        key = "RECT_W" ;
        label = "Rectangle width :" ;
    }
    :edit_box {
        edit_limit = 16 ;
        edit_width = 10 ;
        fixed_width = true ;
        key = "RECT_H" ;
        label = "Rectangle heigth :" ;
    }
    ok_only;
}
[958620832]仁者 18:06:13
怎么在将以上代码写入lisp中,从而调用此对话框
 楼主| 发表于 2013-8-22 18:42 | 显示全部楼层
(420552)浪子 18:42:39
论坛大把样例
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-12 17:05 , Processed in 0.157212 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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