AutoLisp 源代碼 實(shí)用程序2-rev3

AutoLisp源代碼實(shí)用程序2_rev3AutoLisp源代碼實(shí)用程序2_rev3AutoLisp源代碼實(shí)用程序2_rev3xxx公司AutoLisp源代碼實(shí)用程序2_rev3文件編號：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計(jì)，管理制度;****************************************************(defunvslout()(setqpt1'(000))(setqpt2(getpoint"\nSpecifythecenterofvessel:"))(setqdix(-(carpt2)(carpt1)))(setqdiy(-(cadrpt2)(cadrpt1)))(setqwfile(open"c:/public/""w"))(setqdi(strcattyp","(rtosdixunitprec)","(rtosdiyunitprec)))(write-linediwfile)(closewfile)(princ(strcat"\nX="(rtosdixunitprec)))(princ(strcat"\nY="(rtosdiyunitprec))));***************************************************(defunpipeout()(setqpt1(getpoint"\nSpecifytheBasepoint:"))(setqpt2(getpoint"\nSpecifythecenterofpiping:"))(setqpip(getstring"\nSpecifythediameterofpipe:"))(setqdiz(abs(-(caddrpt1)(caddrpt2))))(setqwfile(open"c:/public/""w"))(setqdi(strcattyp","pip","(rtosdizunitprec)))(write-linediwfile)(closewfile)(princ(strcat"\nZ="(rtosdizunitprec)))(princ(strcat"\nPipeSize="pip)));*******************************************************(defunpsout()(setqpt1(getpoint"\nSpecifythebasepoint:"))(setqpt2(getpoint"\nSpecifythetopofPs:"))(setqdiz(abs(-(caddrpt1)(caddrpt2))))(setqwfile(open"c:/public/""w"))(setqdi(strcattyp","(rtosdizunitprec)))(write-linediwfile)(closewfile)(princ(strcat"\nZ="(rtosdizunitprec))));=======================================================(defunc:2(/unittyppt1pt2dixdiydizwfilediprectypip)(setqunit(getvar"lunits")prec(getvar"LUPREC"))(if(=unit2)(setqprec0))(setqty(getstring"\nInputthetypeofequip:PipeorVesselorpipeSupport<P/V/S>:"))(command"ucs""w")(if(=tynil)(setqty"v"))(if(or(=ty"p")(=ty"P"))(progn(setqtyp"pipe")(pipeout)))(if(or(=ty"v")(=ty"V"))(progn(setqtyp"vessel")(vslout)))(if(or(=ty"s")(=ty"S"))(progn(setqtyp"pipesupport")(psout)))(princ));=======================================================;********************************************************(defuninpstr(str0m)(setqsstr0str0)(setqstrlong(strlensstr0))(setqtotaln1)(setqk0)(setqlist0nil)(while(<=totalnstrlong)(setqstrdot(substrsstr0totaln1))(if(=strdot",")(progn (setqk(+k1))(setqdotloc(consktotaln))(setqlist0(consdotloclist0)) ))(setqtotaln(1+totaln)))(if(>m1)(setqfirstn(+(cdr(assoc(1-m)list0))1))(setqfirstn1))(if(<=mk)(setqendn(cdr(assocmlist0)))(setqendn(+strlong1)))(setqfinals(substrsstr0firstn(-endnfirstn))));********************************************************;;;(defunvslin();;;(setqdix(distof(inpstrsline2)4));;;(setqdiy(distof(inpstrsline3)4));;;(setvar"osmode"os);;;(setqpt0(getpoint"\nSpecifytheOriginalpointofskid:"));;;(setvar"osmode"1024);;;(setqpt1(polar(polarpt00dix)(/pi2)diy));;;(command"circle"pt1"d"do_c2);;;(command"chprop"(entlast)"""la""Defpoints""");;;(setqpt2(polarpt1(*pido_c));;;(setqpt3(polarpt1(*pido_c));;;(command"line"pt2pt3"");;;(command"chprop"(entlast)"""la""Defpoints""");;;(setqpt2(polarpt1(*pido_c));;;(setqpt3(polarpt1(*pido_c));;;(command"line"pt2pt3"");;;(command"chprop"(entlast)"""la""Defpoints""");;;(princ(strcat"\nX="(rtosdixunitprec)));;;(princ(strcat"\nY="(rtosdiyunitprec)));;;)(defunvslin()(setqdix(distof(inpstrsline2)2))(setqdiy(distof(inpstrsline3)2))(setvar"osmode"os)(setqpt0(getpoint"\nSpecifytheOriginalpointofskid:"))(setvar"osmode"1024)(command"text"pt0"3""0"(inpstrsline3))(setqpt0(polarpt0(*pi5))(command"text"pt0"3""0"(inpstrsline2)));********************************************************(defunpipein()(setqdix(inpstrsline2))(setqdiz(inpstrsline3))(setqdix(distofdix4))(setqdiz(distofdiz4))(if(=unit2)(progn(if(=dix1)(setqcir33))(if(=dix(setqcir48))(if(=dix2)(setqcir60))(if(=dix3)(setqcir89))(if(=dix4)(setqcir114))(if(=dix5)(setqcir141))(if(=dix6)(setqcir168))(if(=dix8)(setqcir219))(if(=dix10)(setqcir273))(if(=dix12)(setqcir324))(if(=dix14)(setqcir356))(if(=dix16)(setqcir406)))(progn(if(=dix1)(setqcir)(if(=dix(setqcir)(if(=dix2)(setqcir)(if(=dix3)(setqcir)(if(=dix4)(setqcir)(if(=dix5)(setqcir)(if(=dix6)(setqcir)(if(=dix8)(setqcir)(if(=dix10)(setqcir)(if(=dix12)(setqcir)(if(=dix14)(setqcir14))(if(=dix16)(setqcir16))))(setvar"osmode"os)(setqpt0(getpoint"\nSpecifythebasepoint:"))(setvar"osmode"1024)(setqpt1(polarpt0(/pi2)diz))(command"circle"pt1"d"cir)(command"chprop"(entlast)"""la""0""")(setqdiz(rtosdizunitprec))(princ(strcat"\nZ="diz)));********************************************************(defunpsin()(setvar"osmode"os)(setqdiz(distof(inpstrsline2)4))(setqpt0(getpoint"\nSpecifytheOriginalpointofskid:"))(setvar"osmode"1024)(setqpt1(polarpt0(/pi2)diz))(command"circle"pt1"d"do_c2)(command"chprop"(entlast)"""la""Defpoints""")(setqpt2(polarpt1(*pido_c))(setqpt3(polarpt1(*pido_c))(command"line"pt2pt3"")(command"chprop"(entlast)"""la""Defpoints""")(setqpt2(polarpt1(*pido_c))(setqpt3(polarpt1(*pido_c))(command"line"pt2pt3"")(command"chprop"(entlast)"""la""Defpoints""")(princ(strcat"\nZ="(rtosdizunitprec))));********************************************************(defunchk_lay()(setqchklay(tblsearch"layer""Defpoints"))(if(nullchklay)(command"layer""n""Defpoints""c""white""Defpoints""")));========================================================(defunc:22(/str0msstr0strlongtotalnklist0strdotdotlocfirstnendnfinalsos pt0wfileslinenamedixdiydizpt1pt2unitprecchklaypt3do_ccir)(chk_lay)(setqos(getvar"osmode"))(setqunit(getvar"lunits")prec(getvar"LUPREC"))(if(=unit2)(progn(setqprec0)(setqdo_c75))(progn(setqdo_c3)))(setqwfile(open"c:/public/""r"))(setqsline(read-linewfile))(setqname(inpstrsline1))(if(=name"vessel")(progn(princ"\nSpecifythepositionofvessel")(vslin)))(if(=name"pipe")(progn(princ"\nSpecifythepositionofpipe")(pipein)))(if(=name"pipesupport")(progn(princ"\nSpecifytheheightofpipesupport")(psin)))(setvar"osmode"os)(prin1));=============================================================(defunc:222()(chk_lay)(setq unit(getvar"lunits"))(if(=unit2)(progn(setqdo_c75))(progn(setqdo_c3)))(setqpt0(getpoint"\nSecpifythebasepoint:"))(setqdst(getdist"\nSecpifythedistance:"))(setvar"osmode"1024)(setqpt1(polarpt0(/pi2)dst))(command"circle"pt1"d"do_c2)(command"chprop"(entlast)"""la""Defpoints""")(setqpt2(polarpt1(*pido_c))(setqpt3(polarpt1(*pido_c))(command"line"pt2pt3"")(command"chprop"(entlast)"""la""Defpoints""")(setqpt2(polarpt1