Write DXF files using Matlab

This Matlab script to write DXF files for various entities.

% arc.m arc generator
%
%  arc（cx cy a1 a2 radius ccode forward）
%
%  Arc generator: da is the angle increment for line segments （does not affect
%       DXF file output） ccode is the plot code for the MATLAB plot.
%       forward is +1 or -1 and defines the direction in which the 
%       arc is plotted （again does not affect the DXF output）.
%
function arc（cx cy a1 a2 radius ccode forward）
global fid fidd linecolour linetype ofsx ofsy dalpha drad

d2r = pi/180;

dang = dalpha;                             % angle error allowed
incang = 2/d2r*acos（（radius-drad）/radius）; % calculate max arc angle
if（ incang < dang ）
  dang = incang;                           % select tighter limit
end

nseg = ceil（abs（a2-a1）/dang）;
da=（a2-a1）/nseg;
alpha=a1;

n=nseg+1;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件      188246  2000-08-11 10:17  al_u04_c.htm
     文件       43670  2000-08-11 10:23  al_u04_d.htm
     文件        1460  2007-08-06 12:22  arc.m
     文件        1462  2000-09-02 18:05  arc.m.bak
     文件        1132  2000-09-03 08:41  circle.m
     文件         168  2000-08-23 08:02  dist.m
     文件        5988  2000-09-03 07:32  dxf.m
     文件        1185  2007-08-06 12:22  DXF_arc.m
     文件        1190  2000-08-26 07:42  DXF_arc.m.bak
     文件         970  2007-08-06 12:22  DXF_circle.m
     文件         973  2000-08-22 08:41  DXF_circle.m.bak
     文件        1511  2007-08-06 12:52  DXF_ellipse.m
     文件        1502  2000-08-22 08:42  DXF_ellipse.m.bak
     文件         557  2000-08-17 18:12  DXF_end.m
     文件        1218  2007-08-06 12:22  DXF_line.m
     文件        1222  2000-08-22 08:42  DXF_line.m.bak
     文件         328  2000-08-17 18:30  DXF_lint.m
     文件         310  2000-08-22 08:57  DXF_pinc.m
     文件         983  2007-08-06 12:22  DXF_poly.m
     文件         983  2000-08-22 08:42  DXF_poly.m.bak
     文件        1336  2000-09-05 07:40  DXF_scan.m
     文件        3470  2007-08-06 12:22  DXF_spline.m
     文件        3473  2000-08-26 07:43  DXF_spline.m.bak
     文件        2010  2007-08-06 12:25  DXF_start.m
     文件        2041  2007-08-06 15:39  DXF_start.m.bak
     文件        1667  2007-08-06 12:22  DXF_text.m
     文件        1673  2000-09-06 08:04  DXF_text.m.bak
     文件        7364  2000-08-11 10:21  dxf_toc.htm
     文件       13608  2000-09-05 07:48  DXFhead.dxf
     文件         610  2000-09-04 18:51  DXFtail.dxf
     文件         597  2000-08-24 16:47  endslope.m
............此处省略17个文件信息