标注方位角LSP插件

(defunc:fw(/blipcmdadedecprecnitsbzxinipointendpointp1p2cs_fromcs_toiniendp1_ucsp2_ucsxinixendyiniyendxp1_ucsyp1_ucsxp2_ucsyp2_ucsttjdh1jdd1fwjos_modebz_pointmnnodezdfwj)(setqblip(getvarblipmode))(setqcmd(getvarcmdecho))(setqade(getvardimadec))(setqdec(getvardimdec))(setqprec(getvarauprec))(setqnits(getvaraunits))(setvarblipmode0)(setvarcmdecho1)(setvardimadec5)(setvardimdec3)(setvarauprec5)(setvaraunits3)(prompt\nÇëÑ¡Òª±ê×¢·½Î»½ÇµÄÖ±Ïß,Ëü²»ÄÜÊǶàÒåÏß)(setqbzx(entsel))(setqbzx(entget(carbzx)))(setqinipoint(cdr(assoc10bzx)))(setqendpoint(cdr(assoc11bzx)))(prompt\nÇë°´ÆðµãÖÁÖÕµãµÄ˳ÐòÑ¡Ö±ÏßÉϵÄÁ½¸öµã,ÒԱ㶨·½Î»)(prompt\nÇëÊäÈëÆðµã)(setqp1(getpoint))(prompt\nÇëÊäÈëÖÕµã)(setqp2(getpoint))(setqcs_from0)(setqcs_to1)(setqini(transinipointcs_fromcs_to))(setqend(transendpointcs_fromcs_to))(setqp1_ucs(transp1cs_fromcs_to))(setqp2_ucs(transp2cs_fromcs_to))(setqxini(carini))(setqyini(cadrini))(setqxend(carend))(setqyend(cadrend))(setqxp1_ucs(carp1_ucs))(setqyp1_ucs(cadrp1_ucs))(setqxp2_ucs(carp2_ucs))(setqyp2_ucs(cadrp2_ucs))(setqtt0)(if((abs(-xinixend))0.000001)(progn(if(=(/(-yiniyend)(-xinixend))-0.00001)(progn(if(xp1_ucsxp2_ucs)(progn(setqTT1)))(if(xp1_ucsxp2_ucs)(progn(setqTT3)))))(if((/(-yiniyend)(-xinixend))-0.00001)(progn(if(yp1_ucsyp2_ucs)(progn(setqTT2)))(if(yp1_ucsyp2_ucs)(progn(setqTT4)))))))(if((abs(-xinixend))0.00001)(progn(if(yp1_ucsyp2_ucs)(progn(setqtt5)))(if(yp1_ucsyp2_ucs)(progn(setqtt6)))))(if(tt5)(progn(setqJDh1(atan(abs(-yiniyend))(abs(-xinixend))))(setqJDD1(angtosJDh115));СÓÚ¶þ·ÖÖ®Ò»PIµÄ»¡¶Èת»¯Îª½Ç¶È,ÇÒΪ×Ö·û´®(if(=tt1)(progn(setqJDh2(-(*0.5PI)JDh1))(setqJDD1(angtosJDh215))(setqfwj(strcatNEJDD1))))(if(=tt2)(progn(setqJDh2(+JDh1(*1.5PI)))(setqJDD1(angtosJDh215))(setqfwj(strcatNWJDD1))))(if(=tt3)(progn(setqJDh3(-(*1.5PI)JDh1))(setqJDD1(angtosJDh315))(setqfwj(strcatSWJDD1))))(if(=tt4)(progn(setqJDh3(+JDh1(*0.5PI)))(setqJDD1(angtosJDh315))(setqfwj(strcatSEJDD1))))))(setqtr1(angtos014))(setqtr2(angtosPI14))(if(=tt5)(setqfwj(strcatNEtr1)))(if(=tt6)(setqfwj(strcatSWtr2)))(setqmn(strlenfwj))(setqnode1)(setqzdfwjfwj)(repeatmn(if(=(substrfwjnode1)d)(progn(if(=(substrfwj(-node1))%)(progn(setqzdfwjfwj)))(if(/=(substrfwj(-node1))%)(progn(setqzdfwj(strcat(substrfwj1(-node1))%%d(substrfwj(+node1)(-mnnode))))))))(setqnode(+node1)))(setqfwjzdfwj)(prompt\nÇëÑ¡±ê×¢ÎÄ×ÖµÄλÖÃ)(setqos_mode(getvarosmode))(setvarosmode0)(setqbz_point(getpoint))(commandtextbz_point3.00fwj)(setvarosmodeos_mode)(setvarblipmodeblip)(setvarcmdechocmd)(setvardimadecade)(setvardimdecdec)(setvarauprecprec)(setvaraunitsnits)(prompt\n......Ö¸Áîfw.....)(prompt\nÈç¹ûµ±Ç°×ÖÌå×Ö¸ßÔÚSTYLEÖж¨ÒåΪ²»µÈÓÚ0)(prompt,)(promptÔò³ÌÐò½«³ö´í)(prompt\nÇëÑ¡Ò»ÖÖûÓж¨Òå×ָߵÄ×ÖÌå×öΪ±ê×¢×ÖÌå)(prin1))(princ\n====¼üÈëfwÔËÐб¾²å¼þ)