Julia Frid's Activities

[CONNECT Update 17 VBA] place text element above/below

Julia Frid — Wed, 28 Dec 2022 08:35:17 GMT

Hello,

How is possible to place text along (above/below) programmatically ? using SendKeyin not good solution for me, because is opened key-in windows. Maybe exist another variant ?

           CadInputQueue.SendKeyin "PLACE TEXT ABOVE"
            CadInputQueue.SendKeyin lineLength
            CadInputQueue.SendDataPoint line.StartPoint
            CadInputQueue.SendReset

Discussion Starter I

Wed, 28 Dec 2022 08:35:18 GMT

Start a discussion in a forum that receives 5 replies.

[CE MDL C++] how to close MDL?

Julia Frid — Wed, 17 Aug 2022 08:58:15 GMT

Hi,

I need any advice how to correct close/unload md. In main function, before opening form, function CheckTime check expired date and close mdl. In V8i function mdlSystem_exit worked perfectly, but in CE it crash Microstation. I tries 3 variants and all of them crash Microstation. What is correct way to close/unload app ?

extern "C" DLLEXPORT void MdlMain(int argc, WCharCP argv[])
{
...
	CheckTime();  ///check expired date
...
	mdlDialog_hookPublish(sizeof(uHooks) / sizeof(DialogHookInfo), uHooks);
	dbMain = mdlDialog_open(NULL, CnvBox);
...
}


void CheckTime(void) {
	int Ye = 2022, y, Mo = 7, D=31;
	time_t t;
	struct tm *tt;
	WChar timeBuf[4096];
	time(&t);

	tt = localtime(&t); y = tt->tm_year; if (y >= 100 && y<1000) y += 1900;
	if ((y > Ye) || (y == Ye && tt->tm_mon + 1 > Mo))
	{
	    swprintf(timeBuf, L"Valid to  %i.%i.%i",D, Mo, Ye);
		mdlDialog_openInfoBox(timeBuf);
		
	    //mdlDialog_cmdNumberQueue(FALSE, CMD_MDL_UNLOAD, mdlSystem_getCurrTaskID(), INPUTQ_HEAD);	return ; - crash ms
		//exit(EXIT_SUCCESS); -  crash ms
        //mdlSystem_exit(0, 1);   return; -  crash ms

	}
	return;
}

Best regards,

Julia

[CONNECT Update 16 VBA] mdlLicense_getStrings() crash

Julia Frid — Tue, 07 Jun 2022 07:14:56 GMT

Hello,
I wantto check company's name (VBA macro) with mdlLicense_getStrings() function, but it's all time crash. What I'm doing wrong?

Option Explicit
Private Declare PtrSafe Sub mdlLicense_getStrings Lib "stdmdlbltin.dll" (ByRef theInfoStrings As brandInfo) 
Private Declare PtrSafe Function mdlLicense_isRegisteredProduct Lib "stdmdlbltin.dll" () As Long
Public dblInterval As Double

Type brandInfo
   theUN As String * 64
   theUO As String * 64
   theComputerName As String * 32
End Type


Public Function IsMicroStationRegistered() As Boolean
    IsMicroStationRegistered = (0 <> mdlLicense_isRegisteredProduct())
End Function



Sub CheckCN()

Dim licInfo As brandInfo
If IsMicroStationRegistered() Then
    Debug.Print "MicroStation is registered"
Else
    Debug.Print "MicroStation is not registered"
End If

mdlLicense_getStrings licInfo '''here crash

''MsgBox licInfo.theComputerName, vbInformation, "License Check"

End Sub

CE Update 16 v 10.16.03.11

Regards,
Julia

Ask A Question II

Tue, 07 Jun 2022 07:15:48 GMT

Ask 10 questions in a forum.

Ask A Question I

Thu, 17 Jun 2021 01:30:13 GMT

Ask a question in a forum.

[CE] can mvba be signed without SDK?

Tuan Le — Thu, 20 May 2021 04:12:11 GMT

Just wondering if mvba can be signed without SDK? If yes, any steps or guide would be greatly appreciated. I created a personal cert using power shell and tried the Digital Signature tool in VBA ide, but no luck:

Best regards,

Tuan Le

[CONNECT - MDL C++] Problem with mdlClip_isElemInside in 3D

Julia Frid — Wed, 22 Feb 2017 10:25:35 GMT

Hello,
I need to put cell in shape, but only if it fits fully inside shape. In 2d files this code work correctly : if cell is outside shape element it's removed. But in 3d file it doesn't correctly check if cell is inside and get wrong result as also cell are placed outside.

void MakeExLabels(int n)  // fills  shape element Fdscr
{ // using active level, active cell
	DRange3d rv;  //Range for Shape element
	Bentley::WString cnm;
	double x0, y0, x, y, dx, dy, d, dd;
	int fx, fy, fx1, fy1, ix, iy, i, j, nc = 0;
	Transform Tr;
	if (!Fdscr)
	{
		wcscpy(buf, L"No shape defined!");    
		if (dbMain && diPmsg) mdlDialog_itemSetStringValue(&res, buf, dbMain, diPmsg->itemIndex);
		return;
	}
	if (tb_clip) Ngg = mdlSystem_updateGraphicGroup();
	ActiveParams::GetValue(cnm, ActiveStringParams::ACTIVEPARAM_CELLNAME);
	if (cnm.c_str())
	{
		i = mdlCell_readLibraryElements(&dscrEx, cnm.c_str(), NULL, FALSE);
	
		if (i == SUCCESS) // instead test if a cell is active!!!!!!
		{
			i = mdlElement_extractRange(&rv, &Fdscr->el);
			if (ISessionMgr::GetActiveDgnModelRefP()->Is3d())
			{
				if (Dbg) printf("\n Is3d");
				mdlElmdscr_convertTo2D(&pedTemp, Fdscr, VW, &Tr, MASTERFILE, MASTERFILE, FALSE);
				mdlElmdscr_convertTo3D(&Fdscr, pedTemp, FIXEDDEPTH, NULL, NULL, MASTERFILE, MASTERFILE);
				mdlElmdscr_freeAll(&pedTemp);
			} 
			i = mdlClip_fromElement(clip, Fdscr, FALSE, VW);	//set Shape as clipping element		
			dx = fabs(rv.low.x - rv.high.x); //distance x 
			dy = fabs(rv.low.y - rv.high.y); //distance y
			dd = MM1 * 5 * dgnMeter*1e-3; //set default distance between cells		

			d = MM1 * 100; // 1 m on map
			x0 = rv.low.x; //start point lower left corner
			y0 = rv.low.y; //start point lower left corner

//calculate rows and columns

			fx = (int)floor(x0 / dd + .99999); 
			fy = (int)floor(y0 / dd + .99999);
			fx1 = (int)floor((x0 + dx) / dd);
			fy1 = (int)floor((y0 + dy) / dd);
			ix = fx1 - fx + 1;
			iy = fy1 - fy + 1;

			if (ix>0 && iy>0 ) 
			{
				for (i = 0; i<ix; i++) for (j = 0; j<iy; j++) 
				{
					x = (fx + i)*dd; y = (fy + j)*dd; 
					nc += PutCell(x, y, dd);
				}
				if (tb_patt>0)
				{
					for (i = -1; i<ix; i++) for (j = -1; j<iy; j++)
					{
						x = ((fx + i) + 0.5)*dd; y = ((fy + j) + 0.5)*dd;
						nc += PutCell(x, y, dd);
					}
				}
				swprintf(buf, L"Places %i cells %s", nc, cnm.c_str());
			}
			else wcscpy(buf, L"No coordinate cross inside shape!"); //special case for placing coordinate crosses at fixed intervals
			if (nc == 0) PutCell(x0 + dx / 2, y0 + dy / 2, dd); // at least one
			if (dbMain && diPmsg) mdlDialog_itemSetStringValue(&res, buf, dbMain, diPmsg->itemIndex);
			if (dscrEx) mdlElmdscr_freeAll(&dscrEx);
		}
		else
		{
			mdlUtil_beep(1);  swprintf(buf, L"cell =%s= not found!", cnm.c_str());
			if (dbMain && diPmsg) mdlDialog_itemSetStringValue(&res, buf, dbMain, diPmsg->itemIndex);
		}
	}
	else {
		wcscpy(buf, L"Not defined active cell");
		if (dbMain && diPmsg) mdlDialog_itemSetStringValue(&res, buf, dbMain, diPmsg->itemIndex);
	}

	return;
}

int PutCell(double x, double y, double d) // cell in dscrEx
{
	DPoint3d pt;
	Transform Tr;
	double k;
	bool o;
	Bentley::WString cellname;
	long ke;
	int r = 0, i;
	ULong flp;	

	pt.x = x; pt.y = y; pt.z =0;
	k = (MM1 * 5) / 2500; 

	if (dscr) mdlElmdscr_freeAll(&dscr);   dscr = NULL;
	mdlTMatrix_getIdentity(&Tr);
	mdlTMatrix_setTranslation(&Tr, &pt);
	mdlTMatrix_scale(&Tr, &Tr, k, k, k);
	mdlElmdscr_duplicate(&dscr, dscrEx);
	mdlElmdscr_transform(&dscr, &Tr);
	mdlElmdscr_addByModelRef(dscr, MASTERFILE);

	if (dscr)
	{		
		i = mdlClip_isElemInside(&o, dscr, clip.get(), VW, FALSE);
		if (i) //in 3d file incorrectly shows as always inside
		{			
			if (!o){
				r = 1;
				if (tb_clip) mdlElement_setProperties(&dscr->el, NULL, &Ngg, NULL, NULL, NULL, NULL, NULL, NULL);  // grouping
				mdlElmdscr_display(dscr, MASTERFILE, DRAW_MODE_Normal);
				ke = mdlElmdscr_add(dscr);				
			}
			else
			{
				if (Dbg) printf("\n%s", "cell on element!");
				flp = mdlElmdscr_getFilePos(dscr);
				mdlElmdscr_deleteByModelRef(dscr, flp, MASTERFILE, FALSE);
			}
		}
		else {
			flp = mdlElmdscr_getFilePos(dscr);
			mdlElmdscr_deleteByModelRef(dscr, flp, MASTERFILE, FALSE);
		}
	}
	else if (Dbg) printf("\n%s", "Cell placing fail!");
	return r;
}



please help me to understand what I doing wrong ?

[CONNECT - MDL C++] get active cellname

Julia Frid — Wed, 18 Jan 2017 08:57:37 GMT

Hello,

please help me understand what type of variable I need to use for getting ACTIVEPARAM_CELLNAME

Old code:

char cnm[256];
mdlParams_getActive(cnm, ACTIVEPARAM_CELLNAME);
if (cnm[0])
	{
		if (Dbg) printf("\n tagad Cell=%s", cnm[0]);
}

New code:

WString cellname; // 
ActiveParams::GetValue(cellname, ActiveStringParams::ACTIVEPARAM_CELLNAME);
if (Dbg) printf("\n  cellname =%s", cellname);

result:   cellname =a

variable get only first symbol of cellname. When try to use char type as old code got error:

    IntelliSense: no instance of overloaded function "ActiveParams::GetValue" matches the argument list
 argument types are: (char [256], ActiveStringParams)

[CONNECT C++] mdlRegion_floodFillWithHoles problem

Julia Frid — Tue, 15 Nov 2016 14:06:26 GMT

Hi!

MicroStation CONNECT Edition update 3 - Version 10.03.00.30

I need any advice with calling mdlRegion_floodFillWithHoles. On this function calling all time get this message :

"MicroStation stopped working

A software error has occurred; we apologize for any inconvenience this may have caused. This error has been logged locally."

if (Dbg) printf("\n StartFlood X=%lf Y=%lf Qv=%i Fdsc=%i ", Ppt.x, Ppt.y,Qv,Fdsc);

if (SUCCESS == mdlRegion_floodFillWithHoles(&Fdscr, &ar, Fdsc, NULL, MASTERFILE, &Ppt, Qv, TRUE, 10.0, -1)) {

....

}

Printed variables:

StartFlood X=5006161792.554092 Y=3064978139.690812 Qv=0 Fdsc=603761872