topic Re: DCL in Visual LISP, AutoLISP and General Customization Forum

DCL

sanju.p — Tue, 12 Dec 2017 14:13:07 GMT

Hello everyone,

Kindly find the below image, which one is dcl coding and other is lisp coding.

My intention is to get the dialog box on AutoCAD drawing screen.

When I load and run the lisp file its empty. Please help me to find where I am doing wrong.

Thanks in advance

Basic learner.

Re: DCL

rkmcswain — Tue, 12 Dec 2017 14:26:56 GMT

Are the .lsp and the .dcl file in a folder that is included in the support file search path?

Re: DCL

sanju.p — Tue, 12 Dec 2017 14:38:36 GMT

Support file search path...?

Sir , I have those two files in a same folder.

Re: DCL

rkmcswain — Tue, 12 Dec 2017 14:43:29 GMT

Is AutoCAD can't find the .DCL file, it can't load it.

Just because the .DCL file is in the same folder as the .LSP, does not make AutoCAD find it.

Support File Search Path:

https://knowledge.autodesk.com/support/autocad/getting-started/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Customization/files/GUID-348D791E-D621-444F-B059-C0C6F97AD69F-htm.html

Re: DCL

sanju.p — Tue, 12 Dec 2017 14:48:36 GMT

Thank you so much for your reply sir.

Re: DCL

scot-65 — Tue, 12 Dec 2017 23:35:55 GMT

DCL file, Line 4 is missing the ending semi-colon ";".

An alert type box would have informed you had the
DCL file was actually trying to load.

For testing purposes, create a "working" folder that contains
your LSP, DCL and a "blank" DWG file.
Open that DWG file and load the LSP.
Trusted location dialog warning may pop up. Select the "Load" button.

Also, please take care of the Gremlins.
(defun c:WELCOME ( / dcl_id) ...

???

Re: DCL

smaher12 — Wed, 20 Dec 2017 03:09:22 GMT

welcome : dialog {
   label = "AutoLISP";

    : text {
      label = "Welcome to the world of AutoLISP sir";
    }
    
    : text {
      label = "Have a good time";
    }

    ok_cancel;
} // end welcome

(defun c:welcome ()

    (setq dcl_id (load_dialog "welcome.dcl"))
      (if (not (new_dialog "welcome" dcl_id))
        (exit)
      )

   (action_tile "accept" "(done_dialog)")
   (action_tile "cancel" "(exit)")
    (start_dialog)
     (unload_dialog dcl_id)
      (princ)
 );end activate