首页 >> 职业资格
社会工作
考试指南 | 考试资讯 | 复习指导 | 试题库
您当前的位置: 首页 >> 职业资格 >> 社会工作 >> 复习指导
站内搜索:

考试辅导:AutoCAD中表格自动化(二)
作者:城市网 来源:考试大 更新日期:2013-2-28

  三、加载及运行

  在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)***


社会工作考试通关必备网络课程免费试听>>
社会工作相关文章:
网站首页 - 关于我们 - 版权声明 - 广告服务 - 网站地图 - 会员专区 - 客户服务 - 疑难解答 - 联系我们
Copyright© 2010 cn.cityy.cn 城市网 版权所有
中国·城市教育 粤ICP备06023013号