My first OpenDCL project :)
I was wondering if there is an easier way of going about this. I have 100's of blocks and slides that I want to be able to insert from this application. I can (with the help of others here) load a slide and insert upon double click. The functions are very repetitive and if it is possible I would like to condense them. I didnt attach the BlockInsert function. This is the only part I have been able to condense. Any ideas?
[image attached]
(defun c:SA-Block-Insertion-Image_Form1_OnInitialize (/)
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView1 "P:/SA-Drafting/Blocks/Slide_images/SA-Anchorbolt.sld") ;SlideView1
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView2 "P:/SA-Drafting/Blocks/Slide_images/SA-BoltNut.sld") ;SlideView2
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView3 "P:/SA-Drafting/Blocks/Slide_images/SA-Centerline.sld") ;SlideView3
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView4 "P:/SA-Drafting/Blocks/Slide_images/SA-DetailA.sld") ;SlideView4
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView5 "P:/SA-Drafting/Blocks/Slide_images/SA-DetailNotUsed.sld") ;SlideView5
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView6 "P:/SA-Drafting/Blocks/Slide_images/SA-DryPack.sld") ;SlideView6
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView7 "P:/SA-Drafting/Blocks/Slide_images/SA-Earth.sld") ;SlideView7
(dcl_SlideView_Load SA-Block-Insertion-Image_Form1_SlideView8 "P:/SA-Drafting/Blocks/Slide_images/SA-ExpansionBolt.sld") ;SlideView8
)
;*****************************************************************************************************************
;SlideView1
(defun c:SA-Block-Insertion-Image_Form1_SlideView1_OnMouseEntered (/)
(dcl_Control_SetFocus SA-Block-Insertion-Image_Form1_SlideView1)
(dcl_Control_SetCaption SA-Block-Insertion-Image_Form1_Label1 "Anchor Bolt")
)
(defun c:SA-Block-Insertion-Image_Form1_SlideView1_OnDblClicked (/)
(setq BName "SA-Anchorbolt" Xplod "1")
(BlockInsert)
)
;*****************************************************************************************************************
;SlideView2
(defun c:SA-Block-Insertion-Image_Form1_SlideView2_OnMouseEntered (/)
(dcl_Control_SetFocus SA-Block-Insertion-Image_Form1_SlideView2)
(dcl_Control_SetCaption SA-Block-Insertion-Image_Form1_Label1 "Bolt Nut")
)
(defun c:SA-Block-Insertion-Image_Form1_SlideView2_OnDblClicked (/)
(setq BName "SA-BoltNut" Xplod "1")
(BlockInsert)
)
You could do something like:
(defun c:SA-Block-Insertion-Image_Form1_OnInitialize (/)
(setq cnt 1)
(while (< cnt (Length SlideList))
(dcl_SlideView_Load "SA-Block-Insertion-Image" "Form1" (strcat "SlideView" (itoa cnt)) (nth cnt SlideList))
(setq cnt (1+ cnt))
)
)
I did this off the top of my head without checking it in VLIDE, so I maybe missing something....
Also assuming you already you have SlideList built with all the slide files.
I don't think there's much you can do with the events...
Thanks Barry. Im not knowledgeable enough to read that code though. :)
I kind of understand it. I am getting lost though with
dcl SlideView Load....
The confusing part is the lack of underscores...am I missing something here?
(dcl_SlideView_Load.....
Hello,
dcl SlideView Load won't work. It must be dcl SlideView_Load urgently.
Fred