社区 › AutoLISP/Visual LISP 编程技术 › 陈伯雄 LISP权威教材（实例+电子教程）

华轩〈肖〉 发表于 2012-8-7 21:32:44

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

辉/:) 发表于 2012-8-7 21:47:36

学习，多谢楼主了

formz 发表于 2012-8-10 08:10:27

常用詞庫: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語句入庫後運行";
}
:text{
label ="      [?]當前日期    [當前圖層]生成文字或引線到CAD當前圖層";
}
:text{
label ="      [?]當前文件路徑";
}
}
:boxed_column{
label ="關於詞庫";
:text{
alignment = centered ;
key ="dcl_ck_version";
label ="詞庫

Real_King 发表于 2013-3-1 13:15:42

谢谢分校，学习下

杨光88888888 发表于 2013-4-5 17:18:06

好东西

liuyizeng 发表于 2014-4-17 21:07:31

源代码呢？没有呀！

清风明月名字 发表于 2014-4-18 22:17:04

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

sunnylhj 发表于 2014-6-4 19:32:19

这个是好东西！！

hisum 发表于 2014-6-6 17:02:47

不错，学习了

jzxdz 发表于 2014-12-13 21:01:00

扫描质量如何

查看完整版本: 陈伯雄 LISP权威教材（实例+电子教程）