lsp与DCL对话框程序纠错，谢谢~

danielsue · 发表于 2004-11-9 10:40:00

设立一对话框,在其中定义1至7号色选择,及确定取消钮;当使用者选取了顏色后,即将目前的绘图顏色设定为使用者选取的顏色

xjjy · 发表于 2004-11-9 10:46:00

look!

danielsue · 发表于 2004-11-9 10:58:00

里面的init程序有错误

xjjy · 发表于 2004-11-9 11:04:00

look,again!

ZZXXQQ · 发表于 2004-11-9 11:13:00

错误已改。

danielsue · 发表于 2004-11-9 11:24:00

楼主强人，在2004版本下能运行，但点击确定时会弹出错误，这是什么原因呢？

xjjy · 发表于 2004-11-9 11:51:00

错误： 1. (setvar "cmdcho" 0) => (setvar "cmdecho" 0) 2.要改成： (command "style" "std2" "romans" (strcat (rtos (* 2.5 b) ) ) "0.75" "0" "n" "n" "n"
"style" "std3" "romans" (strcat (rtos (* 3.5 b))) "0.75" "0" "n" "n" "n"
"style" "std7" "romans" (strcat (rtos (* 7 b))) "0.75" "0" "n" "n" "n"
"style" "std10" "romans" (strcat (rtos (* 10 b))) "0.75" "0" "n" "n" "n"
"style" "std15" "romans" (strcat (rtos (* 15 b))) "0.75" "0" "n" "n" "n"
"style" "std5" "romans" (strcat (rtos (* 5 b))) "0.75" "0" "n" "n" "n"
) 3. "line"(list a c)(list (-xl c) c)(list (-xl c)(-yl c)) => "line"(list a c)(list (- xl c) c)(list (- xl c)(- yl c)) 好几处 4. (if (/= scale "")
(setq b (getscale (nth (atoi scale) scalelist)))
(setq b (/scale2 scale1))
) ===> (setq b (if (/= scale "") (getscale (nth (atoi scale) scalelist)) (/ scale2 scale1))) .................. 我也是刚学，请多指教！

账号		自动登录	找回密码
密码			注册

lsp与DCL对话框程序纠错，谢谢~

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源