µÄ³É¹û±í¡¢Éè¼ÆµÄ²ÄÁÏ±í£¬ÔÚAutoCADÖÐÎÄ×Ö´¦Àí±È½Ï²î

£¬ÓÃTEXT¡¢DTEXTÃüÁîÔÚ±í¸ñÖж¨Î»Ò²²»·½±ã£¬ÌîдµÄ±í¸ñ

¼È²»ÃÀ¹Û£¬»¹ÈÝÒ׳ö´í¡£ÔÚһЩÔÓÖ¾ÖÐÓйرí¸ñÌîд³ÌÐò

½éÉÜ£¬µ«ÊÇʹÓò»·½±ã£¬Ò²²»ÄÜÁ¬ÐøÌîд¶à¸ö±í¸ñ£¬³¤¾à

ÀëÏß·¿±²ìÖÐÏßתµãÉÙÔò¼¸Ê®¸ö£¬¶àÔòÉÏǧ£¬ÖÐÏßÊý¾Ý¿É

ÓɼÆËãÖ±½ÓÉú³É£¬ÄÜ·ñÀûÓÃÖÐÏßÊý¾ÝÖ±½ÓÌî±í³öͼ¡£

¡¡¡¡ÀûÓÃAutoCAD¶þ´Î¿ª·¢£¬±àдÖÐÏ߳ɹûÌîд³ÌÐò£¨zxc

g£®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ÔËÐгÌ

Ðò£¬±¾³ÌÐò½«ÖÐÎÄÌáʾ¡£

¡¡¡¡

ËÄ¡¢½áÊøÓï

¡¡¡¡¸ÃÓ¦ÓóÌÐòÌṩÁËÁ½ÖÖÐÎʽµÄ±í¸ñ£¬ÓÐÐËȤµÄ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¡åÇëÊäÈëÖÐÏ߳ɹûÊý¾ÝÎļþ¡åFF

1¡åDAT¡å12£©£©

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

£©

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

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

XT¡å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£©£¨SET

QM£¨£­M1£©NLNN£©£©

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

¡¡¡¡£¨princ¡å¹²¶ÁÈë¡å£©£¨PRINCN£©£¨PRINC¡åµã£¬·Ö¡å

£©£¨PRINCM£©£¨PRINC¡åÒ³Ìîд£¡¡å£©

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

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

¡¡¡¡£¨IF£¨¦ªYN¡åNO¡å£©£¨SETQDI£¨LIST678£®58103£®58

125£®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¡åP7P8

GNZ£©£©£©£©

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