DwgPreview update problem in 7.0.0.1

[roy_043]

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.

Code (autolisp) Select Expand


(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)
)



[owenwengerd]

Good catch. This is now fixed for the next build.

[roy_043]

Thanks Owen.

[Kerry]

Owen,
Any time frame for an update on this.

In the meantime I'm using

Code (autolisp) Select Expand

(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.

[owenwengerd]

I am planning to upload Alpha 2 this weekend.

[Kerry]

Thanks Owen.

I'll be in Santa mode   :D

All the best for the Silly Season.
Be well