摘要：我从进入大学到博士毕业整整十年。在这十年中，我过得浑浑愕额。十年前，我身高170cm，十年后，我身高还是170cm；十年前，我体重60kg，十年后，我体重还是60kg；十年前，我一无所有，十年后，我还是一无所有。十年前，我眼睛明亮、有神，十年后，摘掉眼镜，我已看不清自己有多少个手指了；十年前，我声音洪亮、清澈，十年后，已经是慢性咽喉炎，声音嘶哑；十年前，我踌躇满志、指点江山、激扬文字，十年后，我心... 阅读全文
AutoVBA两有用的函数Time和Date
2011-05-30 20:44 by 精诚所至 金石为开, 363 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 319 阅读, 0 推荐, 收藏,
摘要：一种绘制箭头的方法是LINE命令绘制一个箭头的轮廓然后利用填充命令，填充图案，另一种绘制箭头的方法是利用多段线命令，分别设置多段线的起点和重点的宽度，使之成为箭头的形状，这个方法更加简单。 刚刚安装了个cheng风管绘制CAD插件程序，准备联系原作者，如果作者能共享源码更好，正好学习学习。 阅读全文
AutoLISP实现同时绘制多条直线
2011-05-26 22:53 by 精诚所至 金石为开, 779 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 612 阅读, 0 推荐, 收藏,
摘要：AutoLISP里getpoint命令如果指定第二个参数的话，自动实现橡皮筋效果，但是同时绘制三条直线的时候无法实现橡皮筋效果，虽然grread函数能够实现鼠标移动时候的预览，但是grread函数执行的时候是不能执行对象捕捉的，因此无法指定绘图的第二点。 (defun c:tt () (setq r (getreal "\n请输入管道宽度：")) (if... 阅读全文
AutoLISP连续计算长度
2011-05-24 20:55 by 精诚所至 金石为开, 488 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 606 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 1263 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 2123 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 1388 阅读, 0 推荐, 收藏,
摘要：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 精诚所至 金石为开, 655 阅读, 0 推荐, 收藏,
摘要：选取图元，冻结图元所在图层，并将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 精诚所至 金石为开, 963 阅读, 0 推荐, 收藏,
摘要：运用grread函数跟踪鼠标坐标，绘制鼠标轨迹，代码如下。 (defun c:test () (setq p (getpoint)) (setq n 0) (while (progn (setq input (grread t)) (cond ((= (car inpu... 阅读全文
浙公网安备 33010602011771号