dew 发表于 2024-11-20 18:28
显示错误: no function definition: SLMSG
实际没什么，就是为了多版本来作的，也就是做一些常量，来简化写法。但光这个也是不行，还有其他，太多了主要是。
;;简体、繁体、英文提示---(一级)-----
;;msg1 简体字 nilmsg2 繁体字 nil msg3 英文 nil--
(defun slmsg (msg1 msg2 msg3 / msg)
(cond
((= $Lgver 1)
(setq msg msg1)
)
((= $Lgver 2) ;繁体版
(setq msg msg2)
)
((= $Lgver 3)
(setq msg msg3)
)
)
msg ;;输出信息
)
(setq k1 (getvar "SYSCODEPAGE")) ;显示所在地区的代码
(cond
((= k1 (strcase "ansi_936")) ;;CAD是简体版
(setq $Lgver 1 $hz "hz" $xz "xz" k0 "bz" str "简体中文"
$okbt ":button {label=\"确定\";key=\"accept\";is_default=true;}"
$canbt ":button {label=\"取消\"; key=\"cancel\";is_cancel=true;}"
)
)
((= k1 (strcase "ansi_950")) ;繁体版
(setq $Lgver 2 $hz "fan" $xz "fank" k0 "ft" str "羉砰いゅ"
$okbt ":button {label=\"絋﹚\";key=\"accept\";is_default=true;}"
$canbt ":button {label=\"\"; key=\"cancel\";is_cancel=true;}"
)
)
((and (/= k1 (strcase "ansi_936")) (/= k1 (strcase "ansi_950"))) ;;英文或其他版
(setq $Lgver 3 $hz "hz" $xz "xz" k0 "en" str "Englishversion"
$okbt ":button {label=\"Accept\";key=\"accept\";is_default=true;}"
$canbt ":button {label=\"Cancel\"; key=\"cancel\";is_cancel=true;}"
)
)
)
(setq
$row ":cluster {horizontal_margin=none; vertical_margin=none; children_alignment=centered;"
$column ":cluster {layout=vertical;horizontal_margin=none;vertical_margin=none;"
$boxed_row ":cluster {boxed=true;children_alignment=centered;"
$boxed_column ":cluster {layout=vertical;boxed=true;"
$radio_row ":radio_cluster {horizontal_margin=none;vertical_margin=none;children_alignment=centered;"
$radio_column ":radio_cluster {layout=vertical;horizontal_margin=none;vertical_margin=none;"
$boxed_radio_row ":radio_cluster {boxed=true;children_alignment=centered;"
$boxed_radio_column ":radio_cluster {layout=vertical;boxed=true;"
)
对照这部分，看DCL部分的集成，就明了了。
qd001 发表于 2024-11-20 22:32
sltk.lsp这个程序是单独用的么
这个不能单独运行，这是集成代码，
图库这个事啊，因为我用，我才知道一直需要改什么，LISP图库虽然简单，但是，这可是没有版本限制的，也就是纯绿色，其他都办不到这一点，
尘缘一生 发表于 2024-11-21 17:14
这个不能单独运行，这是集成代码，
图库这个事啊，因为我用，我才知道一直需要改什么，LISP图库虽然简单 ...
哦哦{:1_1:}
支持lisp图库！ 支持支持，感谢分享。 支持lisp图库！
页:
1
[2]