hirotaka nisimura's Activities

[CE UD17]3D PDF I created has no shadow.

hirotaka nisimura — Tue, 28 Nov 2023 00:05:05 GMT

I created a 3D tower in DGN and printed it to 3D PDF using PDF.pltcfg. It's displayed with shadow in DGN but it has no shadow in PDF. Is there a way to print in PDF displaying like DGN? I attach images displaying in DGN and PDF.

[CE Update17] The previous MDL is loaded when DGN opening.

hirotaka nisimura — Thu, 27 Apr 2023 04:53:11 GMT

Some MDL applications are automatically loaded immediate opening DGN again after DGN closed without MDL unloading. I remember that was not so in V8i. Is there a setting to be the same specification to V8i?

[CE Update17 VBA]Fence.GetContents doesn't get all elements

hirotaka nisimura — Fri, 06 Oct 2023 06:17:00 GMT

Hi, I had the vba project that cut elements inside a shape, change level of that and add to DGN, for V8i. Now I use it in CONNECT Edition, but there is a issue that it can't get all elements inside a shape.

In the case that an element and a shape are placed like below, Fence.GetContents can cut an element inside a shape. an element is a green line and a shape is a white rectangle.

But in the case of below, Fence.GetContents cut an element and get only the left side element. The right side element is not gotten.

I recognize that it works correctly that a fence cuts all elements inside a shape when I do all that manually. Please let tell us if there is who can explain about VBA Fence.GetContents.

[CE Update17] I can't set variables for the dialog of "Capture Screen".

hirotaka nisimura — Fri, 21 Apr 2023 02:29:37 GMT

I'm trying to set the value for variables in the dialog of "Capture screen", but it doesn't work. I was able to do it in V8i. I get "screen.jpg" after the below code is excuted, but I hope to get "test.png". Please tell me that the way to set those variables of the dialog.

Class module

Option Explicit

Implements IModalDialogEvents

Private Sub IModalDialogEvents_OnDialogClosed(ByVal DialogBoxName As String, ByVal DialogResult As MsdDialogBoxResult)
    
End Sub

Private Sub IModalDialogEvents_OnDialogOpened(ByVal DialogBoxName As String, DialogResult As MsdDialogBoxResult)
    If DialogBoxName = "名前を付けて保存" Then
        CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.png"
        CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd " & ActiveDesignFile.Path & "\"
        CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd " & "test.png"
        DialogResult = msdDialogBoxResultOK
    End If
End Sub

Main module

Option Explicit

Sub runTest()
    Dim mH As New CaptureModalHandler
    AddModalDialogEventsHandler mH
    CadInputQueue.SendKeyin "mdl load scrncapt;capture screen"
    RemoveModalDialogEventsHandler mH
End Sub

[CE VBA API] TrackPopupMenu don't work.

hirotaka nisimura — Thu, 09 Mar 2023 01:32:51 GMT

When I use Microstation V8i, I have used VBA tool to show my custom popup menu. Recently, I edit it for CONNECT Edition, but it don't work well. My code is below. At the moment the problem is that popup menu is not shown. TrackPopupMenu API must show popup menu but it don't work. If is there anyone who try to correct it, please tell me what is wrong.

Option Explicit

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare PtrSafe Function TrackPopupMenu Lib "user32" (ByVal hMenu As LongPtr, ByVal wFlags As LongPtr, ByVal X As LongPtr, ByVal Y As LongPtr, ByVal nReserved As LongPtr, ByVal hwnd As LongPtr, lprc As RECT) As LongPtr
Private Const TPM_LEFTBUTTON = &H0&
Private Const TPM_RETURNCMD = &H100
Private Const TPM_LEFTALIGN = &H0&

Private Declare PtrSafe Function CreatePopupMenu Lib "user32" () As LongPtr
Private Declare PtrSafe Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As LongPtr, ByVal un As Long, ByVal bool As Long, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long


Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wid As Long
    hSubMenu As LongPtr
    hbmpChecked As LongPtr
    hbmpUnchecked As LongPtr
    dwItemData As LongPtr
    dwTypeData As String
    cch As Long
End Type

' Constants required by MENUITEMINFO type
Private Const MIIM_STATE = &H1
Private Const MIIM_ID = &H2
Private Const MIIM_TYPE = &H10
Private Const MFT_STRING = &H0


' Variables declared at module level
Private Cut_Enabled As Long

Sub run()

    Dim hwnd As LongPtr
    Dim Poi As POINTAPI
    
    'Get handle of Microstation
    hwnd = FindWindow(vbNullString, Application.Caption)
    GetCursorPos Poi 'Get cursor's position
    
    Dim ppp As LongPtr
    ppp = CreatePopupMenu 'Create popupmenu
    
    Dim menuItems(2) As MENUITEMINFO
    With menuItems(0)
        .cbSize = Len(menuItems(0))
        .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE
        .fType = MFT_STRING
        .fState = Cut_Enabled
        .wid = 1
        .dwTypeData = "A"
        .cch = Len(.dwTypeData)
    End With
    With menuItems(1)
        .cbSize = Len(menuItems(1))
        .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE
        .fType = MFT_STRING
        .fState = Cut_Enabled
        .wid = 2
        .dwTypeData = "B"
        .cch = Len(.dwTypeData)
    End With
    With menuItems(2)
        .cbSize = Len(menuItems(2))
        .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE
        .fType = MFT_STRING
        .fState = Cut_Enabled
        .wid = 3
        .dwTypeData = "C"
        .cch = Len(.dwTypeData)
    End With
    
    
    
    InsertMenuItem ppp, 0, True, menuItems(0)
    InsertMenuItem ppp, 1, True, menuItems(1)
    InsertMenuItem ppp, 2, True, menuItems(2)
    
    
    
    '------------------------------------Show popupmenu
    Dim oRECT As RECT
    GetWindowRect hwnd, oRECT
    Dim ret As LongPtr
    ret = TrackPopupMenu(ppp, TPM_RETURNCMD, Poi.X - 10, Poi.Y - 10, 0, hwnd, oRECT)
    
    
    MsgBox ret

End Sub

[V8i] Can I execute the keyin "clipboard pastespecial" with an option?

hirotaka nisimura — Sun, 22 Jan 2023 02:44:30 GMT

I hope to execute the keyin "clipboard pastespecial" to paste a selection from Excel sheet to DGN. The dialog is showed to select an option when I excute the keyin, but is there any way to set an option to embed worksheet with keyin without the dialog?

Let me Help You

Mon, 17 Jan 2022 01:50:48 GMT

Answer a question that is verified as helpful or correct.

How to convert TIF to JPG using VBA ExportRasterFile?

hirotaka nisimura — Fri, 14 Jan 2022 11:52:17 GMT

I wrote a VBA code to convert TIF to JPG, but it does not work. I get run time error 5 when I run my code. Can someone help me? I'm using Microstation v8i. My code is below one.

RasterManager.ExportRasterFile sourcefilename:=fpath & "\" & fname, destinationfilename:=fpath & "\" & fso.GetBaseName(fname) & ".jpg", NewFormatSpecifier:=RasterManager.RasterFormats.Find("JPEG(J)")

Why is different a point3d of element and a point in range3d of element?

hirotaka nisimura — Tue, 07 Apr 2020 07:32:14 GMT

I am writing a VBA program to get X size of an element. I tried 2 way.

Using Startpoint and Endpoint of a line element.
Using Range3d of an element.

I tried above 2 ways, I would like to use Range3d, but I can't get correct X size. Please tell me the reason why.

Ask A Question I

Thu, 20 Jun 2019 02:23:52 GMT

Ask a question in a forum.

[VBA] How to get the point projected to a bsplinesurface?

hirotaka nisimura — Thu, 20 Jun 2019 05:08:17 GMT

I have a bsplinesurface and a point3d below bsplinesurface. I want to get the point projected to the bsplinesurface with vba. I tried some way.

1, projectedpoint=bsplinesurface.ProjectPointOnPerpendicular(point3d, Matrix3dIdentity)

I get a error after running it.

2, point3d()=bsplinesurface.GetIntersectionPoints(lineelement, Matrix3dIdentity)

I get a many points, but it is not a point that I want.

3, point3d()= bsplinecurve.IntersectSurface(Parameters, SurfaceParameters, BsplineSurface)

I get a error after running it. I guess that I made a mistake. I don't know what I have to give as Parameters and SurfaceParameters...

Can someone tell me the good way?