网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 图象图形-> AutoCAD-> AUTOCAD系列批量处理程序

AUTOCAD系列批量处理程序
作者:breeze 来源:InterNet 加入时间:2005-1-11
相关文章
  • AutoCAD中输出位图
  • AutoCAD引发屏保文件关联问题
  • AutoCAD线条加粗秘诀
  • AutoCAD巧画角平分线
  • AutoCAD应用技巧44例
  • AutoCAD制表好帮手
  • AutoCAD工具栏丢失怎么办?
  • 将AutoCAD图形导入常用软件
  • 让AutoCAD启动为指定模板
  • AutoCAD中线型的定制和使用
  • 相关书籍:
  • AutoCAD 2002 详解
  • AutoCAD 2002 完全使用手册
  • AutoCAD 2002 入门
  • AutoCAD 2000 中文版技术大全
  • AutoCAD 2000 高级用户指南
  • AutoCAD作品展示
  • AutoCAD 2002 汉化补丁(第三版)
  • AutoCAD 2000 三维造型高级培训教程
  • 笔者在AUTOCAD中编辑大量图形时,发现仅用AUOTCAD本身提供的命令,效率实在太低,故编写系列批量处理程序以提高工作效率、工作质量。


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

      (DEFUN C:CH_W( / wid ent_ss n_ss ent_n j ent_a)

         (PRINC "\n请选择目标(W C WP CP F)")

         (SETQ ENT_SS (SSGET) WID (GETREAL"\n请输入线宽<0.3>:"))

         (if (= wid nil) (setq wid 0.3))

         (IF (/= ENT_ss nil)

           (PROGN

             (SETQ N_SS (SSLENGTH ENT_SS)  J 0)

             (REPEAT N_SS

           (SETQ ENT_N (SSNAME ENT_SS J) ent_a (cdr (assoc 0 (entget ent_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只需调试一张,便可打印所有图纸。程序如下:

      (defun c:Mplot()

        (setq p_1 (getpoint"\n\tFirst CORNER:")

           P_2 (getPOINT"\n\tOther CORNER:")

           n (getint"\n\t总张数:<1>"))

        (if (= n nil) (setq n 1))

        (setq m_d 500)

       (REPEAT n

           (command"plot" "w" P_1 P_2 "n" COMMAND)

    [文章录入员:tonny]

    相关文章
  • AutoCAD中输出位图
  • AutoCAD引发屏保文件关联问题
  • AutoCAD线条加粗秘诀
  • AutoCAD巧画角平分线
  • AutoCAD应用技巧44例
  • AutoCAD制表好帮手
  • AutoCAD工具栏丢失怎么办?
  • 将AutoCAD图形导入常用软件
  • 让AutoCAD启动为指定模板
  • AutoCAD中线型的定制和使用
  • 相关书籍:
  • AutoCAD 2002 详解
  • AutoCAD 2002 完全使用手册
  • AutoCAD 2002 入门
  • AutoCAD 2000 中文版技术大全
  • AutoCAD 2000 高级用户指南
  • AutoCAD作品展示
  • AutoCAD 2002 汉化补丁(第三版)
  • AutoCAD 2000 三维造型高级培训教程
  • 本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    AutoCAD
    PhotoShop
    CorelDraw
    3D-MAX
    AutoCAD
    FreeHand
    Illustrator
    Authorware
    Director
    Maya/Rhino
    其它
    电脑教程阅读排行
    ·AutoCAD二次开发语言及工具...
    ·AutoCAD应用技巧44例
    ·AutoCAD中输出位图
    ·AutoCAD制表好帮手
    ·AutoCAD 2000设置技巧
    ·AutoCAD线条加粗秘诀
    ·将AutoCAD图形导入常用软件
    ·AutoCAD中线型的定制和使用
    ·AutoCAD巧画角平分线
    ·AutoCAD引发屏保文件关联问...