K_Baker's Activities

Unable to make modification to gINT project V8iSS2 Win10

K_Baker — Thu, 13 Jun 2019 19:59:19 GMT

Hi gINT community. I am not a gINT user, but I am trying to assist one. They are unable to edit the gINT project. I had another user log on to the workstation and they could edit the project without issue. Thinking it might be server permissions, I copied the file locally - they were still unable to edit the project.

I renamed the \appdata\local\bentley\gint folder to create new settings files . . . no luck

Are there any suggestions for recommended trouble shooting?

Thanks

Visual Studio Tools for MicroStation V8 & Connect Editions

K_Baker — Wed, 14 Nov 2018 13:02:41 GMT

InnovoCAD solutions has just recently made their Visual Studio (2015 & 2017) tools available at no cost. I have used the V8 edition for two years and it has saved us much time setting up VS projects for the MicroStation Addins that our company has developed. It was worth it's purchase price . . . and now it's FREE!

https://marketplace.visualstudio.com/search?term=Bentley&target=VS&category=All%20categories&vsVersion=vs15&sortBy=Relevance

Discussion Starter I

Wed, 05 Dec 2018 14:31:04 GMT

Start a discussion in a forum that receives 5 replies.

Updating VBA code to the Connect Edition

Yrjo Ala-Heikkila — Thu, 16 Mar 2017 14:54:20 GMT

I have a couple of old VBA applications which I would like to use in Connect edition. These Declare Function lines will give me a compile error-message:

Private Declare Function mdlElmdscr_extractNormal2 Lib "stdmdlbltin.dll" (ByRef normalP As Point3d, ByRef pointP As Point3d, ByVal edP As Long, ByRef inputDefaultNormal As Point3d, ByVal applyCurrTrans As Long, ByVal cleanupNormal As Long) As Long
Private Declare Function mdlFence_isDefined Lib "stdmdlbltin.dll" () As Long
Private Declare Function mdlMesh_convertToShapes Lib "stdbspline.dll" (ByVal pMeshDescr As Long, ByRef ppShapeDescr As Long) As Long

I wonder how I should proceed with these?

[v8i vb.net] define textstyles

K_Baker — Thu, 11 Sep 2014 22:44:44 GMT

I am trying to define the active textstyle with the following line of VB code:

oMS.CadInputQueue.SendKeyin("textstyle active " & ComboBox_TextSizes.Text)

the combo_textsizes item is populated with valid textstyle names read from a DGNLIB. (eg "1/8", 3/16") In my sub which also creates and opens a new .DGN file, the textstyle is never set correctly, it always sets "None". I have the identical line of code on the SelectedIndexChanged event of the combobox and it works perfectly. I have even tried calling the SelectedIndexChanged function from my sub rather than the .SendKeyin but nothing seems to work.
If I do not create the new file and simply execute on the currently opened file the textstyle is defined correctly.

It's as if I'm trying to define the style before the design file can see them. ?????

Any suggestion on this dilemma? Thanks

[v8i vb.net] modify textstyles

K_Baker — Wed, 04 Jun 2014 21:43:54 GMT

Attempting to change text size in the collection of textstyles I am getting error message "The textstyle is locked and cannot be modified

Dim oTextStyle As TextStyle
Dim tss As BCOM.TextStyles = app.ActiveDesignFile.TextStyles
For Each ts As BCOM.TextStyle In tss
oTextStyle = app.ActiveDesignFile.TextStyles.Find(ts.Name)
oTextStyle.Height = 10
oTextStyle.Width=10
Next

Thanks for any suggestions

[V8i .Net AddIn ] Loading DLL from network resource

K_Baker — Tue, 22 Apr 2014 18:23:07 GMT

We have a .Net AddIn (DLL) that loads and executes fine when loading from local drive (DLL is located in the MDLAPPS folder), but will not load from a network location. We have added the network path to the MS_MDLAPPS but still no joy. Any suggestions on loading DLL from network location would be appreciated.

[V8i VB.Net]

K_Baker — Thu, 20 Feb 2014 21:21:59 GMT

Hi BeComm . . . I've been attending the "School of Hard Knocks" route to migrate some legacy VBA code to VB.Net.
I have used Mr. Anderson's sample proj (VBDemo) as a starting point and was actually making some progress, but executing this line causes MicroStation to crash
TIA for any suggestions as to what I'm doing wrong.

       Dim ws As MicroStationDGN.Workspace
        If ws.IsConfigurationVariableDefined("MS_CUSTOMSCALEDEF") = True Then       '  crash occurs when this line executes 
           Label1.Text = ws.ConfigurationVariableValue("MS_CUSTOMSCALEDEF").ToString
        End If