摘要：
AutoVBA获取基本图元对象，以LINE为例，代码如下。 Public Sub animatedline() Dim mylineobject As AcadLine Dim startmovevector(0 To 2) As Double Dim endmovevector(0 To 2) As Double Di... 阅读全文
随笔档案-2011年05月
AutoVBA在绘图空间创建直线对象
2011-05-31 21:49 by 精诚所至 金石为开, 291 阅读, 收藏, 编辑
摘要：
AutoVBA在绘图空间创建LINE对象，代码如下。 Public Sub creatline() Dim mylineobject As AcadLine Dim startpoint(0 To 2) As Double Dim endpoint(0 To 2) As Double startpoint(0) = 1 ... 阅读全文
一个博士的论文致谢词
2011-05-31 20:48 by 精诚所至 金石为开, 264 阅读, 收藏, 编辑
摘要：
我从进入大学到博士毕业整整十年。在这十年中，我过得浑浑愕额。十年前，我身高170cm，十年后，我身高还是170cm；十年前，我体重60kg，十年后，我体重还是60kg；十年前，我一无所有，十年后，我还是一无所有。十年前，我眼睛明亮、有神，十年后，摘掉眼镜，我已看不清自己有多少个手指了；十年前，我声音洪亮、清澈，十年后，已经是慢性咽喉炎，声音嘶哑；十年前，我踌躇满志、指点江山、激扬文字，十年后，我心... 阅读全文
AutoVBA两有用的函数Time和Date
2011-05-30 20:44 by 精诚所至 金石为开, 357 阅读, 收藏, 编辑
摘要：
VBA宏代码运行示例，用于向图形中添加一个text，代码如下。 Sub drawtext() Dim textposition(0 To 2) As Double textposition(0) = 1.5 textposition(1) = 8.5 textposition(2) = 0 M... 阅读全文
AutoCAD中绘制箭头
2011-05-29 00:54 by 精诚所至 金石为开, 314 阅读, 收藏, 编辑
摘要：
一种绘制箭头的方法是LINE命令绘制一个箭头的轮廓然后利用填充命令，填充图案，另一种绘制箭头的方法是利用多段线命令，分别设置多段线的起点和重点的宽度，使之成为箭头的形状，这个方法更加简单。 刚刚安装了个cheng风管绘制CAD插件程序，准备联系原作者，如果作者能共享源码更好，正好学习学习。 阅读全文
AutoLISP实现同时绘制多条直线
2011-05-26 22:53 by 精诚所至 金石为开, 765 阅读, 收藏, 编辑
摘要：
AutoLISP实现同时绘制多条直线，没有预览效果，代码如下。 (defun c:tt () (setq r (getreal "\n请输入风管宽度：")) (if (= nil r) (setq r 100) ) (while t (if (= p1 ... 阅读全文
AutoLISP实现橡皮筋绘图预览
2011-05-25 20:06 by 精诚所至 金石为开, 597 阅读, 收藏, 编辑
摘要：
AutoLISP里getpoint命令如果指定第二个参数的话，自动实现橡皮筋效果，但是同时绘制三条直线的时候无法实现橡皮筋效果，虽然grread函数能够实现鼠标移动时候的预览，但是grread函数执行的时候是不能执行对象捕捉的，因此无法指定绘图的第二点。 (defun c:tt () (setq r (getreal "\n请输入管道宽度：")) (if... 阅读全文
AutoLISP连续计算长度
2011-05-24 20:55 by 精诚所至 金石为开, 470 阅读, 收藏, 编辑
摘要：
AutoLISP指定路径，计算长度，代码如下。 (defun c:test (/ pt pts dis p1) (while (setq pt (getpoint "\n端点: ")) (if (not p1) (setq p1 pt) ) (setq pts (cons pt pts)) ... 阅读全文
AutoLISP计算所选图元总长度
2011-05-24 20:44 by 精诚所至 金石为开, 571 阅读, 收藏, 编辑
摘要：
AutoLISP计算所选图元总长度，代码如下。 (defun c:cd () (vl-load-com) (setq len 0) (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))) ) (setq ... 阅读全文
AutoLISP批量移动图元到指定图层
2011-05-24 19:34 by 精诚所至 金石为开, 1215 阅读, 收藏, 编辑
摘要：
AutoLISP移动图元到指定图层，代码如下。 (defun c:test (/ ss) (vl-load-com) (setq entlay (entsel "\n选择目标图层：")) (setq objlay (vla-get-layer (vlax-ename->vla-object (car entlay)))) ... 阅读全文
AutoLISP自动标注图元面积
2011-05-24 19:10 by 精诚所至 金石为开, 2092 阅读, 收藏, 编辑
摘要：
AutoLISP自动标注图元面积，选择图元在指定点插入面积标注，代码如下。 (defun c:areat () (setq olderr *error*) (setq *error* myerr) (setvar "cmdecho" 0) (setq oldos (getvar "osmode")) ... 阅读全文
AutoLISP反应器vlr-object-reactor函数应用
2011-05-23 23:35 by 精诚所至 金石为开, 1347 阅读, 收藏, 编辑
摘要：
AutoLISP反应器vlr-object-reactor函数应用，代码如下。 (defun c:tt (/ line line_handle txt txt_line txt_line_reactor) (Setq txt (Vlax-Ename->Vla-Object (car (entsel)))) (Setq line (Vlax-Ename-... 阅读全文
AutoLISP根据所选图元冻结图层
2011-05-23 21:25 by 精诚所至 金石为开, 626 阅读, 收藏, 编辑
摘要：
选取图元，冻结图元所在图层，并将0层设置为当前图层，代码如下。 (defun c:layerf () (while (= (setq obj (entsel "\n选择要关闭层中的任一图素:")) nil)) (setq objlay (cdr (assoc 8 (entget (car obj))))) (setq clay (getv... 阅读全文
AutoLISP实时跟踪鼠标坐标
2011-05-23 01:30 by 精诚所至 金石为开, 934 阅读, 收藏, 编辑
摘要：
运用grread函数跟踪鼠标坐标，绘制鼠标轨迹，代码如下。 (defun c:test () (setq p (getpoint)) (setq n 0) (while (progn (setq input (grread t)) (cond ((= (car inpu... 阅读全文
AutoLISP图像控件Image应用示例
2011-05-20 19:05 by 精诚所至 金石为开, 1463 阅读, 收藏, 编辑
摘要：
DCL对话框文件代码如下。 dia8a:dialog { label = "图像设计示例" ; :row { :boxed_radio_column { label = "设计样式" ; :radio_button { ... 阅读全文
你浑浑噩噩度过的今天
2011-05-04 13:26 by 精诚所至 金石为开, 306 阅读, 收藏, 编辑
摘要：
你浑浑噩噩度过的今天，正是昨天失去的人拼命祈愿想要活下来的明天。 当自己的观念和现实产生冲突的时候，有的人选择改变自己，他们能很好的将自己融入社会的主流只用；有些人试图改变世界，但他们往往会因此弄得自己狼狈不堪，灰头土脸，社会的进步往往是因为后者的存在。 世界是你们的，也是我们的，但终究是我们的。 阅读全文
没有什么样的人生是失败的
2011-05-03 20:34 by 精诚所至 金石为开, 227 阅读, 收藏, 编辑
摘要：
现在的书店里有很多书，名字类似“25岁之前一定要做的事”、“30岁之前一定要去过的地方”、“40岁不可以不知道的人生哲学”，这些书无一例外的用毋庸置疑的口气向你灌输一种观念：如果你到XX岁，还不XXX，你的人生就是跟不上趟的，就是失败的。不知道这些作者有什么理由人为没有XXX的人生就是失败的。 这些东西就像那些标题“XXX，是中国人就转”，“每一个XXX的女孩（男孩），都是XXX的天使一样“，都... 阅读全文
吾爱吾国
2011-05-02 17:35 by 精诚所至 金石为开, 290 阅读, 收藏, 编辑
摘要：
一个建立起来主要用来限制自己的国民冲出去的国家，却能够让全国人民都以为全世界的侵略者都想冲进来；一个饿死了几千万人的国度，几亿民众都沉浸在解放全人类的歇斯底里之中。 末世政治最大的特征，是把人才一一逼成乱民。这并不是说处心积虑地要人反，而是“天下为私”的结果，有些酱不住的人不得不反。 吾爱吾国，爱之切故言之苛。 阅读全文
您见过5个指头的天使吗
2011-05-01 10:37 by 精诚所至 金石为开, 257 阅读, 收藏, 编辑
摘要：
给教堂画壁画的画家把小天使画成了6个指头。 “您什么时候见过6个指头的天使？”牧师气愤地说。 “没见过，”画家回答“但是您见过5个指头的天使吗？” 阅读全文
此情待可成追忆，只是当时已惘然
2011-05-01 10:07 by 精诚所至 金石为开, 196 阅读, 收藏, 编辑
摘要：
这世上有一个被说滥的故事，叫大话西游。 这世上有一句被说滥的情话，“曾经有一份真挚的爱情摆在我面前，.........” 十年前，一群青春浪漫的孩子，在街头小影院，被周星驰逗得前仰马翻。 十年后，一个人，两张碟，突然就看懂了，开头孙悟空为什么放弃西天取经：才华横溢的年轻人不愿意被条条框框所束缚。 这是一种有趣的对比，十年前的我们青春年少，逃课躲在小影院，疯狂迷恋周星驰，仿佛开头不愿取经的孙... 阅读全文
