翰文个人计算机学习网
  • 翰文快讯
  • 翰文PC快讯
  • 综合软件区
  • 操作系统
  • 注册表解析
  • Windows系列
  • Unix/Linux
  • 其他系统
  • 应用软件
  • 微软MS Office
  • WPS Office
  • 多媒体软件
  • 图像处理
  • Photoshop
  • Painter
  • Illustrator
  • CorelDRAW
  • 三维空间
  • AutoCAD
  • 3DMAX
  • 3DMAYA
  • 硬件资源
  • 攒机指南
  • 硬件超频
  • 维修指南
  • 网络资源
  • 在线通讯
  • 网上冲浪
  • 浏览器中心
  • 网络故障解析
  • 病毒资料
  • 病毒通报
  • 病毒防治
  • 病毒常识
  • 黑客技巧
  • SQL/MySQL
  • Oracle
  • Delphi
  • 编程资源
  •  C/C#/C++/VC++/VC.NET
  •  Basic/VB/VB.NET/VBScript
  •  FoxBasic/FoxPro/VF/VF.NET
  •  Java/JavaScript
  • PowerBuilder
  • 热门词:
  • 翰文计算机学习网首页
  • >
  • AutoCAD
  • >
  • 为AUTOLISP建立缺省输入函数
  • 为AUTOLISP建立缺省输入函数

  • 资源来源:
  • HW-PCS.ORG
  • 资源作者:
  • 翰文计算机学习网
  • 人气指数:
  • [5821]
  • 关键词:输入速度
      使用LISP编程时,常常需要用户回答一些参数,为了提高工作效率,希望能用回车代替某个特定输入即缺省值。此时,在程序中增加一个判断可使变量得到缺省回答。

    如:

       (setqwidth(getreal″inputwidth:″))
       (if(nullwidth)(setqwidth0.3));回车置width的值为0.3。
       有时需要依上一次的值为本次的缺省(如:宽度、角度、距离等),这时就需要用全局变量保存上一次值提供缺省。例如,若欲将上次的宽度值作为缺省可使用下述函数:
       (if(notwidth)
       (setqwidth0.3);第一次依03为缺省值)
       (princ″inputwidth:″)
       (princ″
       (princwidth)
       (princ″:″);显示提示信息
       (setqw1(getrea1))
       (if(notw1)
       (setqw1width)
       (setqwidthw1);用全局变量保存当前值
       (princw1)
       )
       函数的执行结果是:第一次执行时依宽度03为缺省值,提示信息为:inputwidth:,给定新的值后如05,下一次依宽度05为缺省提示值,提示信息为:inputwidth:。

       在一般情况下,还可通过建立缺省处理函数,加快程序处理速度,减少编码。如:

       (defundefal(strval)
       (setqglobaval)
       (princ(strcatstr″
      (princgloba)
    (princ″″)
    (setqvar(getreal))
      (if(notvar)
    (setqvargloba);用缺省值作为
    )
    (princvar)
      )

       这是一个有参函数,它将的实数作为返回值。当按(defal″inputwidth″0.5)调用时提示信息为:inputwidth:。该函数能按str的提示缺省实数(由val给定)类值(如:角度、距离等),加入到ACADLSP文件中即可像LISP标准函数一样供其它函数调用。

    感谢您对翰文计算机学习网的支持

  • 关于我们
  • 联系方式
  • 成功案例
  • 技术报价
  • RSS索引
  • 网站地图
  • 翰文电脑学习网
  • MSN:LNDDYGYC9@HOTMAIL.COM Powered by 翰文个人计算机学习网 版权所有,未经允许不得转载
    ICP备案号码:[沪ICP备12020678号] Copyright 2008-2020 HW-PCS.ORG, All Rights Reserved.