考试辅导:AutoCAD中表格自动化(二)

来源:室内设计师    发布时间:2013-03-31    室内设计师辅导视频    评论

  三、加载及运行 
  在AutoCADR12(或AutoCADforWindows)中,把Zxcg.lsp和Zxcg.dwg拷贝到SUPPORT子目录下,用鼠标点文件(File)下应用程序(Applications),或在Command:下敲入Appload加载Zxcg.lsp,或在command:下敲入(Load“Zxcg”)即可。然后在Command:下敲入ZX运行程序,本程序将中文提示。 
  四、结束语 
  该应用程序提供了两种形式的表格,有兴趣的AutoCAD用户不妨增加几种表格,修改程序中对应的参数即可。 
  附源程序 
  ...****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)***

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答