摘要：AutoLISP对话框设计查询图元个数，可查CIRCLE、LINE和TEXT的数量，DCL代码如下。 dia5d:dialog { label = "练习" ; :concatenation { :text_part { label = "共选到【" ; } ... 阅读全文
AutoLISP对话框DCL按钮Button设计实例
2011-04-24 21:37 by 精诚所至 金石为开, 1486 阅读, 0 推荐, 收藏, 编辑
摘要：AutoLISP对话框DCL按钮设计实例，绘制三种形式的图形，DCL对话框设计代码如下。 dia5b:dialog { label = "按钮测试" ; :boxed_row { label = "图形尺寸" ; :edit_box { edit_width = 8 ; ... 阅读全文
药要死了
2011-04-23 13:08 by 精诚所至 金石为开, 262 阅读, 0 推荐, 收藏, 编辑
摘要：某路人经过北大街，迎面撞见一群人兴高采烈手舞足蹈高喊着“yao死啦，yao死啦。。。”。路人不解：都要死了，还高兴个啥？于是上前问个细致，群口齐开：药加鑫要死啦！ 这是我捏造的一个山寨版故事，当然关注新闻的人都知道故事的最后一句是真的—药加鑫一审被判死刑。 在一审之前，对于药是否该死也曾有过“激烈”争论。说药该死的理由很简单很充分：其行为适用我国死刑；为药说情者的说法就五花八门了：激情杀人说、... 阅读全文
一场不值得欢呼的胜利：评李庄药家鑫案结局
2011-04-23 13:05 by 精诚所至 金石为开, 1617 阅读, 0 推荐, 收藏, 编辑
摘要：刚刚看到一条微博，说今天（4月22日）是中国法制的胜利日。这是指李庄案检方突然撤诉和药家鑫最终被判死刑的事件。就这两件事，胜利固然是胜利，但丝毫没有喜悦和庆祝的气氛，相反，这个“胜利”来得异常沉重，实际上准确地说——异常沉痛。因为，一场几乎是社会总动员的法治运动，换来的不是法治的进步，而仅仅是法治免于的倒退，或者阻止一场枉法。 李庄案动用了江平先生出马和杨学林先生出庭，以及贺卫方教授的网络发动，... 阅读全文
AutoLISP利用DCL对话框设置系统变量
2011-04-18 22:59 by 精诚所至 金石为开, 1194 阅读, 0 推荐, 收藏, 编辑
摘要：一个利用DCL设置CAD系统变量的例子，类似的利用这个可以设置其它系统变量。 DCL对话框代码如下。 dia5a:dialog { label = "系统变量设置" ; :edit_box { edit_width = 6 ; key = "edit_p" ; lab... 阅读全文
AutoCAD中的左手键
2011-04-17 22:13 by 精诚所至 金石为开, 427 阅读, 0 推荐, 收藏, 编辑
摘要：左手键 所谓“左手键”就是只用左手使用键盘的左半部敲打命令。 主要使用15个字母： Q W E R T A S D F G Z X C V B 及空格键。 因为键盘固有的结构，数字小键盘位于键盘的右边，所以在实际绘图中，需要输入尺寸的时候，还是用右手输入方便一些。右手从鼠标挪到数字小键盘，动作幅度也并不大。 左手键命令别名 命令别名是AutoCAD的一项很体贴用户的实用功能，善用命令别... 阅读全文
AutoLISPDCL对话框对象群应用
2011-04-16 15:48 by 精诚所至 金石为开, 318 阅读, 0 推荐, 收藏, 编辑
摘要：AutoLISPDCL对话框对象群应用，代码如下。 dcl:dialog { label = "BASE.DCL" ; :boxed_column { label = "标准DCL对象1" ; files_topdf; } :boxed_column { ... 阅读全文
AutoCADDCL对话框设计示例十
2011-04-16 15:37 by 精诚所至 金石为开, 549 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADDCL对话框设计示例十，代码如下。 dcl:dialog { label = "第十个DCL设计" ; :boxed_row { label = "对象对话框" ; :column { spacer_0; :text { ... 阅读全文
AutoCADDCL对话框设计示例九
2011-04-16 15:25 by 精诚所至 金石为开, 364 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADDCL对话框设计示例九，代码如下。 dcl:dialog { label = "第九个DCL设计" ; :boxed_row { label = "颜色按钮" ; color_palette_1_7; } :row { :imag... 阅读全文
AutoCADDCL对话框设计示例八
2011-04-16 15:09 by 精诚所至 金石为开, 336 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADDCL对话框设计示例八，代码如下。 dcl:dialog { label = "第八个DCL设计" ; :row { :boxed_column { label = "开关按钮" ; :toggle { la... 阅读全文
AutoCADDCL对话框设计示例七
2011-04-16 14:54 by 精诚所至 金石为开, 362 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADDCL对话框设计示例七，代码如下。 dcl:dialog { label = "第七个DCL设计" ; :row { :list_box { height = 5 ; label = "列表" ; list = "北... 阅读全文
AutoCADDCL对话框设计示例六
2011-04-16 14:35 by 精诚所至 金石为开, 358 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADDCL对话框设计示例六，代码如下。 dcl:dialog { label = "第六个DCL设计" ; :text { alignment = centered ; label = "这是一个文本框" ; } :row { :ed... 阅读全文
AutoCADDCL对话框设计示例五
2011-04-16 14:24 by 精诚所至 金石为开, 431 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADDCL对话框设计示例五，代码如下。 dcl:dialog { label = "第五个DCL设计" ; :text { alignment = centered ; label = "这是一个文本框" ; } :row { :ed... 阅读全文