DCL Pulldown list

[jmerch]

but "scriptlist" variable is also used at the end which is why it's set up front...right?

[Lee Mac]

(foreach file scriptlist (add_list (vl-filename-base file)))

[BlackBox]

Sorry for any confusion; I asked my question more conceptually speaking, as I'm a neophyte when it comes to DCL.

 

Thanks for the example, Lee.

 

Cheers!

[jmerch]

Sorry for any confusion; I asked my question more conceptually speaking, as I'm a neophyte when it comes to DCL.

 

No problem, I understand there's more than once way to do this stuff...I enjoy seeing the different possibilities. It helps me understand it a little better if I see if a different way.

[jmerch]

Now I'm loosing my mind...it worked the other day...now it does not.

(setq scriptlist (mapcar 'vl-filename-base (vl-directory-files "Z:/CAD/CAD-MECH/PM Shared/Scripts" "*.cod" 1)))
   (setq DCLid (load_dialog "Scripts.dcl"))
   (if(not(new_dialog "Scripts" DCLid))(exit))
   (start_list "scr_list")
       (mapcar 'add_list scriptlist)
   (end_list)
   (action_tile "accept" "(setq mytile (atoi(get_tile \"scr_list\")))(done_dialog 1)")
   (action_tile "cancel" "(done_dialog 0)")
   (start_dialog)
   (unload_dialog DCLid)
   (if (= (getvar "DIASTAT") 1)
     (executescript (strcat "Z:/CAD/CAD-MECH/PM Shared/Scripts/" (nth mytile scriptlist)))
   )

[MSasu]

Did you loaded Visual LISP's extension?

 

(vl-load-com)

Is the DCL file located in AutoCAD's search path? If not, you may add it or hard-code the path:

 

(setq DCLid (load_dialog "[color=blue]X:\\MyDialogs\\[/color]Scripts.dcl"))

Regards,

Mircea

[jmerch]

I added (vl-load-com) at the beginning, and the .dcl is already in my search path. Still not working.

[jmerch]

I figured it out...it's always the little things.

 

(executescript (strcat "Z:/CAD/CAD-MECH/PM Shared/Scripts/" (nth mytile scriptlist)[color=red] ".cod"[/color]))

[MSasu]

For this reason I have proposed to remove the extensions only at display, not in the file list...

 

Regards,

Mircea