ÅíµÂ»ª

¡¡¡¡¹¤³ÌͼֽÖо­³£Óöµ½´óÁ¿±í¸ñÌîд£¬ÀýÈ繤³Ì¿±²ìÖеijɹû±í¡¢Éè¼ÆµÄ²ÄÁÏ±í£¬ÔÚAutoCADÖÐÎÄ×Ö´¦Àí

±È½Ï²î£¬ÓÃTEXT¡¢DTEXTÃüÁîÔÚ±í¸ñÖж¨Î»Ò²²»·½±ã£¬ÌîдµÄ±í¸ñ¼È²»ÃÀ¹Û£¬»¹ÈÝÒ׳ö´í¡£ÔÚһЩÔÓÖ¾ÖÐÓÐ

¹Ø±í¸ñÌîд³ÌÐò½éÉÜ£¬µ«ÊÇʹÓò»·½±ã£¬Ò²²»ÄÜÁ¬ÐøÌîд¶à¸ö±í¸ñ£¬³¤¾àÀëÏß·¿±²ìÖÐÏßתµãÉÙÔò¼¸Ê®¸ö£¬

¶àÔòÉÏǧ£¬ÖÐÏßÊý¾Ý¿ÉÓɼÆËãÖ±½ÓÉú³É£¬ÄÜ·ñÀûÓÃÖÐÏßÊý¾ÝÖ±½ÓÌî±í³öͼ¡£ÀûÓÃAutoCAD¶þ´Î¿ª·¢£¬±àдÖÐ

Ï߳ɹûÌîд³ÌÐò£¨zxcg£®lsp£©£¬¸Ä±äÒÔÍù³öͼ¹¤Ðò£¨Ìîд¡¢Ð£¶Ô£©£¬´ó´óÌá¸ß¹¤×÷ЧÂÊ¡£

¡¡¡¡

Ò»¡¢³ÌÐò¹¦ÄÜÓë±àд˵Ã÷

¡¡¡¡1¡¢±¾³ÌÐò¾ßÓÐÏÂÁй¦ÄÜ£º

¡¡¡¡£¨1£©Ö±½ÓÔÚÎı¾±à¼­Æ÷£¨EDIT¡¢QE¡¢WPSµÈµÈ£©±à¼­¡¢ÐÞ¸ÄÊý¾Ý£¬ÃâÈ¥AutoCADÎÄ×ֱ༭¡¢ÐÞ¸ÄÖ®²»±ã£»

¡¡¡¡£¨2£©¿ÉÒÔ×Ô¶¯·ÖÒ³£¬×Ô¶¯Ìîд¹¤³ÌÃû³Æ¡¢µµ°¸ºÅ¡¢ÈÕÆڵȵȣ»

¡¡¡¡£¨3£©¿ÉÒÔ×Ô¶¯´¦ÀíÖÐÏ߳ɹûÊý¾ÝÇ°ºóµÄ¿Õ¸ñ£¬ÀýÈ磺

¡¡¡¡¡°123123£®123¡±½«×Ô¶¯×ª»¯Îª¡°123123£®123¡±£»

¡¡¡¡£¨4£©¿ÉÒÔ×Ô¶¯Ê¶±ðÁ½ÖÖ¹¤³ÌÃû³ÆÊý¾ÝÎļþ£»

¡¡¡¡£¨5£©Îı¾×´Ì¬ÏÂÊý¾ÝÕýÈ·ÎÞÎ󣬳öͼǰÎÞÐèÔÚAutoª²CADÖÐÐ޸ģ¬µ÷ͼËٶȺÍÖØгÉͼËÙ¶ÈÏà²îÎÞ¼¸£¬

¿ÉÖ±½Ó±£´æÊý¾ÝÎļþ£¬½ÚÊ¡´ÅÅ̿ռ䡣

¡¡¡¡2¡¢³ÌÐò˵Ã÷£º

¡¡¡¡³ÌÐòÀûÓÃAutoLISPµÄ¼ÆËã¡¢Åжϡ¢×Ö·û´¦Àí¡¢Ñ­»·½á¹¹ÒÔ¼°µ÷ÓÃTextÃüÁîµÈ¹¦ÄܶԶÁÈëµÄÊý¾Ý½øÐд¦Àí

ºóÌîд£¬Óë±¾³ÌÐò¶ÔÓ¦µÄZxcg£®dwgͼÐÎÎļþº¬Ëĸö±í¸ñͼ¿é£¬³ÌÐòÖеÄÓйزÎÊý¾ùÈ¡¾öÓÚËĸöͼ¿é¡£

¡¡¡¡

¶þ¡¢Ê¹ÓÃ˵Ã÷

¡¡¡¡1¡¢¹ØÓÚÖÐÏ߳ɹûÊý¾Ý¸ñʽ£º

¡¡¡¡£¨1£©ÎÞÇúÏß

¡¡¡¡µÚÒ»ÐУ¬×ܵãÊý£¨N£©

¡¡¡¡µÚ¶þÖÁÆßÐУ¬µãÃû£¨NAME£©¡¢Àï³Ì£¨K£©¡¢¸ß³Ì£¨H£©¡¢×ø±êX¡¢Y¡¢×ª½Ç£¨B£©¡­¡­Öظ´¶þÖÁÆßÐУ¨Ã»ÓÐÊý

¾ÝÏîÓÿÕÐдúÌ棩

¡¡¡¡£¨2£©ÓÐÇúÏß

¡¡¡¡µÚÒ»ÐУ¬×ܵãÊý£¨N£©

¡¡¡¡µÚ¶þÖÁʮһÐУ¬µãÃû£¨NAME£©¡¢Àï³Ì£¨K£©¡¢¸ß³Ì£¨H£©¡¢×ø±êX¡¢Y¡¢×ª½ÇB£¬°ë¾¶R£¬ÇÐÏß³¤T¡¢ÇúÏß³¤

L¡¢Íâʸ¾ØE¡­¡­Öظ´¶þÖÁʮһÐУ¨Ã»ÓÐÊý¾ÝÏîÓÿÕÐдúÌ棩

¡¡¡¡2¡¢¹ØÓÚ¹¤³ÌÃû³ÆÊý¾Ý¸ñʽ£º

¡¡¡¡£¨1£©µ¥±êÌâ

¡¡¡¡µÚÒ»ÐУ¬¹¤³ÌÃû³Æ

¡¡¡¡µÚ¶þÐУ¬µµ°¸ºÅ£¨Èç²â£­3777£¯±í£¬Ö»ÐèÊäÈë3777£©

¡¡¡¡µÚÈýÐУ¬ÈÕÆÚ£¨¿ÉÊ¡ÂÔ£¬È¡µ±Ç°ÈÕÆÚ£©

¡¡¡¡£¨2£©Ë«±êÌâ

¡¡¡¡µÚÒ»ÐУ¬¹¤³ÌÃû³Æ´ó±êÌâ

¡¡¡¡µÚ¶þÐУ¬¹¤³ÌÃû³ÆС±êÌâ

¡¡¡¡µÚÈýÐУ¬µµ°¸ºÅ£¨Èç²â£­3777£¯±í£¬Ö»ÐèÊäÈë3777£©

¡¡¡¡µÚËÄÐУ¬ÈÕÆÚ£¨¿ÉÊ¡ÂÔ£¬È¡µ±Ç°ÈÕÆÚ£©

¡¡¡¡

Èý¡¢¼ÓÔؼ°ÔËÐÐ

¡¡¡¡ÔÚAutoCADR12£¨»òAutoCADforWindows£©ÖУ¬°ÑZxcg£®lspºÍZxcg£®dwg¿½±´µ½SUPPORT×ÓĿ¼Ï£¬ÓÃÊó±ê

µãÎļþ£¨File£©ÏÂÓ¦ÓóÌÐò£¨Applications£©£¬»òÔÚComª²mand£ºÏÂÇÃÈëAppload¼ÓÔØZxcg£®lsp£¬»òÔÚ

command£ºÏÂÇÃÈ루Load¡°Zxcg¡±£©¼´¿É¡£È»ºóÔÚCommand£ºÏÂÇÃÈëZXÔËÐгÌÐò£¬±¾³ÌÐò½«ÖÐÎÄÌáʾ¡£

¡¡¡¡

ËÄ¡¢½áÊøÓï

¡¡¡¡¸ÃÓ¦ÓóÌÐòÌṩÁËÁ½ÖÖÐÎʽµÄ±í¸ñ£¬ÓÐÐËȤµÄAutoCADÓû§²»·ÁÔö¼Ó¼¸ÖÖ±í¸ñ£¬Ð޸ijÌÐòÖжÔÓ¦µÄ²ÎÊý

¼´¿É¡£

¡¡¡¡¸½Ô´³ÌÐò

¡¡¡¡£®£®£®£ª£ª£ª£ªERROR£ª£ª£ª£ª

¡¡¡¡£¨DEFUNERR£¨X£©

¡¡¡¡£»IFANERROR£¨SUCHASCTRL£­C£©

¡¡¡¡OCCURS

¡¡¡¡£»WHILETHISCOMMANDISACTIVE

¡¡¡¡£¨IF£¨AND£¨£¯¦ªX¡åFUNCTIONCANCELLED¡å£©

¡¡¡¡£¨£¯¦ªX¡åQUIT£¯EXITABORT¡å£©£©

¡¡¡¡£¨PPINC£¨STRCAT¡å¦ÉnERROR£º¡åX£©£©£©

¡¡¡¡£¨SETVAR¡åCMDECHO¡å1£©£¨SETVER¡åBLIPª²MODE¡å1£©

¡¡¡¡£¨IF£¨¦ªTYPERF£©¡äFILE£©£¨CLOSERF£©£©

¡¡¡¡£¨IF£¨¦ªTYPERN£©¡äFILE£©£¨CLOSERN£©£©

¡¡¡¡£¨SETQRFNIL£©£¨SETQRNNIL£©

¡¡¡¡£¨SETQ£ªERROR£ªOLDERR£©

¡¡¡¡£»RESTOREOLD£ªERROR£ªHANDLER

¡¡¡¡£¨PRINC£©£©

¡¡¡¡£®£®£®£ª£ª£ª£ªFILETOREAD£ª£ª£ª£ª

¡¡¡¡£¨DEFUNINPUT£¨£©

¡¡¡¡£¨IF£¨¦ªFF1nil£©£¨SEFQFF1£¨GETVAR¡åDWGPREFIX¡å£©£©£©

¡¡¡¡£¨SETQF1£¨GETFILED¡åÇëÊäÈëÖÐÏ߳ɹûÊý¾ÝÎļþ¡åFF1¡åDAT¡å12£©£©

¡¡¡¡£¨SETQLF£¨STRLENF1£©FF1£¨SUBSTRF11£¨£­LF4£©£©£©

¡¡¡¡£¨IF£¨¦ªFF2nil£©£¨SETQFF2FF1£©£©

¡¡¡¡£¨SETQF2£¨GETFILED¡åÇëÊäÈ빤³ÌÃû³ÆÎļþ¡åFF2¡åTXT¡å12£©£©

¡¡¡¡£¨SETQLF£¨STRLENF2£©FF2£¨SUBSTRF21£¨£­LF4£©£©£©

¡¡¡¡£¨initget¡åYesNo¡å£©

¡¡¡¡£¨setqYN£¨getkword¡å¦ÉnÇëÑ¡ÔñÓÐÇúÏßÔªËØYes£¯No£º£¨N£©¡å£©£©

¡¡¡¡£¨if£¨¦ªYNnil£©£¨SETQYN¡åNo¡å£©£©£©

¡¡¡¡£®£®£®£ª£ª£ª£ªDATAFORPROGRAMME£ª£ª£ª£ª£ª

¡¡¡¡£¨DEFUNDDAT£¨£©

¡¡¡¡£¨SETQRF£¨OPENF1¡år¡å£©£©£¨SETQRN£¨OPENF2¡år¡å£©£©

¡¡¡¡£¨SETQGN£¨READ£­LINERN£©GG1DAH£¨READ£­LINERN£©£©

¡¡¡¡£¨IF£¨¦ªATOIDAH£©0£©£¨PROGN£¨SETQGG2GN2DAHDAH£¨READ£­LINERN£©£©£©£©

¡¡¡¡£¨SETQDAT£¨READ£­LINERN£©£©

¡¡¡¡£¨IF£¨¦ªDATNIL£©£¨PROGN£¨SETQDAT£¨GETVAR¡åCDAª²TE¡å£©£©£»È¡µ±Ç°ÈÕÆÚ

¡¡¡¡£¨SETQDAT£¨FIXDAT£©£©£¨SETQDAT£¨ITOADAT£©£©

¡¡¡¡£¨SETQYY£¨SUBSTRDAT14£©MM£¨SUBSTRDAT52£©£©

¡¡¡¡£¨SETQDD£¨SUBSTRDAT72£©DAT£¨STRCATYY¡å£­¡åMM¡å£­¡åDD£©£©£©£©

¡¡¡¡£¨SETQNO£¨READ£­LINERF£©N£¨ATOINO£©£©

¡¡¡¡£¨SETQNF26NN29£©£»Êס¢´ÎÒ³ÐÐÊý

¡¡¡¡£¨SETQM£¨FIX£¨£«£¨£¯£¨£­NNF£©NN£©2£©£©£©£º¼ÆËãÒ³Êý

¡¡¡¡£¨SETQNL£¨REM£¨£­NNF£©NN£©£©£¨IF£¨¦ªNL0£©£¨SETQM£¨£­M1£©NLNN£©£©

¡¡¡¡£¨IF£¨¦©¦ªNNF£©PROGN£¨SETQM1£©£¨SETQNLN£©£©£©

¡¡¡¡£¨princ¡å¹²¶ÁÈë¡å£©£¨PRINCN£©£¨PRINC¡åµã£¬·Ö¡å£©£¨PRINCM£©£¨PRINC¡åÒ³Ìîд£¡¡å£©

¡¡¡¡£¨SETQYY8XX230£©£»Ðоࡢҳ¾à

¡¡¡¡£¨SETQI1X00Y00DAH£¨STRCAT¡å²â£­¡åDAH¡å£¯¡å£©£©

¡¡¡¡£¨IF£¨¦ªYN¡åNO¡å£©£¨SETQDI£¨LIST678£®58103£®58125£®08150£®08180£®08208£®08£©£©

¡¡¡¡£¨SETQDI£¨LIST1071£®9088£®39105£®58122£®61140£®30156£®83172£®86188£®07208£®00232£®73£©£©£©£©

¡¡¡¡£»±í¸ñÏîÊý¼°¸÷Ïîºá×ø±ê£¨X£©

¡¡¡¡£¨SETQYYF285£®0YYN305£®7£©£»Êס¢´ÎÒ³µÚÒ»ÐÐ×Ý×ø±ê

¡¡¡¡£®£®£®£®£ª£ª£ª£ªÉ¾³ýÊý¾ÝÇ°ºó¿Õ¸ñ£¨QKG£©£ª£ª£ª

£ª£ª£ª

¡¡¡¡£¨DEFUNQKG£¨£©

¡¡¡¡£¨SETQLE1£©

¡¡¡¡£¨WHILE£¨¡´LE£¨STRLENTXT£©£©£¨RPOGN£¨SETQLF£¨£«1LE£©£©

¡¡¡¡£¨WHILE£¨¦ª£¨SUBSTRTXT11£©¡å¡å£©£¨PROGN£¨SETQTXT£¨SUBSTRTXT2£¨STRLENTXT£©£©£©£©£©£©£©

¡¡¡¡£¨SETQLE£¨STRLENTXT£©£©

¡¡¡¡£¨IF£¨¡µLE2£©£¨WHILE£¨AND£¨¦ª£¨SUBSTRTXTLE1£©¡å¡å£©£¨¦«LE2£©£©

¡¡¡¡£¨PROGN£¨SETQLE£¨£­LE1£©TXT£¨SUBSTRTXT1LE£©£©£©£©£©£©

¡¡¡¡£®£®£®£®£®£ª£ª£ª£ª£ªZXTX£ª£ª£ª£ª£ª£ª

¡¡¡¡£¨DEFUNZXTX£¨£©

¡¡¡¡£¨PRINC¡å¦ÉnÕýÔÚÌîдÖÐÏ߳ɹûÊý¾Ý£¬ÇëÉÔºò£¡¡å£©

¡¡¡¡£¨WHILE£¨¦©¦ªIM£©£¨PROGN£¨SETQPT0£¨LISTX0Y0£©£©

¡¡¡¡£¨SETQP1£¨LIST£¨£«X0236£®0£©348£®5£©£©£¨SETQP2£¨LIST£¨£«X0207£®0£©342£®0£©£©

¡¡¡¡£¨SETQP3£¨LIST£¨£«X0227£®0£©342£®0£©£©£¨SETQP4£¨LIST£¨£«X0222£®2£©335£®6£©£©

¡¡¡¡£¨IF£¨¦ªYN¡åNo¡å£©£¨IF£¨¦ªI1£©£¨SETQZX¡å£ªPZX£­F¡å£©£¨SETQZX¡å£ªPZX£­N¡å£©£©£»Í¼¿éÑ¡Ôñ

¡¡¡¡£¨IF£¨¦ªI1£©£¨SETQZX¡å£ªQZX£­F¡å£©£¨SETQZX¡å£ªQZX£­N¡å£©£©£©

¡¡¡¡£¨COMMAND¡åINSERT¡åZXPT0¡å1¡å¡å0¡å£©

¡¡¡¡£¨IF£¨¦ªI1£©£¨PROGN£¨SETQP2£¨LIST£¨£«X0207£®0£©336£®0£©£©

¡¡¡¡£¨SETQP3£¨LIST£¨£«X0227£®0£©336£®0£©£©£¨SETQP4£¨LIST£¨£«X0222£®2£©329£®6£©£©

¡¡¡¡£¨SETQP5£¨LIST£¨£«X0125£®1£©329£®5£©£©£¨SETQP6£¨LIST£¨£«X0185£®9£©329£®5£©£©

¡¡¡¡£¨IF£¨¦ªGG2£©£¨PROGN£¨SETQP5£¨LIST£¨£«X0125£®1£©333£®5£©£©

¡¡¡¡£¨SETQP6£¨LIST£¨£«X0185£®9£©333£®5£©£©£¨SETQP7£¨LIST£¨£«X0135£®1£©323£®5£©£©

¡¡¡¡£¨SETQP8£¨LIST£¨£«X0175£®9£©323£®5£©£©£©£©

¡¡¡¡£¨COMMAND¡åTEXT¡å¡åS¡å¡åHZ¡å¡åJ¡å¡åA¡åP5P6GN£©

¡¡¡¡£¨COMMAND¡åTEXT¡å¡åJ¡å¡åM¡åP4¡å2£®5¡å¡å0¡åDAT£©

¡¡¡¡£¨IF£¨¦ªGG2£©£¨COMMAND£©¡åTEXT¡å¡åJ¡å¡åA¡åP7P8GNZ£©£©£©£©

¡¡¡¡£¨IF£¨¦ªI1£©£¨SETQJNF£©£¨SETQJNN£©£©