DCL file is included in the compiled VLX but doesn't open.

DCL file is included in the compiled VLX but doesn't open.

t_telintelo
Participant Participant
1,807 Views
14 Replies
Message 1 of 15

DCL file is included in the compiled VLX but doesn't open.

t_telintelo
Participant
Participant

I checked all the code in lsp and dcl, there were no errors. Also compiling the vlx was without errors.

Still the dcl only popup when I provide the seperate dcl-file into my search path.

What is wrong? Where to start finding the problem?

 

 

Theo

0 Likes
Accepted solutions (1)
1,808 Views
14 Replies
Replies (14)
Message 2 of 15

pbejse
Mentor
Mentor

@t_telintelo wrote:

What is wrong? Where to start finding the problem?


Start with making sure you dont include a full path LoadDialog statement, just the name of the dcl file

 

 

0 Likes
Message 3 of 15

t_telintelo
Participant
Participant
There is no path in the load_dialog statement.
The only options I didn't search for yet is the fact that there are multiple dialogs defined in the dcl-file, is it possible to merge a dcl with multiple dialogs in the vlx

0 Likes
Message 4 of 15

pbejse
Mentor
Mentor

@t_telintelo wrote:
There is no path in the load_dialog statement.
The only options I didn't search for yet is the fact that there are multiple dialogs defined in the dcl-file, is it possible to merge a dcl with multiple dialogs in the vlx


Never tried that before, pretty sure that it would though, question now is, does it work with any other lisp programs with just one dcl file? important to know this that way we can rule out AutoCAD version issues.

 

Try and compile the attached files. I know these two works, because i just tested them.

 

 

 

0 Likes
Message 5 of 15

t_telintelo
Participant
Participant
Yes all works fine all mine vlx programs with a dcl-file merged work. I even tested 10 minutes ago a vlx with a merged dcl and multiple dialogs defined in the dcl.
Conclusion there must be somthing wrong with the code although there where no errors or even warnings compiling the vlx. I wil check the code again!!
Thanks for jour replys
0 Likes
Message 6 of 15

pbejse
Mentor
Mentor

@t_telintelo wrote:
..
Conclusion there must be somthing wrong with the code although there where no errors or even warnings compiling the vlx. I wil check the code again!!
Thanks for jour replys

Yup!  Without seeing the code, theres pretty much nothing we can do about it.Do let us know what happened OK?

 

0 Likes
Message 7 of 15

hak_vz
Advisor
Advisor

@pbejse   Full path to dcl file inside lisp works without problem. During compiling process  DCL file is integrated to vlx, and path information as a such is not used after.

Miljenko Hatlak

EESignature

Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
0 Likes
Message 8 of 15

pbejse
Mentor
Mentor

@hak_vz wrote:

@pbejse   Full path to dcl file inside lisp works without problem. During compiling process  DCL file is integrated to vlx, and path information as a such is not used after.


 

I see, that's good to know👍

 

0 Likes
Message 9 of 15

jwhite
Advocate
Advocate

Are you calling the specific dialog correctly?

 (new_dialog "DIALOGHEADER" (load_dialog "DIALOGFILE.DCL"))

0 Likes
Message 10 of 15

john.uhden
Mentor
Mentor

I saw only one (1) dialogue defined in your dcl.  Might it be unmatched case?

GrabBar vs. Grabbar vs. grabbar?

John F. Uhden

0 Likes
Message 11 of 15

t_telintelo
Participant
Participant
Accepted solution
Finaly I found the problem:

1. There was nothing wrong with my lisp-code
2. Theo was nothing wrong with my DCL-file
For some odd reason the projectfile was the problem. The DCL-file was not merged while compiling the source.
The require-file-list line was wrong (see below), The correct line must be: (:require-file-list (:DCL "Proef.DCL"))
---------------------------------------------------------------------------------------------------------------------
;;; Visual LISP make file [V1.0] PROEF saved to:[D:/Theo/extra/acad-extra] at:[3/1/21]
(PRV-DEF (:target . "PROEF.VLX")
(:active-x . T)
(:separate-namespace)
(:protected . T)
(:load-file-list (:lsp "Proef.LSP"))
(:require-file-list (:lsp "Proef.DCL"))
(:ob-directory)
(:tmp-directory)
(:optimization . st)
)
;; EOF
--------------------------------------------------------------------------------------------------------------------------------------
0 Likes
Message 12 of 15

pbejse
Mentor
Mentor

Glad you had it sorted and thank you for sharing

 

 

0 Likes
Message 13 of 15

john.uhden
Mentor
Mentor
Thank goodness you found the reason. Symptoms such as yours keep all of us
up all night.

John F. Uhden

0 Likes
Message 14 of 15

t_telintelo
Participant
Participant

Yes, I had a bad weekend! WHAT IS WRONG, WHERE TO START SEARCHING.

I'm glad I found the problem. 

Thanks to all who replyed to give me a hint.

0 Likes
Message 15 of 15

diagodose2009
Collaborator
Collaborator

Other Method you can store your.DCL inside strcat.

The main Hint,  you can customize any instruction/s inside DCL  by instruction Lisp.

 (sEtq t025 "" 
  t025 (strcaT t025 "// GrabBar via Dialog Version 1.2\nGrabBar :dialog {\n ");;
  t025 (strcaT t025 " label = \"Grab Bar / Handrail Designer\";\n :row {\n :column {\n : boxed_column {\n label = \"Grab Bar Settings\";\n : row {\n : edit_box {\n label = \"Bar Size\";\n mnemonic = \"S\";\n key = \"HRS\";\n edit_width = 7;\n alignment = right ;\n }\n : spacer {\n width = 5 ;\n }\n }\n : row {\n : edit_box {\n label = \"Offset       \";\n mnemonic = \"O\";\n key = \"HRO\";\n edit_width = 7;\n alignment = right ;\n }\n : spacer {\n width = 7 ;\n }\n }\n : row {\n : edit_box {\n label = \"Length   \";\n mnemonic = \"L\";\n key = \"HRL\";\n ");;
  t025 (strcaT t025 " edit_width = 7;\n alignment = right ;\n }\n : button {\n key = \"Pick-L\" ;\n label = \"Pick\" ;\n fixed_width = true ;\n width = 4 ;\n }\n }\n : row {\n : edit_box {\n label = \"Extension  \";\n mnemonic = \"E\";\n key = \"HRE\";\n edit_width = 7;\n alignment = right ;\n }\n : button {\n key = \"Pick-E\" ;\n label = \"Pick\" ;\n fixed_width = true ;\n width = 4 ;\n }\n }\n : radio_row {\n : radio_button {\n key = \"GB_RE\";\n label = \"Round\";\n }\n : radio_button {\n key = \"GB_SE\";\n label = \"Square\";\n }\n }\n }\n : boxed_column {\n ");;
  t025 (strcaT t025 " label = \"Length to\";\n : radio_row {\n : radio_button {\n key = \"GB_CL\";\n label = \"Cntline\";\n }\n : radio_button {\n key = \"GB_EN\";\n label = \"Ends\";\n }\n }\n }\n// spacer_0;\n }\n : boxed_column {\n label = \"Grab Bar Orientation\";\n : image_button {\n key = \"GB_ICON\";\n// height = 19;\n width = 28;\n aspect_ratio = 0.667;\n }\n :row {\n : toggle {\n key = \"GB_Mi\";\n label = \"Mirror\";\n mnemonic = \"M\";\n }\n : toggle {\n key = \"GB_Fl\";\n label = \"Flip\";\n mnemonic = \"F\";\n }\n }\n }\n spacer_0; \n }\n : row {\n ");;
  t025 (strcaT t025 " ok_cancel;\n }\n}\n "))
0 Likes