社区 › Auto Lisp › DCL错误

satishrajdev 发表于 2022-7-6 06:38:16

DCL错误

我被贴在下面代码。。。。
 
再次出错，我试了很多次，但都没发现。。。。
 
谁能帮我解决这个问题，或者给我解决方案。。。。。
 
非常感谢
 
(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 发表于 2022-7-6 07:00:27

你有没有贴出真实的代码，或者什么东西丢了？我这样问是因为你用双引号（“”）来标记字符串，而不是引号（“）。
另外，请注意在字符串中包含引号的方式：
(write-line "Mapsc : dialog {
               label = \"Default Mapscale Settings\";
               initial_focus = \"\";
               spacer;" ...

satishrajdev 发表于 2022-7-6 07:05:01

非常感谢Mircea的关注，
 
我试图将实际代码从DCL发布到LISP，结果被卡住了

MSasu 发表于 2022-7-6 07:21:52

我理解你代码的逻辑；我指的是包含对话框定义的字符串的格式。

satishrajdev 发表于 2022-7-6 07:29:37

顺便说一句我根据你的建议修改了代码。。。。。
 
Lisp程序非常适合我。。。。。非常感谢你：D

MSasu 发表于 2022-7-6 07:43:23

很高兴听到问题解决了，萨蒂什！不客气！

查看完整版本: DCL错误