Autolisp&DCL精华宝典【整合应用光盘】(内代码幻灯dwg文件)

露水2 · 发表于 2010-6-1 20:46

本帖最后由作者于 2010-6-21 14:58:03 编辑

书太厚不扫描了，把光盘的东西发了。

去12楼下的那是简体的

hzj526

露水2 · 发表于 2010-6-21 14:56

谢谢

hzj526

我把前边的币取消了实在不好意思不知道怎么转为简体的

zhangcan0515 · 发表于 2022-3-30 12:48

本帖最后由 zhangcan0515 于 2022-3-30 16:20 编辑

看过这书，还是不错的！

趣意人生 · 发表于 2021-4-5 21:42

好东西啊！感谢楼主下啦！

mp13119 · 发表于 2010-6-1 22:28

好东西啊！感谢楼主下啦！

HRQ28 · 发表于 2010-6-2 11:04

怎么是些不认识的字啊？

楼主能把书的封面图片传个上来让我们开开眼界好吗？

要是能把书中内容做成图片或PDF之类的资料传上来，那感情是为国内明经朋友做了一大爱心好事。

dia5a:dialog{
   label="AutoCAD酶瓜箇砞砞﹚";
   :edit_box{    //絪胯1
       label="PLINE糴";
       key="edit_p";   //key=>DCLン嘿
       edit_width=6;
   }
   :edit_box{    //絪胯2
       label="FILLET畖";
       key="edit_f";   //key=>DCLン嘿
       edit_width=6;
   }
   :edit_box{    //絪胯3
       label="TEXT蔼";
       key="edit_t";
       edit_width=6;
   }
   :edit_box{    //絪胯4
       label="︑笆纗丁";
       key="edit_s";
       edit_width=6;
   }
   ok_cancel;
}
dia5a1:dialog{
label="AutoCAD酶瓜箇砞砞﹚";
:row{
   :boxed_column{
     label="材舱絪胯";
     :edit_box{label="PLINE糴";key="edit_p";edit_width=6;}
     :edit_box{label="FILLET畖";key="edit_f";edit_width=6;}
   }
   :boxed_column{
     label="材舱絪胯";
     :edit_box{label="TEXT蔼";key="edit_t";edit_width=6;}
     :edit_box{label="︑笆纗丁";key="edit_s";edit_width=6;}
    }       //end boxed_column
   }       //end row
   spacer_1;
   ok_cancel;
}
dia5a2:dialog{
label="AutoCAD酶瓜箇砞砞﹚";
:boxed_row{
     label="材舱絪胯";
     :edit_box{label="PLINE糴";key="edit_p";edit_width=6;}
     :edit_box{label="FILLET畖";key="edit_f";edit_width=6;}
     :edit_box{label="TEXT蔼";key="edit_t";edit_width=6;}
   }
   :boxed_row{
     label="材舱絪胯";
     :edit_box{label="︑笆纗丁";key="edit_s";edit_width=6;
     }
   }
   spacer_1;
   ok_cancel;
}
dia5a3:dialog{
label="AutoCAD酶瓜箇砞砞﹚";
:boxed_row{
     label="材舱絪胯";
     :edit_box{label="PLINE糴";key="edit_p";edit_width=6;}
     :edit_box{label="FILLET畖";key="edit_f";edit_width=6;}
     :edit_box{label="TEXT蔼";key="edit_t";edit_width=6;}
   }
   :boxed_row{
     label="材舱絪胯";
     fixed_width=true;
     alignment=centered;
     :edit_box{label="︑笆纗丁";key="edit_s";edit_width=6;}
   }
   spacer_1;
   ok_only;
}
dia5a4:dialog{
label="AutoCAD酶瓜箇砞砞﹚";
:boxed_row{
     label="材舱絪胯";
     :edit_box{label="PLINE糴";key="edit_p";edit_width=6;}
     :edit_box{label="FILLET畖";key="edit_f";edit_width=6;}
     :edit_box{label="TEXT蔼";key="edit_t";edit_width=6;}
   }
   :boxed_row{
     label="材舱絪胯";
     fixed_width=true;
     alignment=left;   //箇砞
     :edit_box{label="︑笆纗丁";key="edit_s";edit_width=6;}
   }
   spacer_1;
   ok_cancel_help;
}
dia5a5:dialog{
label="AutoCAD酶瓜箇砞砞﹚";
:boxed_row{
     label="材舱絪胯";
     :edit_box{label="PLINE糴";key="edit_p";edit_width=6;}
     :edit_box{label="FILLET畖";key="edit_f";edit_width=6;}
     :edit_box{label="TEXT蔼";key="edit_t";edit_width=6;}
   }
   :boxed_row{
     label="材舱絪胯";
     fixed_width=true;
     alignment=right;
     :edit_box{label="︑笆纗丁";key="edit_s";edit_width=6;}
   }
   spacer_1;
   ok_cancel_help_info;
}

(defun c:dia7b()
   (setvar "cmdecho" 0)
   (setq word_list'("キ瓜" "ミ瓜" "羆竒瞶" "加辫丁"
      "紆庐"   "脸捣"    "肚痷诀" "稻璱戈癟"
      "稻璱AutoCADм砃いみ"
      "AutoCAD 2000疭癡毙"
      "笵隔" "爵假" "倍笲╰参" "蔼硉臟隔" "砏"))
   (chk_style)
   (dcl_dia7b)
   (prin1)
)

angelzuo · 发表于 2010-6-2 12:20

好东西啊！感谢楼主下啦！

yuangw1234 · 发表于 2010-6-8 13:12

好东西，多谢楼主

xiaowen · 发表于 2010-6-9 15:08

是不是这台湾出的<Visual Lisp&DCL基础>这本书呢?

hdlyt11 · 发表于 2010-6-10 09:09

里面的文字不认识怎么解决？

洪少(刀模) · 发表于 2010-6-10 09:13

字体问题啊

洪少(刀模) · 发表于 2010-6-10 10:46

哈哈，上当了，浪费我两个币，里面只是一些源码和幻灯片，不是书？

zfsaaa · 发表于 2010-6-10 10:56

我也是字体看不懂,有啥高招?

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

[LISP资料] Autolisp&DCL精华宝典【整合应用光盘】(内代码幻灯dwg文件)

本帖子中包含更多资源

本帖子中包含更多资源