589663-583763-fortodxf.f90

一个很好的FOR TO DXF的转换程序

		
    program fortodxf     
	real  dblX, dblY, dblz, dbLLen
	real  dblA1, dblA, dblPI, dblNX, dblNY, dblNz
	Open(1,file='dxfFile.dxf',status='unknown')
    dblx=200.0
	dbly=300.0
	dblz=400.0

	dbLlen=800.0
	iSides=5
	write(1,*) 0
    write(1,'(a)')  "SECTION"
    write(1, *) 2
    write(1, '(A)') "ENTITIES"
    dblPI = Atan(1.0) * 4.0
    dblA1 =(2 * dblPI) / iSides
    dblA = dblPI / 2
    do i=1 , iSides
        write(1, *) 0
        write(1,'(a)') "LINE"
        write(1,*) 8
        write(1,'(A)') "frame"
        write(1,*) 10
        write(1,*) dblX
        write(1,*) 20
        write(1,*) dblY
		write(1,*) 30
        write(1,*) dblz
        dblNX = dbLLen * Cos(dblA) + dblX
        dblNY = dbLLen * Sin(dblA) + dblY
	    dblNZ = i*100
        write(1,*) 11
        write(1,*) dblNX
        write(1,*) 21
        write(1, *) dblNY
		write(1,*) 31
        write(1, *) dblNZ

        dblX = dblNX
        dblY = dblNY
        dblA = dblA + dblA1
    end do
    write(1,*) 0
   write(1,'(a)') "ENDSEC"
    write(1,*) 0
    write(1,'(A)') "EOF"
    Close(1)
	
	 result= SYSTEM("D:\\WINDOWS\\NOTEPAD.EXE j:\\WORKfor51\\fortodxf\\dxffile.dxf")

	stop
End