Hi,

You should move the line: (setq fname (strcat flg face sch class ".dim"))
to below the line: (unload_dialog dcl_id)

And setting the init value for every group of radio buttons.

Hi,
Try to create the ICADDOC.LSP file (if not existing) at the installed path of IntelliCAD,
example : C:\Program Files\CMS\CMS IntelliCAD 9.2 Premium Edition Plus

Then add the line (Setvar "WSCURRENT" "PJS_WS") to the ICADDOC.LSP file.

Hope it works as you expected.

try to use the setvar instead of the command:

Yes, I see the IntelliCAD don't use the default location (as AutoCAD), it set the location of the dialog at specifies coordinates, In your case, it's (-1 -1). If you want to the dialog box appears at the center of the IntelliCAD window, please use: (setq FLGsize_pt (if FLGsize_pt FLGsize_pt (list(/ ...

Can you upload the DCL file here?

Hi Gary, You can use the Visual Studio Code with AutoLISP Extension. Here are some of the major features of the text editor: - color coding - formatting of text - parenthesis matching - highlight syntax For detail please refer: - Visual Studio Code is a free source-code editor made by Microsoft for ...

Hi,

You can transfer the license as you want.
Refer here: viewtopic.php?f=9&t=1514&sid=d5bf6b0973 ... 663ec34789

Regards,

Hi Hugo,
Try to follow the instruction here:
https://www.forums.intellicadms.com/vie ... php?p=6475
Regards.

Hi,
Please click to "Attachments" at the bottom of this message to attach files.

Hi,
As the supporter here, I'll do much as I can, Steve.
Regards,

You're welcome, Steve.

Try this: - copy to previous code lisp. - load and run the command : fredsingle4 (defun DIALOG4 () (setq DCL_ID (load_dialog "fredsingle2.dcl")) ;load the DCL file (if (not (new_dialog "fredsingle2" DCL_ID)) ;initialize the DCL file (exit) ;exit if this doesn't work ) ;end if (DEFAULTS) (action_tile...

The issue at end of the line (setq sldFile(nth 2 SIZE_DIMS))
please remove the last character ")"
(setq sldFile(nth 2 SIZE_DIMS)

Try replace (setq IMG (nth 2 SIZE_DIMS)) with (setq sldFile(nth 2 SIZE_DIMS))

and replace (slide_image 0 0 w h "LDCT1.sld") with (slide_image 0 0 w h sldFile)

Note: Be sure the sldFile is existing otherwise the image will be blank.

You did not post full code, maybe some mistakes (syntax/spelling) in your code. Here's the minimum code, it works as should be. (defun SET_IMAGE () (setq w (dimx_tile "imagekey") ;get image tile width h (dimy_tile "imagekey") ;get image tile height ) ;end of setq (start_image "imagekey") ;start the ...