摘要: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... 阅读全文