首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 新闻阅读 > 正文

    cad批量处理程序【AUTOCAD教程之批量处理程序】

    时间：2018-08-08来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

    我们在AUTOCAD中编辑大量图形时，发现仅用AUOTCAD本身提供的命令，效率实在太低，故编写系列批量处理程序以提高工作效率、工作质量。


    1．批量修改POLYLINE的线宽(CH_w)：
    我们知道编辑一条POLYLINE的线宽可以通过Pedit命令来完成，如 果需要编辑多条POLYLINE时还使用Pedit命令则不但需要选择目标，还要输入线宽，实在有点不方便，而且还可能漏选。其实编写个小小的LISP程 序便可一次性完成。程序CH_W.LSP如下：

    (DEFUNC:CH_W(/wident_ssn_ssent_njent_a)

    (PRINC"n请选择目标(WCWPCPF)")

    (SETQENT_SS(SSGET)WID(GETREAL"n请输入线宽<0.3>："))

    (if(=widnil)(setqwid0.3))

    (IF(/=ENT_ssnil)

    (PROGN

    (SETQN_SS(SSLENGTHENT_SS)J0)

    (REPEATN_SS

    (SETQENT_N(SSNAMEENT_SSJ)ent_a(cdr(assoc0(entgetent_n)))

    J(1 J))

    (if(or(=ent_a"POLYLINE")(=ent_a"LWPOLYLINE"))

    (COMMAND"PEDIT"ENT_N"w"wid""COMMAND))

    );ENDREP

    );ENDPROGN

    );ENDIF

    );enddefun

    2.批量打印出图(Mplot)
    在AUTOCAD中用PLOT命令每次只能打印一张图纸，如果在一个图形文件内有多张大小一样的图纸成纵向排列，间距M_d=500mm。通过Mplot只需调试一张，便可打印所有图纸。程序如下：

    (defunc:Mplot()

    (setqp_1(getpoint"ntFirstCORNER:")

    P_2(getPOINT"ntOtherCORNER:")

    n(getint"nt总张数：<1>"))

    (if(=nnil)(setqn1))

    (setqm_d500)

    (REPEATn

    (command"plot""w"P_1P_2"n"COMMAND)

    • cad批量处理程序【AUTOCAD教程之批量处理程序】 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文cad批量处理程序【AUTOCAD教程之批量处理程序】由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.