sdt13.cpp

AotoCAD平台下的结构设计工具

// Sdt13.cpp : implementation file
//
// Sdt05 - 钢骨梁设计

#include "stdafx.h"
#include "Sdt.h"
#include "Sdt13.h"
#include "math.h"
#include "adslib.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CSdt13 dialog


CSdt13::CSdt13(CWnd* pParent /*=NULL*/)
	: CDialog(CSdt13::IDD, pParent)
{
	//{{AFX_DATA_INIT(CSdt13)
	m_b = 250.0;
	m_fss = 205.0;
	m_h = 500.0;
	m_mss = 0.0;
	m_tf = 20.0;
	m_tw = 10.0;
	m_bh13 = _T("GL-1");
	m_jss13 = FALSE;
	m_gcm13 = _T("Zzz");
	//}}AFX_DATA_INIT
}


void CSdt13::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CSdt13)
	DDX_Text(pDX, IDC_EDITb, m_b);
	DDX_Text(pDX, IDC_EDITfss, m_fss);
	DDV_MinMaxDouble(pDX, m_fss, 190., 315.);
	DDX_Text(pDX, IDC_EDITh, m_h);
	DDX_Text(pDX, IDC_EDITmss, m_mss);
	DDX_Text(pDX, IDC_EDITtf, m_tf);
	DDV_MinMaxDouble(pDX, m_tf, 10., 100.);
	DDX_Text(pDX, IDC_EDITtw, m_tw);
	DDV_MinMaxDouble(pDX, m_tw, 10., 100.);
	DDX_Text(pDX, IDC_EDITbh13, m_bh13);
	DDX_Check(pDX, IDC_CHECKjss13, m_jss13);
	DDX_Text(pDX, IDC_EDITgcm13, m_gcm13);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CSdt13, CDialog)
	//{{AFX_MSG_MAP(CSdt13)
	ON_BN_CLICKED(IDC_BUTTONjs, OnBUTTONjs)
	ON_BN_CLICKED(IDC_BTSdtHelp13, OnBTSdtHelp13)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CSdt13 message handlers

void CSdt13::OnBUTTONjs() 
{
	double ws;
	CString fmtc;
	UpdateData(TRUE);

	ws = (m_b*pow(m_h,3.0) -pow(m_h-2*m_tf,3.0)*(m_b-m_tw) )/m_h/6.0;
	m_mss = 1.05*ws*m_fss/1e6;

	fmtc.Format("%8.2f",m_mss);
	m_mss =atof(fmtc);

	UpdateData(FALSE);

  if(m_jss13 == TRUE){ 

	FILE *ou; 	
	CString flname;

	if(m_gcm13 =="") {AfxMessageBox("请输入工程名!"); return;}

	flname=m_gcm13 + ".txt";
	ou=fopen(flname,"a");

	fprintf(ou,"\n\n\n");
	
	fprintf(ou,"\n   ***********************************************************************");
	fprintf(ou,"\n   ***                       结 构 设 计 计 算 书                      ***");
	fprintf(ou,"\n   ***                                                                 ***");
	fprintf(ou,"\n   ***                      Sdt05 - 钢骨梁设计计算                     ***");
	fprintf(ou,"\n   *************************************************    Zgs 2002    ******");

	fprintf(ou,"\n\n   工程名称: %s   构件编号: %s",m_gcm13,m_bh13);
	
	fprintf(ou,"\n\n1. 已知数据(工字钢参数)\n");
	fprintf(ou,"\n   总宽 B = %5.0f (mm), 总高 H = %5.0f (mm),",m_b,m_h);
	fprintf(ou,"\n   腹板厚 Tw = %5.0f (mm), 翼缘厚 Tf = %5.0f (mm),",m_tw,m_tf);
	fprintf(ou,"\n   钢材强度 Fss =%8.2f (MPa)",m_fss);

	fprintf(ou,"\n\n2. 计算结果\n");
	fprintf(ou,"\n   工字钢能承受的弯矩值 M =%8.3f (kN-m)",m_mss);
	
	fprintf(ou,"\n\n   注：钢骨梁砼部分截面尺寸及配筋另详.");
	fprintf(ou,"\n\n   简  图: \n\n\n\n");

	time_t tad;
	char *buf;
	buf=(char*)calloc(80,sizeof(char));
	if(buf==NULL) exit(-1);
	tad=time(NULL);
	strftime(buf,80,"%A %B %d,%Y",localtime(&tad));

	fprintf(ou,"\n\n                                   设计人:");
	fprintf(ou,"\n                                 %s",buf);

	fclose(ou);
	}

}

void CSdt13::OnBTSdtHelp13() 
{
	ads_help("sdt2002.hlp","SDT05",0);
	
}