AutoCADÖбí¸ñ×Ô¶¯»¯
¹¤³ÌͼֽÖо­³£Óöµ½´óÁ¿±í¸ñÌîд£¬ÀýÈ繤³Ì¿±²ìÖеijɹû±í¡¢Éè¼ÆµÄ²ÄÁÏ±í£¬ÔÚAutoCADÖÐÎÄ×Ö´¦Àí±È½Ï²î£¬ÓÃTEXT¡¢DTEXTÃüÁîÔÚ±í¸ñÖж¨Î»Ò²²»·½±ã£¬ÌîдµÄ±í¸ñ¼È²»ÃÀ¹Û£¬»¹ÈÝÒ׳ö´í¡£ÔÚһЩÔÓÖ¾ÖÐÓйرí¸ñÌîд³ÌÐò½éÉÜ£¬µ«ÊÇʹÓò»·½±ã£¬Ò²²»ÄÜÁ¬ÐøÌîд¶à¸ö±í¸ñ£¬³¤¾àÀëÏß·¿±²ìÖÐÏßתµãÉÙÔò¼¸Ê®¸ö£¬¶àÔòÉÏǧ£¬ÖÐÏßÊý¾Ý¿ÉÓɼÆËãÖ±½ÓÉú³É£¬ÄÜ·ñÀûÓÃÖÐÏßÊý¾ÝÖ±½ÓÌî±í³öͼ¡£ÀûÓÃAutoCAD¶þ´Î¿ª·¢£¬±àдÖÐÏ߳ɹûÌîд³ÌÐò£¨zxcg£®lsp£©£¬¸Ä±äÒÔÍù³öͼ¹¤Ðò£¨Ìîд¡¢Ð£¶Ô£©£¬´ó´óÌá¸ß¹¤×÷ЧÂÊ¡£ ¡¡¡¡
Ò»¡¢³ÌÐò¹¦ÄÜÓë±àд˵Ã÷  
  
¡¡¡¡1¡¢±¾³ÌÐò¾ßÓÐÏÂÁй¦ÄÜ£º  
  
¡¡¡¡£¨1£©Ö±½ÓÔÚÎı¾±à¼­Æ÷£¨EDIT¡¢QE¡¢WPSµÈµÈ£©±à¼­ ¡¢ÐÞ¸ÄÊý¾Ý£¬ÃâÈ¥AutoCADÎÄ×ֱ༭¡¢ÐÞ¸ÄÖ®²»±ã£»  
  
¡¡¡¡£¨2£©¿ÉÒÔ×Ô¶¯·ÖÒ³£¬×Ô¶¯Ìîд¹¤³ÌÃû³Æ¡¢µµ°¸ºÅ¡¢ÈÕÆڵȵȣ»  
  
¡¡¡¡£¨3£©¿ÉÒÔ×Ô¶¯´¦ÀíÖÐÏ߳ɹûÊý¾ÝÇ°ºóµÄ¿Õ¸ñ£¬ÀýÈç £º¡°123123£®123¡±½«×Ô¶¯×ª»¯Îª¡°123123£®23¡±£»  
  
¡¡¡¡£¨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£¨»òAutoCADfor
Windows
£©ÖУ¬°ÑZxcg £®lspºÍZxcg£®dwg¿½±´µ½SUPPORT×ÓĿ¼Ï£¬ÓÃÊó±êµãÎļþ£¨File£©ÏÂÓ¦ÓóÌÐò£¨Applications£©£¬»òÔÚComª²mand £ºÏÂÇÃÈëAppload¼ÓÔØZxcg£®lsp£¬»òÔÚCommand£ºÏÂÇÃÈ루Load¡°Zxcg¡±£©¼´¿É¡£È»ºóÔÚCommand£ºÏÂÇÃÈëZXÔËÐгÌÐò£¬±¾³ÌÐò½«ÖÐÎÄÌáʾ¡£  
  
ËÄ¡¢½áÊøÓï  
  
¡¡¡¡¸ÃÓ¦ÓóÌÐòÌṩÁËÁ½ÖÖÐÎʽµÄ±í¸ñ£¬ÓÐÐËȤµÄAuª²to CADÓû§²»·ÁÔö¼Ó¼¸ÖÖ±í¸ñ£¬Ð޸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¡åCDATE¡å£©£©£»È¡µ±Ç°ÈÕÆÚ  
  
¡¡¡¡£¨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£®£©£©£©£©  
  
¡¡¡¡£»±í¸ñÏîÊý¼°¸÷Ïîºá×ø±ê£¨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¡åP7P8 GNZ£©£©£©£©  
  
¡¡¡¡£¨IF£¨¦ªI1£©£¨SETQJNF£©£¨SETQJNN£©£©