Hello to all
I would like to create a Text box similar to the following
I was able to pick up this code from another Autolisp
link
http://lee-mac.com/layerdraworder.html
"help : dialog { key = \"Examples\";"
" : btext { key = \"Order My Ideas\"; alignment = centered; }"
" : ctext { value = \"Many Examples and Ides\"; }"
" : button { key = \"weblink\"; label = \"www.google.com\"; fixed_width = true; alignment = centered;"
" action = \"(startapp \\\"explorer\\\" \\\"http://www.google.com\\\")\"; }"
" spacer;"
" : paragraph {"
" : text_part { value = \"This is just an example\"; }"
" : text_part { value = \"But I would like to be able to put in these lines\";} "
" : text_part { value = \"ideas about useful commands that I don't usually use in autocad\"; }"
" : text_part { value = \"there are very useful commands that are only used very rarely\";} "
" : text_part { value = \"but when you need to use them, \";}"
" : text_part { value = \"I have to be searching and searching\"; }"
" : text_part { value = \"so I see the need to make a text box\"; }"
" spacer;"
" : text_part { value = \"I would like to put by this means procedures\"; }"
" : text_part { value = \"I would also like to be able to add shortcuts\"; }"
" spacer;"
" : text_part { value = \"Maybe I can have the Autolisp functions added.\"; }"
" : text_part { value = \"that I have the bad habit of accumulating and accumulating.\";}"
" : text_part { value = \"that like the autocad commands, some of them are necessary sometimes.\";}"
" spacer;"
" : text_part { value = \"Maybe in the final part I can have buttons that can help me.\"; }"
" : text_part { value =\"to sort more dialog boxes\"; }"
" spacer;"
" : text_part { value = \"Thank you very much for your help\"; }"
" spacer;"
" : text_part { value = \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\"; }"
" : text_part { value = \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.\";}"
" : text_part { value = \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxx\";}"
" : text_part { value = \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\";}"
" : text_part { value = \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\";}"
" spacer_1;"
" spacer_1; ok_only;"
"}"
"//------------------------------------------------------------//"
"// End of File //"
"//------------------------------------------------------------//"
)
(write-line line ofile)
)
(setq ofile (close ofile))
(while (not (findfile fname))) fname
)
)
)
due to my poor knowledge in Autolisp and furthermore
in DCL, I am not yet able to program.
I would appreciate if the DCL could be put in the same Lisp,
so as not to handle two files.
Thank you very much
post-data
attached is the lisp of the above mentioned link
