[下载]：Delphi编程写DWG文件

ZYM874

Delphi编程写DWG文件源程序

WHGF

怎么打不开呀!LZ,重新给个连接吧!
我喜欢你的东西,也可发到我的邮箱L27182818@Tom.com

ZYM874

用delphi写DWG图形文件函数库使用说明
                ***********************************
                           

1.创建DWG文件文件 opendwg(filename:string);                   DWG文件版本为ACAD10版                           

2.保存DWG文件文件 closedwg();                                             

3.设置绘图坐标基点 setbasexy(x:double;y:double);              所有绘图函数使用相对坐标               

4.增加图层 layer_add(name:string;co:smallint;lt:smallint);                  

      name=要设置的图层名
      co  =要设置的颜色号
      lt  =要设置的线型号

5.设置图层 set_layer(name:string);                                    

6.恢复为图层颜色 colorbylayer();                                          

7.恢复为图层线型 linetypebylayer();                                          
      
8.文本 dtext(x0:double;y0:double;text0:string);            

9.对齐水平文本 dboxtext(x0:double;y0:double;x1:double;y1:double;text0:string;bl_no:integer);   

       bl_no  对齐编号:
       7 : 左上      8 : 中上     9：右上
       4 : 左中      5 : 正中     6：右中
       1 : 左下      2 : 中下     3：右下

10.单线直线 dline(x0:double;y0:double;x1:double;y1:double);

11.单线圆 dcircle(x0:double;y0:double;r:double);                       

12.单线圆弧 darc(x0:double;y0:double;r:double;e0:double;e1:double);     

13.单线矩形框 dbox(x0:double;y0:double;x1:double;y1:double);     

14.多义线的头部 dpline(flags:shortint);
                                     多义线的头部
  flags:多段线标志（按位编码；默认值 = 0）：
  1 = 这是一个闭合多段线
  2 = 已添加园弧曲线拟合顶点

15.多义线的顶点 dvertxy(x0:double;y0:double;flags:double);
              
  flags:凸度（可选；默认值为 0）。凸度是四分之一弧线段角的切线，
  如果从起点到终点，弧为顺时针，则为负数。
  凸度为 0 表示一条直线段，凸度为 1 表示一个半圆

16.多义线的尾部 dplineend;                                                

17.宽线 dtrace(x0:double;y0:double;x1:double;y1:double;x2:double;y2:double;x3:double;y3:double);

18.填充 dsolid(x0:double;y0:double;x1:double;y1:double;x2:double;y2:double;x3:double;y3:double);

19.点   dpoint(x0:double;y0:double);

20.宽度直线 wline(x0:double;y0:double;x1:double;y1:double);
              
21.宽度圆 wcircle(x0:double;y0:double;r:double);         
              
22.宽度圆弧 warc(x0:double;y0:double;r:double;e0:double;e1:double);
      
23.宽度矩形框 wbox(x0:double;y0:double;x1:double;y1:double);               

25.线型定义
  CONTINUOUS  = 0;           实线           ____________________________________________
  DASHED      = 1;           长虚线         __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
  HIDDEN      = 2;           短虚线         _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
  CENTER      = 3;           长短线         ____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____
  PHANTOM     = 4;           长短短线       _____ _ _ _____ _ _ _____ _ _ _____ _ _ ____
  DOT         = 5;           点线           ............................................
  DASHDOT     = 6;           短点线         __ . __ . __ . __ . __ . __ . __ . __ . __ . __
  BORDER      = 7;           短短点线       __ __ . __ __ . __ __ . __ __ . __ __ . __ __
  DIVIDE      = 8;           短点点线       __ . . __ . . __ . . __ . . __ . . __ . . __
  
26.颜色定义
  Red      =  1;             红色
  Yellow   =  2;             黄色
  Green    =  3;             绿色
  Cyan     =  4;             青色
  Blue     =  5;             蓝色
  Magenta  =  6;             紫色
  White    =  7;             白色

27.文字样式定义              主要字体文件名    大字体文件名
  STANDARD      = 0;         TXT.SHX
  COMPLEX       = 1;         COMPLEX.SHX
  STANDARD1     = 2;         TXT.SHX                           垂直字型
  COMPLEX1      = 3;         COMPLEX.SHX                       垂直字型

  TXT_HZTXT     = 4;         TXT.SHX           HZTXT.SHX
  TXT_GBCBIG    = 5;         TXT.SHX           GBCBIG.SHX
  COMPLEX_TJHZF = 6;         COMPLEX.SHX       TJHZF.SHX


26.全局变量

  textstyle:shortint=0;          文字样式
  
  textheigth:double=2.5;         文字高度
  
  textx_scale:double=1;          文字宽高比

  chr_angle:double=0;            字符倾斜角

  txt_angle:double=0;            文字旋转角度

  text_h_justify:shortint=0;     文字水平对正类型 （可选；默认值 = 0）整数代码（非按位编码）
                                                 0 = 左对正；1 = 居中对正；2 = 右对正
                                                 3 = 对齐（如果垂直对齐 = 0）
                                                 4 = 中间（如果垂直对齐 = 0）
                                                 5 = 拟合（如果垂直对齐 = 0）

  text_v_justify:shortint=0;     文字垂直对正类型（可选；默认值 = 0）：整数代码（非按位编码）：
                                                 0 = 基线对正；1 = 底端对正；2 = 居中对正；3 = 顶端对正

  text_x2:double=0;              第二对齐点X坐标

  text_y2:double=0;              第二对齐点Y坐标

  line_type:shortint=0;          线型

  线型定义:
             *DASHED,__ __ __ __ __ __ __ __ __ __ __ __ __ __ __
             A,.5,-.25
             *HIDDEN,_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
             A,.25,-.125
             *CENTER,____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____
             A,1.25,-.25,.25,-.25
             *PHANTOM,_____ _ _ _____ _ _ _____ _ _ _____ _ _ ____
             A,1.25,-.25,.25,-.25,.25,-.25
             *DOT,...............................................
             A,0,-.25
             *DASHDOT,__ . __ . __ . __ . __ . __ . __ . __ . __ . __
             A,.5,-.25,0,-.25
             *BORDER,__ __ . __ __ . __ __ . __ __ . __ __ . __ __
             A,.5,-.25,.5,-.25,0,-.25
             *DIVIDE,__ . . __ . . __ . . __ . . __ . . __ . . __
             A,.5,-.25,0,-.25,0,-.25
   

  line_scale:double=20;          线型比例

  line_width:double=0;           线宽

  dwgcolor:shortint=0;           颜色号；0=“随块”；  256 =“随层”；负值=图层关闭

Wildfire

楼主有“新”！

WHGF

谢谢楼主!希望能有更新版本,

liusun1982

楼主:你可有用VC读DWG文件的程序?

我想在不打开CAD的情况下提取标题栏信息,可有什么思路?想听听

你的高论