Bricscad 12.1.2
OpenDCL 7.0.0.1
Win XP
A small problem with DwgPreview:
To load a new dwg in a preview you have to first make it invisible.
See attached files.
Put all files in a single folder.
Open one of the drawings.
Load the lisp.
Enter BKG_BLOCKBROWSER to run.
Hit Reload button.
Result: only BkgBlockBrowser_Main_DwgPreview1 has been updated.
(defun c:BkgBlockBrowser_Main_btnReload_OnClicked ()
; (dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview0 nil) ; required for ODCL 7.0.0.1
(dcl_DWGPreview_LoadDwg BkgBlockBrowser_Main_DwgPreview0 "A002.dwg")
(dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview0 'T)
(dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview1 nil) ; required for ODCL 7.0.0.1
(dcl_DWGPreview_LoadDwg BkgBlockBrowser_Main_DwgPreview1 "A003.dwg")
(dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview1 'T)
)
Good catch. This is now fixed for the next build.
Thanks Owen.
Owen,
Any time frame for an update on this.
In the meantime I'm using
(defun c:KDUB_BlockInserter_Main_ListBox_OnSelChanged (ItemIndex Value /)
(dcl_Control_SetVisible KDUB_BlockInserter_Main_DwgPreview1 'T)
(dcl_Control_SetVisible KDUB_BlockInserter_Main_DwgPreview1 nil)
(dcl_dwgpreview_loaddwg KDUB_BlockInserter_Main_DwgPreview1
(strcat G1003-SelectedFolder "\\" Value)
)
(dcl_Control_SetVisible KDUB_BlockInserter_Main_DwgPreview1 'T)
)
Good workaround roy_043.
I am planning to upload Alpha 2 this weekend.
Thanks Owen.
I'll be in Santa mode :D
All the best for the Silly Season.
Be well