明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 17350|回复: 39

[【高飞鸟】] 【越飞越高讲堂7】浅谈无级放大和预览技术以及对话框的设计

    [复制链接]
发表于 2007-4-12 14:39:00 | 显示全部楼层 |阅读模式

 

 

lisp程序来说,对话框的设计是一件痛苦的事情,也是一件有意义的事情。为交流经验下面我来和大家一起探讨这里面的技术问题。

  首先简单介绍一下对话框的设计流程:

……                         ;程序开始
(setq ok 2)                      ;初始化对话框的确定数值(不一定要)

(setq ID (load_dialog "***.dcl"));加载对话框文件,ID为对话框的标志号

(if (> ID 0)                     ;标志号如果大于0,则加载对话框成功

  (if (new_dialog "***" ID)      ;如果显示对话框成功  

    (progn 

      (……)                     ;初始化控件

      (while (> ok 1)            ;直到用户离开对话框   

        (setq ok (start_dialog)) ;激活对话框

        ……                     ;用户操纵对话框

        (cond                    ;这一段不一定都要

          ( (= ok 2 之类)

            (……)               ;执行OK动作

          )

        )

      )

      (……)                     ;离开对话框后的程序

    

    (alert “对话框错误!”)        ;显示出错信息

  )

  (alert “对话框加载错误!”)      ;显示加载失败信息

)

(unload_dialog ID)               ;卸载对话框

                                 ;(一定要,我曾经没这一句吃过大亏)

……                             ;程序结束

    二  对话框的布局和美观设计

    一个好看的对话框,能给别人留下好的印象。因而在布局时候,不要弄得参差不齐,最好整齐一致,各组件和文字不要显得太挤太密和太空,疏密要恰当。

    因而很有必要用 width,fixed_width,alignment,spacer,spacer_0之类的语句或控件来使之漂亮。

     对话框的初始化和列表的处理

    在初始化中,一般来说:

    (action_tile key action_expression) 来处理各控件的相应动作.

    (mode_tile key mode)来处理控件的状态(可用,禁用,聚焦,等)

    (get_attr key attribute)来沪的控件相应属性的值。

    (get_tile key) 来获得控件的值。

    (set_tile key value)来设定控件的值。

    (dimX_tile key) ,(dimY_tile key)来获得控件的高宽或像素。

    对于列表(popup_list ,list_box)的处理可以有两种方式赋予初始值:

    一种在DCL中直接写入,另外就是在lisp程序中设置。为了正确显示或取得各列表的值,一般来说要定义字符串和列表相互转化的函数,大家可以参考我的程序。

      如何调用已有CAD的对话框控件并获得其返回值  

    alert ,help ,getfiled ,acad_colordlg,acad_truecolordlg (R2004以上)

    有的对话框有返回值,像颜色,文件对话框。颜色对话框的返回值为颜色号,若采用真彩色,(acad_truecolordlg 0) 则返回值一般如下:

    ((62 . 75) (420 . 7510105)),第一个表为62 . 75 指的是62 颜色 75,颜色索引号,420,真彩色,7510105真彩色颜色数值可以直接传给图元表。

    getfiled,返回值为文件路径,具体用法请参考相关资料。

      隐藏、恢复对话框及嵌套的处理。

    有时候需要交互操作,暂时离开对话框时,这时候的处理办法要先将对话框隐藏,待交互操作结束后,恢复对话框。

    例如这样的一个流程:

    (while (> ok 1)                             ;直到用户按下OK键

      ……                                      ;初始化对话框  

      (action_tile “pick” “(done_dialog 2)”)     ;需要在图面上点取         

      (setq ok (start_dialog))                  ;激活对话框 

      (cond                   

        ((= ok 2)

         (pick)                                 ;点取动作

         (new_dialog "***" ID)                  ;新对话框

         (……)                                 ;初始化等

        )

      )

    )

    关于嵌套对话框的设计和处理:

    对话框文件可包含父对话框,子对话框。在父对话框中增加一个子对话框按钮,初始化子对话框函数中应包含new_dialog,start_dialog。其他处理跟上面的处理有些类似。

      对话框中参数值得默认、保存和恢复

    默认的处理: 在开始时对各控件赋值,或者定义这样的一个按钮和函数。

    保存参数值,一般来说有几种方式:

    1、设置全局变量。但这样只对这次CAD有效,下次打开CAD就不行了。

    2、保存到用户变量中。CAD中有15个用户变量,可供自己定义。

    3、保存到数据文件,下次调用这个数据文件。

    4、保存到注册表中。

    我这个lisp中就采用了两种方法结合,即用注册表记录其保存的数据文件路径。然后下次调用时就打开那个数据文件。当然还有其他方式。大家不妨探讨一下。

    恢复参数值:就是把各控件保存的值调出来后用set_tile函数赋分别给它。

      图像组件的预览和放大和缩小技术

    首先用dimX_tile,dimY_tile获得图像组件像素的高宽。

    然后(start_image key)开始图像处理。

    (vector_image  x1 y1 x2 y2 color)来画线

    (fill_image x1 y1 x2 y2 color)来填充或画点。

    (slide_image x1 y1 x2 y2 slideName)来显示幻灯片。
    (end_image)结束图像控件的处理。

    预览技术是建立在对图像控件的坐标系统和CAD坐标系统的转换上的。弄清楚了它们的转换关系,那么,就能写出预览函数了。

    坐标的处理上,要注意的是图像的原点是左上角,而不是左下角。因而对于函数的某个区域(X1,Y1),(X2,Y2)要映射到图像组件的坐标系统中去,这样的话,放大和缩小函数的处理就比较好办了。

    各位如果有兴趣的话,不妨看看我下面程序的处理,这个对话框是为分形而设计的。为了展示分形的自相似,和一个参数的微小变换,就可以引起图像的很大变化(混沌系统的一个特征),因而有必要采取无级放大。

    如果在图像按钮上点击一下,再点击一下,得到放大区域(红色矩形线框),对这个区域预览,就可以细看其局部。你甚至可以对它放大再放大,直到它们的上下界限相等(达到lisp的精确极限1e-16),你会发现,放大之后好像图像没什么变化,还是那个形状—这正是分形的自相似特征。

    只可惜lisp程序对图像处理速度不快,而且又受本身速度的限制,使得这个预览打了一个很大的折扣。各位要用的话最好把这个程序几个文件编译成.vlx文件,速度会提高不少。

匆匆写来,有很多错误,请大家批评指教。

下面为源程序: 

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 4威望 +1 明经币 +5 金钱 +45 贡献 +15 激情 +10 收起 理由
tigcat + 1 + 20 赞一个!
cabinsummer + 1 赞一个!
alin + 1 + 5 + 10 + 5 【好评】好程序
mccad + 1 + 2 + 20 + 5 + 5 【精华】好程序

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2023-8-26 20:45:44 | 显示全部楼层
(strcat "AutoCAD.AcCmColor." (substr (getvar "acadver") 1 2))
学习学习高飞版主的对话框知识,谢谢大神无私分享.
发表于 2022-9-30 20:48:52 | 显示全部楼层
好东西啊,支持一个
发表于 2022-11-23 18:25:52 | 显示全部楼层
谢谢大神分享!
发表于 2007-4-12 16:26:00 | 显示全部楼层
做的很专业,好精神!!
发表于 2007-4-12 19:32:00 | 显示全部楼层
受益匪浅,顶一下
发表于 2007-4-13 21:02:00 | 显示全部楼层
高手啊,写得真是不错!
发表于 2007-4-27 19:21:00 | 显示全部楼层

太好了,高手!

发表于 2007-5-15 13:14:00 | 显示全部楼层
呵呵
发表于 2007-5-15 14:58:00 | 显示全部楼层
受益匪浅,值得学习
发表于 2007-5-16 21:34:00 | 显示全部楼层
高手是用程序解决问题的。
发表于 2007-6-20 15:11:00 | 显示全部楼层

对图像控件的操作指导意义重大,看来又要学一阵了

 楼主| 发表于 2007-7-28 15:47:00 | 显示全部楼层

 再来一个openDCL版本的。

这是源程序

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

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

本版积分规则

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

GMT+8, 2024-11-13 14:55 , Processed in 0.228990 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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