Autolisp基础教程.pdf

该【Autolisp基础教程 】是由【gorynich】上传分享，beplayapp体育下载一共【34】页，该beplayapp体育下载可以免费在线阅读，需要了解更多关于【Autolisp基础教程 】的内容，可以使用beplayapp体育下载的站内搜索功能，选择自己适合的beplayapp体育下载，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此beplayapp体育下载到您的设备，方便您编辑和打印。:..的下载资料库()网站下载此资料的,,加入必要时可将此文件解密Autolisp基础教程单元一:?1、AutoLISP是AutoCAD的最佳拍檔!2、AutoLISP内含于AutoCAD软件内,不用另外花钱买!3、AutoLISP是强化AutoCAD最好、最直接的『程序语言』!4、AutoLISP易学、易用,即使不会程序设计的AutoCAD使用者,都能在最短的时间内,写出令人惊讶、赞叹的功能!若说AutoLISP的出现,是替AutoCAD创造一片天的『最大功臣』,实不为过一点也不夸张!5、AutoLISP希望您去学****它、改善它、发挥它、!它的威力、魅力无穷!:学****AutoLISP是非常容易的,对初学者而言,即使没有学****过任何的程序语言,都能很快的上手,写出精彩漂亮的AutoLISP程序!语法简单:不用特殊的变量宣告,非常富有弹性,比起其它的程序语言,它的语法可说是非常简单而有其独特的风格!功能函数强大:除一般性的功能函数外,又拥有为数不少控制配合AutoCAD的特殊函数,再加上AutoLISP可直接呼叫执行所有AutoCAD的指令,以及掌握运用所有的AutoCAD系统变量,功能之强大令人欣喜不已!撰写的环境不挑剔:只要是一般的文书编辑软件都适用!如:Windows的记事本、PE2、PE3、DW3、书中仙、汉书、EDIT....等直译式程序:不用再作编译,『即写即测、即测即用』,马上可以在AutoCAD中响应效果,马上就有成就感!横跨各作业平台:悠然自得,虽然AutoCAD有DOS、Windows版本之分但是AutoLISP却可在不改写的原貌下,加载与执行!?1、、、、、欲做图面资料读文件、、、、()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,?:,表面上,这将近三天的时间,他连一张图都没有画,甚至可能偶有发呆、沉思,若此程序一天可以替公司绘图部门节省1小时绘图时间,那算一算,只要20天就抵销开发成本,而20天以后都是赚的,『用的愈久,省的愈多』!,在不影响正常工作,『鼓励』都来不及,那有『压抑』的道理,甚至还要派遣优秀人员出去受训,学****更好的设计技巧与创意呢?!,SHOW您的权威与POWER,如此,不但对员工造成打击,,若要撰写的程序很多,内部设计人员的程序功力距离太远,达成需求的时间反而变得遥遥无期,那倒不如求助于市面上已有的相关AutoCAD支持软件。:?当然,无形中,『AutoCAD高手的封号』也将黄功力又往前迈出了一大步,对个人的成长帮助匪浅,幸运的话,搞不好还可以袍加身,不亦乐乎!!!B.『半桶水、响叮当』,千万不要因为会写AutoLISP程序而自傲、孤僻、嚣张起来,功力的增长,只是让您有更多『服务他人、服务公司』的机会,若自恃过重,宁可不要!,是无远弗届的,千万不要『孤芳自赏』『人外有人,,天外有天』,也许您觉得是『宝贝加三级』的程序,只是其它设计师基本程序中的一部份罢了!『最大功臣』,当然不会轻易被舍弃,如此,您的学****保证不会白费!E.『精益求精』、『虚心求教』、『用心学****观摩』、『决心成为高手』:,却可能有『大大满意』的时候!!!、创造AutoCAD的『尚方宝剑』,让您在AutoCAD的设计运作中『得心应手』,享受无比的快乐与成就感!!!?1、先由小程序着手,认识AutoLISP语法规定!2、浏览所有的AutoLISP功能函数,重要的功能函数要熟记脑海,俗语说的好『一回生,二回熟』,除非您不用心,否则没有学不好的道理!!!3、要懂得偷懒:不要认为在绘图的过程中,繁琐的步骤是合理的,困难的绘图过程是必须忍耐的,试着用AutoLISP解决看看!4、多观摩别人的程序设计,吸取精华,像海棉一样=>『吸』、『吸』、『吸』!!!5、动手『写』程序比用眼睛看程序,更能够领略深记脑海!6、随时随地整理您的程序,并加以批注,以免因时间的飞逝,当时用心的成果也烟消云散,忘的一乾二净!!!7、『决心』是学好AutoLISP最重要的关键!8、期许自己,要由操作者变成创造者!!![返回]单元二:AutoLISP的关键、基本结构及语法一、学好AutoLISP的关键、基本结构与语法:的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,,『即写即测、即测即用』,悠然自得(注:以上五点,读者可以参考上一章的剖析!!!):充份掌握『语法结构』&『功能函数』的搭配!!!:以括号组成表达式,、相对称左右括号数一定要成双成对规则2:表达式型态:(操作数运算子运算子运算子)『功能函数』&『自定函式』(自变量)包括:(Integer)如8,-17,500,9999.....(Real),-.....(String)如"AutoCAD","123"(List)如("a""b""c"),(xy).....规则3:表达式中的『运算子』,可以是另一『表达式』或『子程序』规则4:多重的括号表达式,运算的先后顺序是『由内而外、由左而右』规则5:以档案型态存在的AutoLISP程序(ASCII档案),:撰写的环境,只要是一般的文书编辑软件、记事本,可编辑ASCII档案者都适用规则7:以defun功能函数定义新的指令或新的功能函式规则8:新定义的功能函式名称,若为『C:函式名』,则此函式可为AutoCAD新指令规则9:加载AutoLISP程序的作法:=>指令:后直接键入(load"LISP主檔名")规则10:AutoLISP程序中,在『分号;』后的内容均为批注,程序不处理,适时的增加批注,将使程序更具可看性、学****性及完整性规则11:AutoLISP最常用的变量型态是『整数』、『实数』、『字符串』、『点串行』四种,变量的型态依据设定值而自动定义,变量会一直储存该值,直到被重新设定值或绘图结束自动消失规则12:以setq功能函数设定变量值(setq变量名称设定值)规则13:欲在AutoCAD的环境中,查看一变量值,指令:下键入『!变量名』即可规则14:以(defunC:函式名(自变量/变量)........)程序中,程序中的变量若在『/』右边变量内,则称为『区域变量』,否则为『整体变量』二、学好AutoLISP的关键:充份掌握『语法结构』&『功能函数』的搭配!!!其时这个关键亦是学****其它程序语言的关键.*『语法结构』AutoLISP的语法结构规定的并不多,变量不用事先定义及宣告,读者可熟记下一单元有关重要的AutoLISP基本语法结构,十四条设计上要求的『规则』*『功能函数』AutoLISP之所以能功能如此强大,都有赖功能函数,其成员共约200个:的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,加入必要时可将此文件解密1、一般性函数170个2、ADS定义特殊函数9个3、配合DCL交谈框设计函数22个各功能函数在使用上要求配合的运算子(自变量)型态,均有其规定,当然,您可不能乱给!例如:指令:(+123"ABC")传回:error:badargumenttype(自变量型态错误)因为『+』函数不接受字符串,而"abc"正是字符串指令:(rtos"abc")传回:error:badargumenttype(自变量型态错误)因为『rtos』函数只接受实数转字符串详细内容可参考下一章『快速浏览AutoLISP功能函数』至于各功能函数详细的语法与实例应用,读者请参阅本书『第三篇AutoLISP功能函数详解』三、重要的AutoLISP的基本语法结构:规则1:以括号组成表达式,左右括号数一定要成双成对、相对称请依序在『指令:』列(或指令:)后面直接键入以下表达式指令:(+12345)传回加总和15指令:()传回最大值35指令:(menucmd"p1=*")显示拉下POP1指令:(getint"EnterReal:")传回EnterReal:要求输入一个实数指令:(setqa(*))传回相乘值50,同时设定给『变量a』指令:!a响应50(注:!号可用来查询变量值)指令:(min75a63)响应最小值50(因为变量值a代表50)错误的范例:指令:(setqa(*)1>传回1>表示少了一个括号1>)此时,只要再补上一个)即可指令:(setqa(*>传回2>表示少了二个括号2>))此时,只要再补上二个)即可规则2:表达式型态(操作数运算子运算子运算子...)或(函数(式)自变量自变量自变量...)或(函数(式)元素元素元素...)『功能函数』&『自定函式』功能函数:如上练****中的+、max、menucmd、getint、setq、*、min,详细内容可参考下一章『快速浏览AutoLISP功能函数』&『第三篇AutoLISP功能函数详解』自定函式:(又称自变量或元素)包括:(Integer):如8,-17,500,9999…正常范围:2的16次方,介于-32768与+32767之间的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,加入必要时可将此文件解密特殊范围:若以float函数将其转为实数,则范围2的32次方,介于-2147483648与+(Real):,-…正常范围:带有小数点的数,(String):如"AutoCAD","123","EnterReal:","",…正常范围:以双引号内夹『字符』为认定,(List):如("a""b""c"),(xy),(xyz),("a"),....正常范围:以左右括号内夹『元素』为认定,元素型态非常弹性使用频率:在AutoLISP程序设计中应用非常高范例说明:("a"(12))表示此串行内有五个元素"a"表示字符串a、8表示整数8、、kk表示变量kk、(12)表示串行(12)2D点坐标(xy)表示法=>以二实数形成串行3D点坐标(xyz)表示法=>:如...使用范围:AutoCAD会自动赋予像素指向代码,透过此代码可找到像素的数据库记录范例说明:(setqen(entlast))传回(entgeten):如…使用范围:开启(open)档案作读档(r)、写档(w)使用时,所产生的代码,如下:范例说明:(setqffr(open"""r"))响应(setqffw(open"""w"))响应:如、…使用范围:一个或数个像素所形成的选择集范例说明:(setqss(ssget))选取对象:(可选择物体)选取对象:(可选择物体)选取对象:(按[ENTER]键)响应规则3:表达式中的『运算子』,可以是另一『表达式』或『子程序』功能函数使用语法:(strcat字符串1字符串2字符串3....)字符串结合功能函数(getstring提示)要求键入一个字符串(rtos实数)将实数转换成字符串范例说明1:(strcat"abc""123""LISP")传回:"abc123LISP"范例说明2:(strcat"abc"(getstring"EnterString:")())执行结果:EnterString:键入任一字符串,假设是键入*HELLO*的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,加入必要时可将此文件解密响应"abc*HELLO*"本例中的strcat函数在语法中要求的『运算子』必须是『字符串』型态『运算子1』="abc"是正常的字符串运算子『运算子2』=表达式(getstring"EnterString:")传回结果是一字符串"*HELLO*"『运算子3』=表达式()传回结果是一字符串""规则4:多重的括号表达式,运算的先后顺序是『由内而外、由左而右』范例说明:+17-,设定给变量kk,并转换成AutoLISP的表达式解法技巧A:1:运用『二分法、加括号』:(+17)-()2:操作数往前提:kk=(-(+17)())3:操作数再往前提:kk=(-(+)(/))4:转换完成:(setqkk(-(+)(/)))解法技巧B:1:运用『二分法、加括号』:(+(17-()))2:操作数往前提:kk=(+(17-()))3:操作数再往前提:kk=(+(-17(/)))4:转换完成:(setqkk(+(-17(/))))规则5:以档案型态存在的AutoLISP程序(ASCII档案),:撰写的环境,只要是一般的文书编辑软件,可编辑ASCII档案者都适用如:PE2、PE3、DW3、书中仙、汉书、EDIT、记事本....等规则7:以defun功能函数定义新的指令或新的功能函式(注:自变量及区域变量可省略)程序结构型态:(defun函式名称(自变量/区域变量)::::程序内容::)规则8:新定义的功能函式名称,若为『C:函式名』,则此函式可为AutoCAD新指令(注:自变量及区域变量可省略)程序结构型态:(defunC:KK(自变量/区域变量)::程序内容::::)则加载此LISP程序后,可在指令:后直接键入新定义的KK指令规则9:加载AutoLISP程序的作法:指令:后直接键入(load"LISP主檔名")注:load与字符串间的空格,可有可无注:load与双引号间的空格,可有可无(load"LISP主檔名")范例:在c:\,而您目前的工作目录在c:\dwg下若『环境设定』之『支持档案搜寻路径』有指定到c:\lsptools目录,à指令:后键入(load"tt")即可若『环境设定』之『支持档案搜寻路径』无指定到c:\lsptools目录,则键入(load"tt")后,会的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,加入必要时可将此文件解密出现错误讯息如下:无法开启「」做输入错误:加载失败(LOAD"tt")*取消*此时您可键入:指令:(load"c:\lsptools\tt")或指令:(load"c:"/lsptools/tt)不可键入:(load"c:\lsptools\tt")因为『\』在AutoLISP结构语法中已经用于『跳脱码控制』了规则10:AutoLISP程序中,在『分号;』后的内容均为批注,程序不处理,适时的增加批注,将使程序更具可看性、学****性及完整性范例::;本程序功能可快速画门、窗;设计者:QQ博士;版权所有,欢迎使用(defunc:pp()::;以下为画门子程序::;以下为画窗子程序,::::)规则11:AutoLISP最常用的变量型态是『整数』、『实数』、『字符串』、『点串行』四种,变量的型态依据设定值而自动定义,变量会一直储存该值,直到被重新设定值或绘图结束自动消失规则12:以setq功能函数设定变量值(setq变量名称设定值)范例:(setqa100);变量a值设定成整数100();(setqc"Goodmorning!!!");变量c值设定成字符串(setqpt1(getpoint"EnterPOINT:"));变量pt1值设定成点串行(setqpt2(listab));此时,a值是100,()(setqpt3'(297210));变量pt3值设定成点串行(297210)注意:直接设定成点串行时,不能省略单引号『'』否则会被误认(297210)又是一个表达式,297是操作数而出错!规则13:欲在AutoCAD的环境中,查看一变量值,指令:下键入『!变量名』即可范例:指令:(setqaa(+10075))传回:175指令:!aa传回:175指令:(setqpp(list9050))传回:(9050)指令:!pp传回:(9050)的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,加入必要时可将此文件解密指令:!ww传回:nil空值无设定规则14:以(defunC:函式名(自变量/变量)........)程序中,程序中的变量若在『/』右边变量内,则称为『区域变量』,否则为『整体变量』(注:在AutoLISP中,未赋予值的变量,其值皆响应nil)『区域变量』于此程序执行完毕后,其值自动消失『整体变量』于此程序执行完毕后,其值仍然存在范例:(defunc:tt(/sasbsc)(setqsa100)(setqsb20)(setqsc10)(setqsd(+sasbsc)))回到:指令:键入(load"tt")传回:c:tt指令:tt传回:130指令:!sa传回:nil(属区域变量)指令:!sb传回:nil(属区域变量)指令:!sc传回:nil(属区域变量)指令:!sd传回:130(属整体变量)[返回]单元三:快速分类浏览AutoLISP功能函数(一)一?看到以下那么多的AutoLISP功能函数,洋洋洒洒17大类:1、您第一个念头,一定惊讶怎么会那么多,您可能快吓坏了!2、您第二个念头,一定会想『那么多,怎么记得下来』,您可能快放弃了!二?其实,您应该要『很兴奋』而『充满信心』的,怎么说呢?1、您有那么多的『大将』协助您撰写AutoLISP程序,当然左右又逢源,不但轻松,而且要快乐的不得了!!!2、这些函数只要您先浏览有印象,要用时,再翻查该函数,了解用途语法再加入到您的程序中就可以了!!!3、常用的函数,写久、用久后,自然会深深牢记脑海,想忘都很难,不常用的函数,若硬要您记下来,相信连高手都很困难,更何况是初学的您!!!4、您不用再摸不着头绪了,因为您幸运的拥有了本书,就是您成功的开始!!!(+数值数值...)(-数值数值...)(*数值数值...)(/数值数值...)(1+数值)数值+(1-数值)数值-1的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,(abs数值)(atan数值)(cos角度)角度的余弦值,(exp数值)(expt基数指数)(fix数值)(float数值)(gcd数值1数值2)(log数值)(max数值数值...)(min数值数值...),(rem数值1数值2)(sin角度)角度的正旋值,(sqrt数值)数值的平方根第二类检验&(=表示式1表示式2)(/=表示式1表示式2)(<表示式1表示式2)比较表示式1是否<(<=表示式1表示式2)比较表示式1是否<=(>表示式1表示式2)比较表示式1是否>(>=表示式1表示式2)(~数值)传回:数值的位not值,(1的补码)(and表示式1表示式2…)(boole函数整数整数…)(eq表示式1表示式2)比较表示式1与表示式2是否相同,适用串行比较(实际相同)(equal表示式1表示式2[差量])比较表示式1与表示式2是否相同,差量可省略(内容相同)(angtof字符串[模式])(angtos角度[模式[精度]])(atof字符串)(atoi字符串)(cvunit数值原始单位转换单位)(distof字符串[模式])(itoa整数)(rtos数值模式[精度])(trans点原位置新位置[位移])转换坐标系统值第四类串行处理功能函数的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,(append串行串行...)(assoc关键元素联合串行)(car串行)(cadr串行)(caddr串行)(cdr串行)(cons新元素串行)(foreach名称串行表示式)(length串行)(list元素元素…)(listp元素)(mapcar函数串行1串行2...)将串行1、串行2、…等串行的元素配合函数,(member关键元素串行)依关键元素(含)(nthn串行)(reverse串行)(subst新项旧项串行)替换新旧串行后的串行第五类字符串、字符、(ascii字符串)字符串第一个字符的『ASCII』(chr整数)(close文件名称)(open文件名模式)开启档案代码,(read字符串)(read-char[档案代码])(read-line[档案代码])(strcase字符串[字样])(strcat字符串1字符串2...)(strlen字符串)字符串构成的字符数(即字符串长度)(substr字符串起始长度)(wcmatch字符串格式)T或nil,(write-char数值[档案代码])(write-line字符串[档案代码])(getangle[基点][提示])请求输入十进制角度数值,(getcorner基点[提示])(getdist[基点][提示])(getint[提示])请求输入一整数值的下载资料库()网站下载此资料的,,加入必要时可将此文件解密:..的下载资料库()网站下载此资料的,,(getkword[提示])请求输入『关键词』(getorient[基点][提示])请求输入十进制角度,响应一弪度值不受angbase、(getpoint[基点][提示])(getreal[提示])(getstring[提示])(initget[位]字符串)(angle点1点2)(distance点1点2)(inters点1点2点3点4[模式])(osnap点模式字符串)(polar基点弪度距