摘要: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 精诚所至 金石为开, 726 阅读, 0 推荐, 收藏, 编辑
摘要: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 精诚所至 金石为开, 1922 阅读, 0 推荐, 收藏, 编辑
摘要: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 精诚所至 金石为开, 2495 阅读, 0 推荐, 收藏, 编辑
摘要: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 精诚所至 金石为开, 267 阅读, 0 推荐, 收藏, 编辑
摘要:导演:李玉 主演:范冰冰 张艾嘉 陈柏霖 类型:剧情 上映日期: 2011年3月4日 中国 高清在线观看地址:http://www.shuangtv.net/watching/17415/1.html。 阅读全文
激战运钞车高清在线观看
2011-04-09 15:35 by 精诚所至 金石为开, 282 阅读, 0 推荐, 收藏, 编辑
摘要:激战运钞车 Armored 导演: 尼莫洛德·安塔尔 主演: 马特·狄龙 劳伦斯·菲什伯恩 让·雷诺 类型: 动作 / 惊悚 / 剧情 上映日期: 2011年2月22日 中国 在线观看地址:http://www.2kk.cc/Play.htm?ID=248728&MovieID=15216&ListID=1。 阅读全文
AutoLISP确定图纸幅面DCL对话框设计
2011-04-08 23:35 by 精诚所至 金石为开, 523 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP确定图纸幅面DCL对话框设计代码如下。 :dialog { initial_focus = "A3" ; label = "确定图纸幅面" ; :toggle { key = "ver" ; label = "垂直放置&V" ; } :boxed_radio_row { ... 阅读全文
AutoLISP绘制圆DCL对话框
2011-04-08 22:12 by 精诚所至 金石为开, 720 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP绘制圆DCL对话框,代码如下。 yuan:dialog { label = "绘制圆" ; :row { :image { width = 30 ; height = 8 ; key = "img_cr" ; color = -2 ; ... 阅读全文
AutoLISP对话框DCL控件属性
2011-04-08 19:21 by 精诚所至 金石为开, 4789 阅读, 0 推荐, 收藏, 编辑
摘要: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 精诚所至 金石为开, 974 阅读, 0 推荐, 收藏, 编辑
摘要:利用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 精诚所至 金石为开, 1327 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP对话框DCL一共包括23个常用控件和8个固定控件,每种控件属于一种类型,创建一个DCL对话框窗体就是创建各种控件实例的过程,控件是各种属性、事件、方法的集合。 按照各种控件的特点,DCL控件可以分为以下几类。 可定义动作行为的控件,例如按钮控件button。 组合类控件,例如列表框控件column。 装饰类和信息类控件,例如图像控件image。 各种... 阅读全文
AutoLISP简单DCL对话框
2011-04-08 13:47 by 精诚所至 金石为开, 840 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP简单DCL对话框,代码如下。 sample:dialog{ label="简单对话框实例"; :text{ label="祝您成功!"; } :button{ key="accept"; label="确认"; is_default=true; fixed_width=true; ... 阅读全文
你懂的
2011-04-08 09:43 by 精诚所至 金石为开, 281 阅读, 0 推荐, 收藏, 编辑
摘要:你懂的。 这个词真牛比,当一个词升华到牛逼,这个词将有怎样的含义? 我本来不懂的,可是出现了你懂的的时候我却懂了。因为这是河蟹的力量,一只动物造就了一个伟大的词,于是,我懂了。 由1和2组成的网络世界,反映了由阴阳组成的现实世界 。当河蟹在网络里横行的时候,我们就可以窥一斑而知全貌,知道河蟹原来一直都在我们身边。 我们伟大的第一个封建王朝秦朝,它创造了河蟹,那时候,有多少远古文化精华毁于斯,... 阅读全文
我奋斗了18年不是为了和你一起喝咖啡
2011-04-07 21:14 by 精诚所至 金石为开, 227 阅读, 0 推荐, 收藏, 编辑
摘要:3年前,麦子的一篇《我奋斗了18年才和你坐在一起喝咖啡》引起多少共鸣,一个农家子弟经过18年的奋斗,才取得和大都会里的同龄人平起平坐的权利,一代人的真实写照。然而,3年过去,我恍然发觉,他言之过早。18年又如何?再丰盛的年华叠加,我仍不能和你坐在一起喝咖啡。 那年我25,无数个夙兴夜寐,换来一个硕士学位,额上的抬头纹分外明显,脚下却半步也不敢停歇。如果不想让户口打回原籍,子子孙孙无穷匮,得赶紧地... 阅读全文
我奋斗了18年才和你坐在一起喝咖啡
2011-04-07 21:08 by 精诚所至 金石为开, 214 阅读, 0 推荐, 收藏, 编辑
摘要:我的白领朋友们,如果我是一个初中没毕业就来沪打工的民工,你会和我坐在starbucks一起喝咖啡吗?不会,肯定不会。比较我们的成长历程,你会发现为了一些在你看来唾手可得的东西,我却需要付出巨大的努力。 从我出生的一刻起,我的身份就与你有了天壤之别,因为我只能报农村户口,而你是城市户口。如果我长大以后一直保持农村户口,那么我就无法在城市中找到一份正式工作,无法享受养老保险、医疗保险,甚至连选举权都... 阅读全文