陈伯雄 LISP权威教材（实例+电子教程）

华轩〈肖〉

没钱了呀
这年头没钱混 不下去

辉/:)

学习，多谢楼主了

formz

常用詞庫:dialog{
key ="dia_ckgl";
label ="詞庫管理";
:row{
:boxed_column{
label ="詞類";
:row{
:button{
key ="btn_add_class";
label ="┼";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_del_class";
label ="─";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_edit_class";
label ="?";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_up_class";
label ="↑";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_down_class";
label ="↓";
horizontal_margin = none ;
vertical_margin = none ;
}
}
:image{
color = dialog_background ;
fixed_width = true ;
height = 0.2 ;
horizontal_margin = none ;
vertical_margin = none ;
}
:row{
:list_box{
height = 26 ;
key ="dcl_list_class";
horizontal_margin = none ;
vertical_margin = none ;
}
}
:image{
color = dialog_background ;
fixed_width = true ;
height = 0.2 ;
horizontal_margin = none ;
vertical_margin = none ;
}
}
:boxed_column{
label ="詞語[雙擊確定]";
:row{
:button{
key ="btn_add_word";
label ="┼";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_del_word";
label ="─";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_edit_word";
label ="?";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_up_word";
label ="↑";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_down_word";
label ="↓";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_get_word";
label ="?";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_open_word";
label ="?";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_day";
label ="?";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_path";
label ="?";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_help";
label ="幫助";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
is_cancel = true ;
is_default = true ;
key ="btn_cancel";
label ="取消";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
key ="btn_ok";
label ="確定";
horizontal_margin = none ;
vertical_margin = none ;
}
}
:image{
color = dialog_background ;
fixed_width = true ;
height = 0.2 ;
horizontal_margin = none ;
vertical_margin = none ;
}
:row{
:list_box{
height = 26 ;
key ="dcl_list_word";
horizontal_margin = none ;
vertical_margin = none ;
}
}
:image{
color = dialog_background ;
fixed_width = true ;
height = 0.2 ;
horizontal_margin = none ;
vertical_margin = none ;
}
}
:column{
:boxed_column{
label ="模式";
:radio_button{
key ="dcl_radio_1";
label ="  生 成 文 字";
value ="0";
}
:radio_button{
key ="dcl_radio_2";
label ="  到 剪 切 板";
value ="0";
}
:radio_button{
key ="dcl_radio_3";
label ="  加 前 字 綴";
value ="0";
}
:radio_button{
key ="dcl_radio_4";
label ="  加 後 字 綴";
value ="0";
}
:radio_button{
key ="dcl_radio_5";
label ="  替 換 文 字";
value ="0";
}
:radio_button{
key ="dcl_radio_6";
label ="  引 線 文 字";
value ="0";
}
:radio_button{
key ="dcl_radio_7";
label ="  LISP  命 令";
value ="0";
}
}
:toggle{
key ="dcl_cur_layer";
label =" 字 線 當 前 層";
}
:popup_list{
key ="dcl_list_layer";
label ="字";
width = 20 ;
}
:popup_list{
key ="dcl_list_layer_line";
label ="線";
width = 15 ;
}
:popup_list{
key ="dcl_list_style";
label ="樣";
width = 15 ;
}
:popup_list{
key ="dcl_list_align";
label ="正";
}
:edit_box{
edit_width = 15 ;
fixed_width = true ;
key ="dcl_edit_high";
label ="高";
}
:spacer{}
}
}
:row{
:edit_box{
key ="dcl_txt_libwd";
label ="  當前文字";
width = 136 ;
}
}
}
增加:dialog{
key ="dcl_dia_add";
label ="增加";
horizontal_margin = none ;
vertical_margin = none ;
:spacer{}
:edit_box{
key ="dcl_edit_1";
width = 80 ;
vertical_margin = none ;
}
:row{
:button{
key ="btn_ok";
label ="確定";
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
is_cancel = true ;
key ="btn_cancel";
label ="取消";
horizontal_margin = none ;
vertical_margin = none ;
}
}
}
刪除:dialog{
key ="dcl_dia_del";
label ="刪除";
:spacer{}
:text{
alignment = centered ;
label ="確認刪除操作!";
}
:row{
:button{
key ="btn_ok";
label ="確定";
width = 20 ;
horizontal_margin = none ;
vertical_margin = none ;
}
:button{
is_cancel = true ;
key ="btn_cancel";
label ="取消";
width = 20 ;
horizontal_margin = none ;
vertical_margin = none ;
}
}
}
幫助:dialog{
label ="幫助";
:boxed_column{
label ="功能說明";
:text{
label ="        [┼]增加        [生成文字]以當前文字樣式生成文本";
}
:text{
label ="        [─]刪除        [到剪切板]複製詞語到剪切板";
}
:text{
label ="        [\U+0395]編輯        [加前字綴]給文本、屬性塊、標注等加前綴";
}
:text{
label ="        [↑]上移        [加後字綴]給文本、屬性塊、標注等加後綴";
}
:text{
label ="        [↓]下移        [替換文字]替換文本、屬性塊、標注等文字";
}
:text{
label ="        [\U+039F]打開庫文件  [引線文字]快速生成帶引線文字";
}
:text{
label ="        [?]取詞入庫    [LISP命令]常用LISP語句入庫後運行";
}
:text{
label ="        [?]當前日期    [當前圖層]生成文字或引線到CAD當前圖層";
}
:text{
label ="        [?]當前文件路徑";
}
}
:boxed_column{
label ="關於詞庫";
:text{
alignment = centered ;
key ="dcl_ck_version";
label ="詞庫

Real_King

谢谢分校，学习下

杨光88888888

好东西

liuyizeng

源代码呢？没有呀！

清风明月名字

谢谢楼主的奉献！太有用了

sunnylhj

这个是好东西！！

hisum

不错，学习了

jzxdz

扫描质量如何