[试用]：mdl 编程初步，看其与标准C的区别

gxmyg

这里提供给MDL初学者MDL的编译环境，同时给一个间间单单的例子（LX1.mc)。例子是检测计算机D:\下
是否有gxmyg.ini这个文件，如果有就在（0，0）初画4条线，如没有则显出错提示框。
    编译环境把本MDL解压到你的MS根目录下（可以不覆盖你原来的MDL），修改mdlset.bat和Bin目录下
的批处理文件里的路径成你安装MS的路径（如我的MS V/J是安装在D:\ustnp下面，我的bin目录是
为D:\ustnp\mdl\bin。
   把mdlset拷到你的windows目录下。
   好了，运行MS-DOS方式，运行MSSET.bat,到放lx1.mc的目录
  编译：msmcomp lx1.mc
  连接：mmlink lx1
  已生成lx1.ma。进MS运行看看.
  如果有资源，可以按MS自带的examples下的basic这个例子修改后，进到有主*.mc的目录下运行msmake.bat
就可完成编译。mdlmake.bat可以把编译时出错信息形成tmp.txt文件供查找。
  对了，本环境在MS的V8之前所有版本都可用。

附：lx1.mc  /*我发现带小括号的include文件名不能显示，附件里有本程序*/
#include     <mdl.h>            /* system include files */
#include     <global.h>
#include     <mselems.h>
#include     <tcb.h>
#include     <stdio.h>

Private int myg_checkFile(void)    /* 检查在D:盘跟目录下是否有gxmyg.ini这个文件 */
{
    FILE  *p;
    FILE  *fopen();
    char  tmp[32];

   strcpy(tmp,"d:\\gxmyg.ini");
   if((p=fopen(tmp,"r"))==NULL)
     {
   mdlOutput_printf(MSG_MESSAGE, "ERROR Open File");
   return FALSE;
     }
   fclose(p);
   return TRUE;
  }


void  main
(
int        argc,
char        *argv[]
)

{
    MSElement        line;
    Dpoint3d    pt[2];
    double      mast;
    int         ik;
    ULong       filePos;
   
  
if(!myg_checkFile())     /* 检查在D:盘跟目录下是否有gxmyg.ini这个文件 */
    {
     mdlOutput_printf (MSG_ERROR, "OH,WRONG"); /* 出错提示栏提示 */
     mdlDialog_openInfoBox("             您 是 非 法 使 用 者!\n \n如 果 您 需 使 用 Ustation 流 程 软 件 \n  请与 GXMYG 联系电话:4800450"); /* 提示框 */  
     mdlSystem_exit(NULL,1);  /* 退出程序 */
    }

mast=tcb->subpermast*tcb->uorpersub; /* 工作单位计算 */

for(ik=0;ik<4;ik++)  /* 画线 */
  {
    pt[0].x=0;
    pt[0].y=pt[1].y=ik*50*mast;
    pt[1].x=200*mast;

    if (mdlLine_create (&line, NULL, &pt[0]) == SUCCESS)  /*在（0,0)处开始画4条线 */
        {
        mdlElement_display (&line, NORMALDRAW);
        if ((filePos = mdlElement_add (&line)) == 0L)
            {
            mdlOutput_printf (MSG_ERROR,"error adding element, %d", "MygLine");  /* 出错提示栏提示 */
            }
        }
    }
}

注：仅一时高兴随便写个小小测试程序，望大家指正。

MicroStation迷

判定一个文件是否存在最好不要用fopen/fclose，可直接用mdlFile_find或mdlFile_getFileAttributes。

gxmyg

没错，其实我这段代码原来是用来读取加密代码用的。