摘要：
天下只有两种人，比如一串葡萄到手，一种人挑好的吃，另一种人把最好的留到最后吃。照例第一种人应该乐观，因为他每吃一颗都是吃剩的葡萄里最好的；第二种人应该悲观，因为他每吃一颗都是吃剩的葡萄里最坏的。不过事实却适得其反，缘故是第二种人还有希望，第一种人只有回忆。 阅读全文
随笔档案-2011年04月
触摸屏和PLC
2011-04-27 20:51 by 精诚所至 金石为开, 227 阅读, 收藏, 编辑
摘要：
变频器用欧姆龙，PLC用欧姆龙的，触摸屏用步进科技E-VIEW，其它待定。 阅读全文
Change your words, Chang your world
2011-04-27 18:55 by 精诚所至 金石为开, 287 阅读, 收藏, 编辑
摘要：
I.t's a butiful day, But i can't see it! 阅读全文
加菲猫经典语录
2011-04-25 21:50 by 精诚所至 金石为开, 245 阅读, 收藏, 编辑
摘要：
我刚结束为期14天的节食，唯一减掉的就是两周来的时间。 真不愿意起来，尤其我还病了，可我还得带病坚持吃饭。 嘘——千万不要告诉他们我做了好事，这会影响我的形象的！ 今天是元旦，我决定在新的一年里每天睡眠时间不超过8小时，这样的话，8乘以365除以24……121.6天……5月3日叫我起床！ 我向星星许了个愿。我并不是真的相信它，但是反正也是免费的，而且也没有证据证明它不灵。 狗的问题就在于... 阅读全文
AutoLISP对话框DCL关于LIST_BOX应用示例
2011-04-25 16:59 by 精诚所至 金石为开, 2891 阅读, 收藏, 编辑
摘要：
AutoLISP对话框DCL关于LIST_BOX应用示例，DCL对话框代码如下。 dia7a:dialog { label = "列表框示例" ; :list_box { height = 10 ; key = "klist" ; label = "词库选单" ; ... 阅读全文
AutoLISP单选按钮RADIO_BUTTON设计插入图块
2011-04-25 14:37 by 精诚所至 金石为开, 1166 阅读, 收藏, 编辑
摘要：
AutoLISP单选按钮RADIO_BUTTON设计插入图块，DCL对话框代码如下。 dia6b:dialog { label = "RADIO_BUTTON单选按钮" ; :text { alignment = centered ; label = "插入图块" ; } ... 阅读全文
AutoLISP切换开关toggle设计设置系统变量
2011-04-25 13:43 by 精诚所至 金石为开, 764 阅读, 收藏, 编辑
摘要：
AutoLISP切换开关toggle设计设置系统变量，DCL对话框代码如下。 dia6a:dialog { label = "TOGGLE切换开关应用" ; :boxed_column { label = "开关设定" ; :toggle { key = "tg_attd... 阅读全文
AutoLISP对话框设计查询图元个数
2011-04-25 00:08 by 精诚所至 金石为开, 480 阅读, 收藏, 编辑
摘要：
AutoLISP对话框设计查询图元个数，可查CIRCLE、LINE和TEXT的数量，DCL代码如下。 dia5d:dialog { label = "练习" ; :concatenation { :text_part { label = "共选到【" ; } ... 阅读全文
AutoLISP对话框DCL按钮Button设计实例
2011-04-24 21:37 by 精诚所至 金石为开, 1595 阅读, 收藏, 编辑
摘要：
AutoLISP对话框DCL按钮设计实例，绘制三种形式的图形，DCL对话框设计代码如下。 dia5b:dialog { label = "按钮测试" ; :boxed_row { label = "图形尺寸" ; :edit_box { edit_width = 8 ; ... 阅读全文
药要死了
2011-04-23 13:08 by 精诚所至 金石为开, 264 阅读, 收藏, 编辑
摘要：
某路人经过北大街，迎面撞见一群人兴高采烈手舞足蹈高喊着“yao死啦，yao死啦。。。”。路人不解：都要死了，还高兴个啥？于是上前问个细致，群口齐开：药加鑫要死啦！ 这是我捏造的一个山寨版故事，当然关注新闻的人都知道故事的最后一句是真的—药加鑫一审被判死刑。 在一审之前，对于药是否该死也曾有过“激烈”争论。说药该死的理由很简单很充分：其行为适用我国死刑；为药说情者的说法就五花八门了：激情杀人说、... 阅读全文
一场不值得欢呼的胜利：评李庄药家鑫案结局
2011-04-23 13:05 by 精诚所至 金石为开, 1649 阅读, 收藏, 编辑
摘要：
刚刚看到一条微博，说今天（4月22日）是中国法制的胜利日。这是指李庄案检方突然撤诉和药家鑫最终被判死刑的事件。就这两件事，胜利固然是胜利，但丝毫没有喜悦和庆祝的气氛，相反，这个“胜利”来得异常沉重，实际上准确地说——异常沉痛。因为，一场几乎是社会总动员的法治运动，换来的不是法治的进步，而仅仅是法治免于的倒退，或者阻止一场枉法。 李庄案动用了江平先生出马和杨学林先生出庭，以及贺卫方教授的网络发动，... 阅读全文
AutoLISP利用DCL对话框设置系统变量
2011-04-18 22:59 by 精诚所至 金石为开, 1217 阅读, 收藏, 编辑
摘要：
一个利用DCL设置CAD系统变量的例子，类似的利用这个可以设置其它系统变量。 DCL对话框代码如下。 dia5a:dialog { label = "系统变量设置" ; :edit_box { edit_width = 6 ; key = "edit_p" ; lab... 阅读全文
AutoCAD中的左手键
2011-04-17 22:13 by 精诚所至 金石为开, 436 阅读, 收藏, 编辑
摘要：
左手键 所谓“左手键”就是只用左手使用键盘的左半部敲打命令。 主要使用15个字母： Q W E R T A S D F G Z X C V B 及空格键。 因为键盘固有的结构，数字小键盘位于键盘的右边，所以在实际绘图中，需要输入尺寸的时候，还是用右手输入方便一些。右手从鼠标挪到数字小键盘，动作幅度也并不大。 左手键命令别名 命令别名是AutoCAD的一项很体贴用户的实用功能，善用命令别... 阅读全文
AutoLISPDCL对话框对象群应用
2011-04-16 15:48 by 精诚所至 金石为开, 325 阅读, 收藏, 编辑
摘要：
AutoLISPDCL对话框对象群应用，代码如下。 dcl:dialog { label = "BASE.DCL" ; :boxed_column { label = "标准DCL对象1" ; files_topdf; } :boxed_column { ... 阅读全文
AutoCADDCL对话框设计示例十
2011-04-16 15:37 by 精诚所至 金石为开, 553 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例十，代码如下。 dcl:dialog { label = "第十个DCL设计" ; :boxed_row { label = "对象对话框" ; :column { spacer_0; :text { ... 阅读全文
AutoCADDCL对话框设计示例九
2011-04-16 15:25 by 精诚所至 金石为开, 371 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例九，代码如下。 dcl:dialog { label = "第九个DCL设计" ; :boxed_row { label = "颜色按钮" ; color_palette_1_7; } :row { :imag... 阅读全文
AutoCADDCL对话框设计示例八
2011-04-16 15:09 by 精诚所至 金石为开, 340 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例八，代码如下。 dcl:dialog { label = "第八个DCL设计" ; :row { :boxed_column { label = "开关按钮" ; :toggle { la... 阅读全文
AutoCADDCL对话框设计示例七
2011-04-16 14:54 by 精诚所至 金石为开, 369 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例七，代码如下。 dcl:dialog { label = "第七个DCL设计" ; :row { :list_box { height = 5 ; label = "列表" ; list = "北... 阅读全文
AutoCADDCL对话框设计示例六
2011-04-16 14:35 by 精诚所至 金石为开, 369 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例六，代码如下。 dcl:dialog { label = "第六个DCL设计" ; :text { alignment = centered ; label = "这是一个文本框" ; } :row { :ed... 阅读全文
AutoCADDCL对话框设计示例五
2011-04-16 14:24 by 精诚所至 金石为开, 445 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例五，代码如下。 dcl:dialog { label = "第五个DCL设计" ; :text { alignment = centered ; label = "这是一个文本框" ; } :row { :ed... 阅读全文
AutoCADDCL对话框设计示例四
2011-04-16 14:16 by 精诚所至 金石为开, 337 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例四，代码如下。 dcl:dialog { label = "第四个DCL对话框" ; :text { alignment = centered ; label = "这是一个文本框" ; } :row { :e... 阅读全文
AutoCADDCL对话框设计示例三
2011-04-16 14:07 by 精诚所至 金石为开, 390 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例三，代码如下。 dcl:dialog { label = "第三个DCL对话框" ; :text { alignment = centered ; label = "这是文本框" ; } :edit_box { ... 阅读全文
AutoCADDCL对话框设计示例二
2011-04-16 13:59 by 精诚所至 金石为开, 287 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例二，代码如下。 dcl:dialog { label = "第二个DCL对话框" ; :text { alignment = centered ; value = "这是一个文本框！" ; } spacer_1; ok... 阅读全文
AutoCADDCL对话框设计示例一
2011-04-16 13:55 by 精诚所至 金石为开, 397 阅读, 收藏, 编辑
摘要：
AutoCADDCL对话框设计示例，代码如下。 firstDCL:dialog { label = "第一个DCL设计" ; :text { label = "这是一个文本" ; } ok_only;} 代码完。 阅读全文
关于性格内向者的10个误解
2011-04-13 16:47 by 精诚所至 金石为开, 273 阅读, 收藏, 编辑
摘要：
我非常幸运的发现了这本《内向者优势——如何在外向的世界中获得成功》的好书，我感觉就好像是有人专门为我们这个罕见的小群体写了一部百科全书一样，它不仅对我的很多怪癖做了解释，还帮助我从一个崭新且积极的角度重新定义了我的整个人生。 毫无疑问，几乎所有认识我的人都会说，“啊哈，你不会到现在才发现你是个性格内向者吧？”，其实这并不是那么简单，问题在于将一些人贴上内向者的标签是一种非常浅显且充满各种常见误解... 阅读全文
AutoLISP查询图元信息
2011-04-11 20:56 by 精诚所至 金石为开, 1339 阅读, 收藏, 编辑
摘要：
AutoLISP查询图元信息，可以查询直线、圆弧、圆、椭圆的相关信息，代码如下。 (defun c:getppt () (setq ss (car (entsel "请选择要查询的图元："))) (setq ssob (vlax-ename->vla-object ss)) (setq typ (cdr ... 阅读全文
AutoLISP查询直线的相关属性
2011-04-11 17:16 by 精诚所至 金石为开, 686 阅读, 收藏, 编辑
摘要：
AutoLISP查询直线的相关属性，得到直线的起点、终点、长度和角度，代码如下。 (defun c:lppt () (setq ss (car (entsel "\n请选择所要查询的直线："))) (setq ssob (vlax-ename->vla-object ss)) (Setq len (Vlax-Get ssob 'Lengt... 阅读全文
AutoLISP查询椭圆弧的相关属性
2011-04-11 17:09 by 精诚所至 金石为开, 431 阅读, 收藏, 编辑
摘要：
AutoLISP查询椭圆弧的相关属性，得到椭圆弧的中心、长轴、短轴、周长和面积，代码如下。 (defun c:elcppt () (setq ss (car (entsel "\n请选择所要查询的椭圆弧："))) (setq ssob (vlax-ename->vla-object ss)) (setq len (vlax-curv... 阅读全文
AutoLISP查询椭圆的相关属性
2011-04-11 17:03 by 精诚所至 金石为开, 372 阅读, 收藏, 编辑
摘要：
AutoLISP查询椭圆的相关属性，包括椭圆的中心、长轴、短轴、周长和面积，代码如下。 (defun c:elppt () (setq ss (car (entsel "\n请选择所要查询的椭圆："))) (setq ssob (vlax-ename->vla-object ss)) (setq center (vlax-get s... 阅读全文
AutoLISP查询圆弧的相关属性
2011-04-11 16:59 by 精诚所至 金石为开, 570 阅读, 收藏, 编辑
摘要：
AutoLISP查询圆弧的相关属性，得到圆心、半径、长度和面积，代码如下。 (defun c:arcppt () (setq ss (car (entsel "\n请选择所要查询的圆弧："))) (setq ssob (vlax-ename->vla-object ss)) (Setq center (Vlax-Get ssob '... 阅读全文
AutoLISP查询圆的相关属性
2011-04-10 20:25 by 精诚所至 金石为开, 398 阅读, 收藏, 编辑
摘要：
AutoLISP查询圆的相关属性，包括圆心坐标、半径、周长和面积四个信息，代码如下。 (defun c:ccleppt () (setq ss (car (entsel "\n请选择要查询的圆："))) (setq ssob (vlax-ename->vla-object ss)) (setq center (vlax-get ssob ... 阅读全文
AutoLISP统计图形中某种图元的数量
2011-04-10 15:45 by 精诚所至 金石为开, 789 阅读, 收藏, 编辑
摘要：
AutoLISP统计图形中某种图元的数量，以圆和直线为例，代码如下。 (defun c:ssnum () (setq ss (ssget)) (setq i 0 line_num 0 circle_num 0 ) (repeat (sslength ... 阅读全文
AutoLISP取得多段线顶点坐标
2011-04-09 22:15 by 精诚所至 金石为开, 2044 阅读, 收藏, 编辑
摘要：
AutoLISP利用repeat循环取得多段线顶点坐标，代码如下。 (defun c:plpoint () (setq i 0) (setq pline (car (entsel))) (setq ent (entget pline)) (setq pts nil) (repeat (length en... 阅读全文
AutoLISP选择集操作
2011-04-09 21:48 by 精诚所至 金石为开, 2541 阅读, 收藏, 编辑
摘要：
AutoLISP选择集操作，根据选择集中图元的类型，进行不同的操作，代码如下。 (defun c:ssope () (setq ss (ssget)) (setq i 0) (repeat (sslength ss) (setq typ (cdr (assoc 0 (entget (ssname ss i))))) ... 阅读全文
观音山高清在线观看
2011-04-09 18:02 by 精诚所至 金石为开, 270 阅读, 收藏, 编辑
摘要：
导演：李玉 主演：范冰冰 张艾嘉 陈柏霖 类型：剧情 上映日期： 2011年3月4日 中国 高清在线观看地址：http://www.shuangtv.net/watching/17415/1.html。 阅读全文
激战运钞车高清在线观看
2011-04-09 15:35 by 精诚所至 金石为开, 289 阅读, 收藏, 编辑
摘要：
激战运钞车 Armored 导演： 尼莫洛德·安塔尔 主演： 马特·狄龙 劳伦斯·菲什伯恩 让·雷诺 类型： 动作 / 惊悚 / 剧情 上映日期： 2011年2月22日 中国 在线观看地址：http://www.2kk.cc/Play.htm?ID=248728&MovieID=15216&ListID=1。 阅读全文
AutoLISP确定图纸幅面DCL对话框设计
2011-04-08 23:35 by 精诚所至 金石为开, 530 阅读, 收藏, 编辑
摘要：
AutoLISP确定图纸幅面DCL对话框设计代码如下。 :dialog { initial_focus = "A3" ; label = "确定图纸幅面" ; :toggle { key = "ver" ; label = "垂直放置&V" ; } :boxed_radio_row { ... 阅读全文
AutoLISP绘制圆DCL对话框
2011-04-08 22:12 by 精诚所至 金石为开, 738 阅读, 收藏, 编辑
摘要：
AutoLISP绘制圆DCL对话框，代码如下。 yuan:dialog { label = "绘制圆" ; :row { :image { width = 30 ; height = 8 ; key = "img_cr" ; color = -2 ; ... 阅读全文
AutoLISP对话框DCL控件属性
2011-04-08 19:21 by 精诚所至 金石为开, 4937 阅读, 收藏, 编辑
摘要：
AutoLISP对话框DCL控件属性及其对应控件，总结如下表所示。属性释义及常用值相关控件action链接一个LISP函数，响应鼠标或键盘动作button,edit_box,image,image_button,list_box,popup_list,radio_button,slider,togglealignment控件布局，值：left,centered,right,top,centered,bottom所有控件allow_accept控件是否相应ENTER键，值：true,falseedit_box,image_button,list_boxaspect_radio控制控件的宽高比im 阅读全文
AutoLISP用spacer、spacer_0和spacer_1调整DCL对话框控件布局
2011-04-08 17:37 by 精诚所至 金石为开, 990 阅读, 收藏, 编辑
摘要：
利用spacer、spacer_0和spacer_1调整DCL对话框控件布局实例，代码如下。 spacertest:dialog{label="调整间距"; :row{ :button{label="A0";key="a0";fixed_width=true;} :button{label="A1";key="a1";fixed_width=true;} ... 阅读全文
AutoLISPDCL各种控件
2011-04-08 14:22 by 精诚所至 金石为开, 1424 阅读, 收藏, 编辑
摘要：
AutoLISP对话框DCL一共包括23个常用控件和8个固定控件，每种控件属于一种类型，创建一个DCL对话框窗体就是创建各种控件实例的过程，控件是各种属性、事件、方法的集合。 按照各种控件的特点，DCL控件可以分为以下几类。 可定义动作行为的控件，例如按钮控件button。 组合类控件，例如列表框控件column。 装饰类和信息类控件，例如图像控件image。 各种... 阅读全文
AutoLISP简单DCL对话框
2011-04-08 13:47 by 精诚所至 金石为开, 874 阅读, 收藏, 编辑
摘要：
AutoLISP简单DCL对话框，代码如下。 sample:dialog{ label="简单对话框实例"; :text{ label="祝您成功！"; } :button{ key="accept"; label="确认"; is_default=true; fixed_width=true; ... 阅读全文
你懂的
2011-04-08 09:43 by 精诚所至 金石为开, 285 阅读, 收藏, 编辑
摘要：
你懂的。 这个词真牛比，当一个词升华到牛逼，这个词将有怎样的含义？ 我本来不懂的，可是出现了你懂的的时候我却懂了。因为这是河蟹的力量，一只动物造就了一个伟大的词，于是，我懂了。 由1和2组成的网络世界，反映了由阴阳组成的现实世界 。当河蟹在网络里横行的时候，我们就可以窥一斑而知全貌，知道河蟹原来一直都在我们身边。 我们伟大的第一个封建王朝秦朝，它创造了河蟹，那时候，有多少远古文化精华毁于斯，... 阅读全文
我奋斗了18年不是为了和你一起喝咖啡
2011-04-07 21:14 by 精诚所至 金石为开, 231 阅读, 收藏, 编辑
摘要：
3年前，麦子的一篇《我奋斗了18年才和你坐在一起喝咖啡》引起多少共鸣，一个农家子弟经过18年的奋斗，才取得和大都会里的同龄人平起平坐的权利，一代人的真实写照。然而，3年过去，我恍然发觉，他言之过早。18年又如何?再丰盛的年华叠加，我仍不能和你坐在一起喝咖啡。 那年我25，无数个夙兴夜寐，换来一个硕士学位，额上的抬头纹分外明显，脚下却半步也不敢停歇。如果不想让户口打回原籍，子子孙孙无穷匮，得赶紧地... 阅读全文
我奋斗了18年才和你坐在一起喝咖啡
2011-04-07 21:08 by 精诚所至 金石为开, 218 阅读, 收藏, 编辑
摘要：
我的白领朋友们，如果我是一个初中没毕业就来沪打工的民工，你会和我坐在starbucks一起喝咖啡吗？不会，肯定不会。比较我们的成长历程，你会发现为了一些在你看来唾手可得的东西，我却需要付出巨大的努力。 从我出生的一刻起，我的身份就与你有了天壤之别，因为我只能报农村户口，而你是城市户口。如果我长大以后一直保持农村户口，那么我就无法在城市中找到一份正式工作，无法享受养老保险、医疗保险，甚至连选举权都... 阅读全文
AutoLISP第一个DCL窗体
2011-04-06 19:08 by 精诚所至 金石为开, 598 阅读, 收藏, 编辑
摘要：
AutoLISP第一个DCL窗体，将如下代码写入编辑器窗体，“文件—另存为”，文件名为“hello”，文件类型选取”DCL源文件“。 hello:dialog{ label="First Dialog Box"; :text{ label="Hello,World!"; alignment=centered; } :bu... 阅读全文
AutoLISP绘制玻璃门
2011-04-05 16:38 by 精诚所至 金石为开, 692 阅读, 收藏, 编辑
摘要：
AutoLISP绘制玻璃门，代码如下。 (defun c:test () (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldlayer (getvar "clayer")) (setvar "osmode" 0) (get_door_bas_pp) ... 阅读全文
AutoLISP绘制表格
2011-04-05 15:43 by 精诚所至 金石为开, 955 阅读, 收藏, 编辑
摘要：
AutoLISP绘制表格，自动绘制表格，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq pt1 (getpoint "\n第一角点：")) (setq pt3 (getcorne... 阅读全文
AutoLISP引线序号球
2011-04-05 11:00 by 精诚所至 金石为开, 494 阅读, 收藏, 编辑
摘要：
AutoLISP引线序号球，代码如下。 (defun c:test () (setvar "cmdecho" 0) (setq old_rr (getvar "circlerad")) (setq str_rr (strcat "\n圆半径:")) (setq rr1 (getdist str_rr)) ... 阅读全文
神化的韩寒
2011-04-04 09:58 by 精诚所至 金石为开, 286 阅读, 收藏, 编辑
摘要：
韩寒，赛车手，作家，某杂志前主编，集多重身份于一身现代偶像明星，当然，并不是所有的明星都能欣然接受被别人冠以偶像的称号，但是我不得不说，有很多人确实把韩寒当做一个偶像来看待，因为就算他实力再大，也无法掩盖掉偶像气质给他带来的优势，而这种优势是强大到足以激发不少涉世未深的手女以身相许的冲动的，韩寒也曾经说过自己的粉丝不会像刘德华的粉丝那样没有理性，但事实证明，他高估了自己的粉丝了。 一谈论到韩寒... 阅读全文
2011年4月1日星期五
2011-04-01 18:37 by 精诚所至 金石为开, 181 阅读, 收藏, 编辑
摘要：
2011年4月1日星期五愚人节。 从昨天开始忙，帮忙搬东西累的我腰酸腿疼，今天又几乎站了一天，后两天什么都不干了，不能站着。 从停上体育课，好像就没运动过了，以后一定注意身体。 阅读全文
