日志
- 分享 表排序
- 可应用于点集排序 要求见： http://bbs.mjtd.com/thread-95905-1-1.html (defun PointList-sort (PNTLST / REC) (defun REC (A B);;递归 (cond ((equal (car A) (car B) 1E-4) (REC (cdr A) (cdr B))) (T ( (car A) (car B))) &nbs ...
- 分享 [自制散曲] 荒唐够·明明人间
- 荒唐够·明明人间 ---------------------------------------------------------- 明明这人间， 看却似殷殷邈渺生灵始无计。 红男绿女乱糟糟、奔忙兮， 为咋地？ 蝇营狗苟皆因那孔方去。 谁知那投机方正道，乱法是为赢？ 惹得这平厚白身、忠良黎庶漫撒气。 休唏嘘！休唏嘘！ 说不定哪 ...
- 分享 【原创】中国地缘环境和中国柔软的处世身段
- http://blog.ifeng.com/article/17581308.html
- 分享 [转贴]郑永年：为什么中国需要第二次“南巡”？
- 为什么中国需要第二次“南巡”？ ［郑永年］ (2012-01-17) 未来的历史会告诉人们，1992年邓小平的“南巡”或者“南方讲话”，是中国当代改革史上最重要的历史事件，是里程碑。人们今天所看到的改革开放的所有成果，都是和“南巡”密切相关。“南巡”的意义在哪里？简单地说， ...
- 分享 模仿动态右键菜单
- ;;; 模仿动态右键菜单-----by caoyin 2011.11.29 ;;; ------------------------------------------------------------- ;;; 以前我们实现右键菜单是在菜单文件中编辑好宏，用的时候调用， ;;; 现在可以利用DYN功能和WScript.Shell对象的SendKeys方法随机实现。 ;;; 适用 AutoCAD 2006 及以上版本 ;;; ------------------ ...
- 分享 [写给新手]两种机制让ENTSEL更完美
- ;;两种机制让ENTSEL更完美------caoyin 2011.11.14 ;;本文从以前的程序中整理出来，希望能给新手一些启示。 ;;entsel函数在执行过程中会出现3中可能 ;;1.选择为空，返回nil，退出。 ;;2.用户右击鼠标，返回nil，退出。 ;;3.选中对象，返回一个包含点和图元名的表。但有时候对象的类型并不是自己想要的 ...
- 分享 获取曲线偏移到任意点的距离
- ;; 获取曲线偏移到任意点的距离(也可用于VLA-OFFSET,LINE会例外) ;; en---图元名 ;; pt---点 ;; 实型数(=0 时点在曲线上，0 时点在曲线的正方向，0 时在曲线的反方向) ;; (setq en (car (entsel)) pt (getpoint) d (lt:curve-getDistancePtTo en pt)) (defun lt:c ...
- 分享 趣味阅读：大话 LISP 之加载门事件
- 1.加载门事件 : 警告：罪行恶劣、请勿模仿、后果自负 【起因】load函数被绑架，vl-file-delete函数冒充了load烧杀抢掠无恶不作，顿时江湖上血雨腥风…… 【犯案经过】(setq load vl-file-delete) 【危害】所有load加载的文件全部命丧黄泉…… 【现场调查】AutoCAD 窗口变成LISP文件的火葬场(LISP文 ...
- 分享 [转] 社会抗议运动：西方与中国
- 文章转自:新加坡联合早报 (2011-08-30) 是那些具有普遍性的因素催生着社会抗议呢？在众多的因素之中，恐怕没有一个比全球化更重要的了。 今天，社会抗议运动无处不在，无时不在。阿拉伯世界的社会抗议方兴未艾。中国尽管强化着基于暴力之上的“维稳”机制，但社会抗议并没有减少。长期以来一直以自由民主 ...