关于AtuoLISP在CAD绘制采矿设计图中的应用.pdf

关于AtuoLISP在CAD绘制采矿设计图中的应用.pdf

ID:51413275

大小:192.38 KB

页数:3页

时间:2020-03-23

关于AtuoLISP在CAD绘制采矿设计图中的应用.pdf_第1页
关于AtuoLISP在CAD绘制采矿设计图中的应用.pdf_第2页
关于AtuoLISP在CAD绘制采矿设计图中的应用.pdf_第3页
资源描述:

《关于AtuoLISP在CAD绘制采矿设计图中的应用.pdf》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、第27卷第4期有色矿冶Vo1.27.No42011年8月NoN—FERRoUSMININGANDMETALLURGYAugust2011文章编号:1007—967X(2011)04—0016—03关于AtuoLISP在CAD绘制采矿设计图中的应用赵兴柱,陈贵海,姜坤序(中色集团抚顺红透山矿业有限公司,辽宁抚顺113321)摘要:本文通过对AutoCAD制图软件中的LISP语言的介绍,使初学CAD者了解其LISP语言功能,并通过实例介绍在矿山制图中的应用,为广大应用CAD制图的矿山工作者提供个参考。关键词:矿

2、图;AutoLISP;坐标网;溜井中图分类号:TD802文献标识码:A便的二次开发,从而使得AutoCAD功能更加强大,1序论完全能够满足各种特殊的设计、制图和交流的需要。目前国内已有中色建设集团、中国铝业集团、首2AutoCAD二次开发钢集团、江西铜业集团、金川镍业集团、滦川钼业集团、招远黄金集团、黑岱沟露天煤矿、辽宁排山楼金AutoCAD软件二次开发是在现有软件基础上,矿、安徽冬瓜山铜矿、江西地矿局、江西有色地勘局、为提高和完善软件功能,使之更符合用户需要而对北京有色冶金设计研究总院、煤炭设计总院及其抚

3、软件所做的开发工作,目的是提高设计质量和效率顺分院、南昌有色冶金设计研究院、长沙有色冶金设及充分发挥通用AutoCAD软件价值,二次开发将应计研究院等国内多家矿山企业与科研单位引进使用用对象的设计规模、结构描述、设计方法等以约束关DATAMINEMINESIGHTGEMCOMSURPACMI—系形成集成到通用AutoCAD平台中去,使应用对象CROMINE等矿山软件。但是这些矿山软件不一定设计智能化、集成化、也是将AutoCAD环境客户化适合国内中小型矿山使用。原因很多,本质有两条:的基本手段。一,软件相对

4、专业,并且复杂。这个也是优点也是缺2.1AutoLISP语言点,但是放在国内的现实情况来看,就是缺点,因为AutoLISP是为二次开发AutoCAD而专门设计国内矿山熟练操作计算机的人毕竟占少数。二,也的编程语言。它起源于LISP语言,嵌入在AutoCAD是最主要的一条,就是国内外模式的不同,国外矿山的内部,是LISP语言和AutoCAD有机结合的产物。前期勘探和采探方面投入非常大。如;国外有色金AutoLISP采用了和CommonLISP最相近的语法和习属的8in问距的勘探线,国内则达到12.5in,从而

5、惯约定,具有CommonLISP的特性,但又针对Auto.造成最初的三维模型差异大,相对来说国外矿山后CAD增加了许多功能。它既有LISP语言人工智能续改动很小,所以后续可以集中精力搞设计。而国的特性,又具有AutoCAD强大的图形编辑功能。它内矿山由于探的不清楚,后续基本上还在花费大量可以把AutoLISP程序和AutoCAD的绘图命令透明时间建立模型。地结合起来,使设计和绘图完全融为一体,还可以实AutoCAD技术作为一项成熟的高科技技术,已成为广大专业技术人员强有力的工具,在各行各业现对AutoCAD

6、图形数据库的直接访问和修改。可得到广泛的推广和应用,它从最初的1.0版到13.0配合AutoCAD提供的PDB,建立DCL文件创建对话版,以及windows操作系统出现后的14.0版到今天框。特别是随着AutoCAD版本的不断升级,Au.的2010版等,得到不断发展和完善。并且,在14.0toLISP功能更强、开放性更好,更便于二次开发,为版以后,又为用户提供了一种高度开放性的工作平我们开发适合于专业的CAD系统提供极大的便利。台以及一些开放性的程序开发接口,用户完全可以2.2AutoLISP特点借助这种平

7、台技术和开发接口对AutoCAD进行方语法简单:不用特殊的变量宣告,非常富有弹收稿日期:2011一()4—2O作者简介:赵兴柱(1977一),男,本科,主要从事采矿管理工作。第4期赵兴柱等:关于AtuoLISP在CAD绘制采矿设计图中的应用l7性,比起其它的程序语言,它的语法可说是非常简单(command”RECTANG”p3p4);以p3、p4画矩而有其独特的风格!形功能函数强大:除一般性的功能函数外,又拥有(setql20);为数不少控制配合AutoCAD的特殊函数,再加上(if(>plX0)AutoL

8、ISP可直接呼叫执行所有AutoCAD的指令,以(setqax(l(1+(fix(/plx1)))))及掌握运用所有的AutoCAD系统变量,功能之强大(setqax(1(fix(/plX1))))令人欣喜不已!);获取比plx大且相差最小的l的正倍数,将撰写的环境不挑剔:只要是一般的文书编辑软其赋给ax件都适用!如:Windows的记事本、PE2、PE3、DW3、(while(

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。