DCL Error

[satishrajdev]

i am posted below code....

 

getting error again n again, i tried a lot but couldnt find it out....

 

can anybody solve this for me or give me the solution.....

 

thankx a lot

 

(defun create_dialog ()
 (vl-load-com)
 (setq fname (vl-filename-mktemp "dcl.dcl"))
 (setq fn (open fname "w"))
(write-line
'' Mapsc : dialog {
 label = "Default Mapscale Settings";
 initial_focus = "";
 spacer;
:boxed_column {
   label = "Horizontal Scale";
   alignment = centered;
   width = 25;
   fixed_width = true;
 : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "";
       key = "List1";
     }
   }
   : popup_list {
     key = "List2";
     width = 15;
     fixed_width = true;
   }
 }
}
:boxed_column {
   label = "Geodetic Parameters Details";
   alignment = centered;
   width = 25;
   fixed_width = true;
   : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "Select Datum";
     }
   }
   : popup_list {
     key = "List3";
     width = 15;
     fixed_width = true;
   }
 }
 : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "Select UTM Zone";
     }
   }
   : popup_list {
     key = "List4";
     width = 8;
     fixed_width = true;
   }
 }
 : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "Select Hemisphere";
     }
   }
   : popup_list {
     key = "List5";
     width = 8;
     fixed_width = true;
   }
 }
}
 spacer;
 : row {
   fixed_width = true;
   alignment = centered;
   : ok_button {
     width = 11;
   }
   : cancel_button {
     width = 11;
   }
 }
}
'' fn)
 (close fn)
)

[MSasu]

Did you posted the actual code or something got lost? I'm asking this due to the doubled quote ('') you used to mark the string instead of quotation marks (").

Also please pay attention to the way you include the quotation marks in string:

(write-line "Mapsc : dialog {
                 label = [color=red]\[/color]"Default Mapscale Settings[color=red]\[/color]";
                 initial_focus = [color=red]\[/color]"[color=red]\[/color]";
                 spacer;" ...

[satishrajdev]

Thankx a lot Mircea for your interest,

 

I was trying to post actual code from DCL to LISP and got stuck

[MSasu]

I understood the logic of your code; I was referring to the formatting of the string containing dialog's definition.

[satishrajdev]

By the way..... i modified my code according your suggestion.....

 

and the lisp is working perfectly for me.....big thanks to you:D

[MSasu]

Glad to hear is solved, Satish! You're entirely welcome!