cad拼图程序lisp程序

《cad拼图程序lisp程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

CAD拼图程序lisp程序(clefunc:pintu(sis2(ptlpt2inna.)(setvar〃blipmocle〃)(setvar〃cmdecho〃)(getrowandcolumn)(setqpl(getpoint输入起始点〃)(setqpO,pl).(setqpaO(0to10)(setqpai(list(aspaO)一(frameworkpaO)(2000)(setqpa2(list+(pal)(2000)(frameworkpal)(setqpa3(list(pa2)一(frameworkpa2)(2000)(setqpad(list+(pa3)(pa3)framework)(setqpO,pl).(setqvl(getvar〃osmode)(setvar〃osmode〃) /i〃〃〃〃、(.commandzoom,r丿(setqnuma2)(setqnuma3)(setq(0)"(m),列清零(setqj().(setqsi(ssgetpl(list+(pl)1190)+(connectionpl)845)(thesi.(command〃copy〃si"、”pl"(0)(getboundingbox)(coimnandzoom,r)(setqs2(ssget(5/5)(1190850)(cond((«二sd(sd二1195)1185)(progn(coiiunand"move"s2"(0)paO)(setqpaO(list+(paO)(1500)frameworkpaO)))) ((«=sd(sd二835845)(progn(command"move"s2"(0)(setqpai(pai)list(pal)(frameworkpal)614)))))((«=sd(sd二600)590)(progn(command"move"s2〃(0)(pa2)・(setqnuma2(1+numa2)(if(二(remnuma2(2)(setq(list(pa2pa2)-(frameworkpa2)440)(setq(list+(pa2pa2)614)+(frameworkpa2)440))((«二sd(sd二425))))(progn(command"move"s2"(0)pa3)(setqnuma3(1+numa3) (if(=(remnuma3(2)(setqpa3(list+(pa3)440(pa3)framework)(setqpa3(list((((pa3)440)frameworkpa3)317)))(((〈二(215)(>二(dd))(progn(coiiunand"move"s2"(0)(pa4)setqpa4(list+(pa4)(frameworkpa4))));;;(t(setqfn(strcatf/a4/tuhao〃a4・dwg"))(setqsi.))(setqpl(list+(pl)1(pl)framework)(setqj(1+j).)(setqpO(list(carpO)(-(cadrpO)1500)))(setqplpO) (setqin(1+1)))(setvar"osinode"vl);;;(setvar〃osmode〃16383)(prince));;;取得图幅幅面宽度以便判断图幅大小(defungetboundingbox(/sspt2inpt_listptlOptllaendatamy_xmax_xmy_x_pt_listmax_x_pt_listmy_x_ptmax_x_pt)(setqpt2(list(+(carpl)1195)(+(cadrpl)850))) (setqss(ssget〃w〃plpt2'((0."line"))))(setqin0)(setqpt_listnil)；；；获取所有直线端点并赋值给pt_list(repeat(sslengthss)(setqa(ssnamessin))(setqendata(entgeta))(setqptlO(cdr(assoc.10endata)))(setqpt_list(consptlOpt_list))(setqptll(cdr(assoc.11endata))) (setqpt_list(consptllpt_list))(setqin(1+1))获取最小点和最大点(setqpt_list(vl-blackpt_list(function(lambda(ele2)«(carel)(care2))))))(setqmy_x(car(carpt_list)))(setqpt_list(reversept_list))(setqmax_x(car(carpt_list)))(setqmy_x_pt_listnil)(setqmax_x_pt_listnil)(foreachvalpt_list(if(二(carval)my_x)(setqmy_x_pt_list(consvalmy_x_pt_list)))(if(二(carval)max_x) (setqmax_x_pt_list(consvalmax_x_pt_list))))(setqmy_x_pt_list(vl-blackmy_x_pt_list(function(lambda(ele2)(<(cadrel)(cadre2))))))(setqmy_x_pt(carmy_x_pt_list))(setqmax_x_pt_list(vl-blackmax_x_pt_list(function(lambda(ele2)(>(cadrel)(cadre2))))))(setqmax_x_pt(carmax_x_pt_list));;;(prinlmy_x_pt);;;(prinlmax_x_pt)(setqdd(max_xmy_x))(setqdd(fix(dd));;;(prinldd));;;;;;;;不同图幅图纸，图号字符提取 ；；；；；；alongaO;;;(defunaO_tufu(/sssOaendata);;;(command"zoonT(list(114425)(-605))(list(+114425)(+605)));;;(setqsssO(ssget(list(114425)(-605))(list(+114425)(+605))((0・〃text〃))))(setqin(ssnamesssO0))(setqendata(;;;entget)(setq(;;;tuhao(1CorendataAssoc)；；；)Al;;;_Tufu(defun(Al/ssslinendata);;;(Command〃Zoom〃〃W〃(list(25-796)(5-60)(list(796(60+25+5))))(setqsssl(;;;ssget(list(25-796)(5-60)(list(+25(+60796)(5)(0)'・〃Text"))))(setq(;;;ssnamesssl0))(setqendata(;;;entget) (setq(;;;tuhao(1CorendataAssoc)；；；）A2;;;_Tufu(defun(A2/sss2inendata);;;(Command〃Zoom〃〃W〃(list(25一549)(5-60)(list(549(60+25+5))))(setqsss2(;;;ssget(list(25一549)(5-60)(list(549(+60+25)(5)(0)'・〃Text〃))))(setq(;;;ssnamesss20))(setqendata(;;;entget)(setq(;;;tuhao(1CorendataAssoc)；；；)AQ,,,,,,nu;;;Tufu(defun(A3/sss3inendata);;;(Command〃Zoom〃〃W〃(list(-380(25)-555)(list(+38025)(+55(5))(setqsss3(;;;ssget(list(-380(25)-555)(list(+38025 (5)+(55)(0)'・〃Text〃))))(setq(;;;ssnamesss30))(setqendata(;;;entget)(setq(;;;tuhao(1CorendataAssoc)；；；)；；；；；；A4;;;_Tufu(defun(A4/sss4inendata);;;(Command〃Zoom〃〃W〃(list(-170(25)-555)(list(25+170)(+55(5))(setqsss4(;;;ssget"W(list(-170(25)-555)(list((25+55+170)(5)(0)'・〃Text〃))))(setq(;;;ssnamesss40))(setqendata(;;;entget)(setq(;;;tuhao(1CorendataAssoc);;;)(defunget_rowandcolumn(PT3/PT4ssssRowcolumn) (setqPT3(getpointz/ 输入第一角点：〃)(setqWP4(getcornerPT3" 输入第二角点:")(setqSS_row〃C〃(ssgetPT3(list(CARPT3(CADR)(WP4)(0)"Line〃))))(setqm(sslengthSS_Row);计算横行数(setqSS_Column〃C〃(ssgetPT3(list(CAR(WP4)PT3(CADR)(0)l"Line〃))))(setqN(sslengthss_column))；计算列数(警报(将“共有〈”(ITOAm)”〉行，〈”(ITOAN)”＞列在界面上！j)(PRIN1)；；；(1144,60)；；；(796,60)；；；(549,60)；；；(380,55)；；；(170,55)