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