摘要：
阅读全文
随笔档案-2011年03月
AutoLISPDCL对话框设计
2011-03-30 09:30 by 精诚所至 金石为开, 649 阅读, 收藏, 编辑
摘要：
AutoLISPDCL对话框设计，代码如下。 (defun c:viewdcl() (if (null dcl_pt) (setq dcl_pt '(-1 -1)) ) (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2)) (princ "DCL文件名：") (princ ... 阅读全文
AutoLISP虚拟线变化图
2011-03-29 22:31 by 精诚所至 金石为开, 471 阅读, 收藏, 编辑
摘要：
AutoLISP虚拟线变化图，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq k 1 n 1 hh 1) (get_screen_size) (while k (grread k) (while (>= hh 0.0005) (s... 阅读全文
AutoLISP切圆动画
2011-03-29 22:07 by 精诚所至 金石为开, 452 阅读, 收藏, 编辑
摘要：
AutoLISP切圆动画，在已知圆外绘制一外切圆，并逆时针运动，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取一圆心："))) (setq cen2 (getpoint "\n切点圆：")) (princ "\n按选键盘任意键可转动切圆,[EN... 阅读全文
AutoLISP将多段线各个端点坐标写入外部文件
2011-03-29 17:17 by 精诚所至 金石为开, 955 阅读, 收藏, 编辑
摘要：
AutoLISP将多段线各个端点坐标写入外部文件，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq ffn (getfiled "选取文件" "" "doc" 1)) (setq ff (open ffn "w")) (close ff) (princ "\n选取多段线：")... 阅读全文
AutoLISP将外部文件中的文字写入图形
2011-03-29 17:00 by 精诚所至 金石为开, 709 阅读, 收藏, 编辑
摘要：
AutoLISP将外部文件中的文字写入图形，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq ffn (getfiled "选择文件" "" "txt" 2)) (setq pt (getpoint "\n选取文字插入点：")) (setq hh (getdist pt "\n字高："))... 阅读全文
AutoLISP将图形中文字写入外部文件
2011-03-29 16:54 by 精诚所至 金石为开, 868 阅读, 收藏, 编辑
摘要：
AutoLISP将图形中文字写入外部文件，代码如下。 (defun c:test() (setq ffn (getfiled "写出文件" "" "txt" 1)) (princ "\n选取文字……") (setq ss (ssget)) (setq ff (open ffn "w")) (setq i 0) ... 阅读全文
AutoLISP自动计算封闭区域面积
2011-03-29 16:30 by 精诚所至 金石为开, 1223 阅读, 收藏, 编辑
摘要：
AutoLISP自动计算封闭区域面积，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq pt (getpoint "\n选取点：")) (while pt (setvar "cecolor" "1") (command "bpoly" pt "") ... 阅读全文
AutoLISP自动标注圆，弧，直线，多段线长度
2011-03-29 16:13 by 精诚所至 金石为开, 4058 阅读, 收藏, 编辑
摘要：
AutoLISP自动标注圆，弧，直线，多段线长度，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (entsel "\n选取圆、线、弧、多义线计算长度：")) (while en (setq en (car en)) (command "lengthen" e... 阅读全文
AutoLISP修改圆直径
2011-03-29 15:51 by 精诚所至 金石为开, 698 阅读, 收藏, 编辑
摘要：
AutoLISP修改圆直径，代码如下。 (defun c:test() (princ "\n选取要修改的圆：") (setq ss (ssget)) (setq old_rr (getvar "circlerad")) (setq str_rr (strcat "\n新直径:")) (setq rr (getdist st... 阅读全文
AutoLISP修改文字倾斜角度
2011-03-29 15:43 by 精诚所至 金石为开, 837 阅读, 收藏, 编辑
摘要：
AutoLISP修改文字倾斜角度，代码如下。 (defun c:test() (setq ang (getangle "\n输入倾斜角度:")) (if (null ang) (setq ang (/ pi 6))) (setq ss (ssget)) (setq i 0) (setq nn (sslength ss)) ... 阅读全文
AutoLISP修改文字高度
2011-03-29 15:32 by 精诚所至 金石为开, 882 阅读, 收藏, 编辑
摘要：
AutoLISP修改文字高度，代码如下。 (defun c:test() (setq old_hh (getvar "textsize")) (setq str_hh (strcat "\n输入新字高:")) (setq hh (getdist str_hh)) (if (null hh) (setq hh old_hh)) ... 阅读全文
AutoLISP文字加上下划线
2011-03-29 15:17 by 精诚所至 金石为开, 590 阅读, 收藏, 编辑
摘要：
AutoLISP文字加上下划线，代码如下。 (defun c:test() (initget "T B A") (setq typ (getkword "\n绘图形式[T顶线，B底线，A上下线]:")) (if (null typ) (setq typ "B")) (setq dd (getdist "\n字与线间距:")) ... 阅读全文
AutoLISP文字外加矩形框
2011-03-29 10:52 by 精诚所至 金石为开, 650 阅读, 收藏, 编辑
摘要：
AutoLISP文字外加矩形框，代码如下。 (defun c:test() (setq dd (getdist "\n输入文字与线间距：")) (if (null dd) (setq dd 2)) (setq ss (ssget)) (setq i 0) (repeat (sslength ss) (se... 阅读全文
AutoLISP文字外加圆形框
2011-03-29 10:25 by 精诚所至 金石为开, 1200 阅读, 收藏, 编辑
摘要：
AutoLISP文字外加圆形框，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq dd (getdist "\n输入文字与圆周距离：")) (if (null dd) (setq dd 2)) (setq ss (ssget)) (setq i 0) (repe... 阅读全文
AutoLISP指定图层更换内容
2011-03-28 23:57 by 精诚所至 金石为开, 1919 阅读, 收藏, 编辑
摘要：
AutoLISP指定图层更换内容，代码如下。 (defun c:test() (setq oldtxt (getstring t "\n输入旧字符串：")) (setq newtxt (getstring t "\n输入新字符串：")) (setq layn (strcase (getstring "\n输入图层："))) (setq ... 阅读全文
AutoLISP文字大小写转换
2011-03-28 23:42 by 精诚所至 金石为开, 800 阅读, 收藏, 编辑
摘要：
AutoLISP文字大小写转换，将首个字母转换成大写其余转换成小写，代码如下。 (defun c:test() (prompt "\n选取文字:") (setq ss (ssget)) (setq i 0) (repeat (sslength ss) (setq ssn (ssname ss i)) ... 阅读全文
AutoLISP纹理地板图案
2011-03-28 21:40 by 精诚所至 金石为开, 353 阅读, 收藏, 编辑
摘要：
AutoLISP纹理地板图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (command "undo" "be")... 阅读全文
The sound of slience
2011-03-28 20:50 by 精诚所至 金石为开, 272 阅读, 收藏, 编辑
摘要：
2011年3月28日星期一晚上8点49分402等会去吃饭。 阅读全文
AutoLISP手指图案
2011-03-28 20:26 by 精诚所至 金石为开, 331 阅读, 收藏, 编辑
摘要：
AutoLISP手指图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldlayer (getvar "clayer")) (setvar "osmode" 0) (setq cenpt (getpoint "圆... 阅读全文
AutoLISP绘制砖墙
2011-03-28 20:05 by 精诚所至 金石为开, 376 阅读, 收藏, 编辑
摘要：
AutoLISP自动绘制砖墙，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (command "undo" "be")... 阅读全文
AutoLISP板圆三视图
2011-03-28 19:39 by 精诚所至 金石为开, 396 阅读, 收藏, 编辑
摘要：
AutoLISP板圆三视图，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq baspt '(148 105)) (setq os (getvar "osmode")) (setvar "osmode" 0) (command "vslide" "LSP_30") ... 阅读全文
AutoLISP等分圆内相切弧
2011-03-28 19:07 by 精诚所至 金石为开, 360 阅读, 收藏, 编辑
摘要：
AutoLISP等分圆内相切弧，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq cen (getpoint "\n中心点：")) (setq srr (getvar "circl... 阅读全文
AutoLISP矩形与多个内切圆
2011-03-28 18:52 by 精诚所至 金石为开, 513 阅读, 收藏, 编辑
摘要：
AutoLISP矩形与多个内切圆，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq oldlay (getvar "clayer")) (setq oldosmode (getvar "osmode")) (setvar "osmode" 0) (setq w (getrea... 阅读全文
AutoLISP绘制矩形和五个圆在其内部相切
2011-03-28 17:52 by 精诚所至 金石为开, 549 阅读, 收藏, 编辑
摘要：
AutoLISP绘制矩形和五个圆在其内部相切，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq oldlay (getvar "clayer")) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq w (getreal... 阅读全文
AutoLISP绘制花型四
2011-03-28 17:32 by 精诚所至 金石为开, 316 阅读, 收藏, 编辑
摘要：
AutoLISP绘制花型四，像个荷花的形状，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq cen (getpoint "\n中心点：")) (setq srr (getvar ... 阅读全文
AutoLISP以直线为基线添加文字
2011-03-28 17:12 by 精诚所至 金石为开, 506 阅读, 收藏, 编辑
摘要：
AutoLISP以直线为基线添加文字，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq en (car (entsel "\n选取线："))) (setq pt10 (cdr (a... 阅读全文
AutoLISP添加正方形编号
2011-03-28 16:48 by 精诚所至 金石为开, 490 阅读, 收藏, 编辑
摘要：
AutoLISP添加正方形编号，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq dd (getdist "\n正方形边长：")) (if (null dd) (setq dd 1... 阅读全文
AutoLISP绘制时钟
2011-03-28 15:45 by 精诚所至 金石为开, 580 阅读, 收藏, 编辑
摘要：
AutoLISP绘制时钟，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq cen (getpoint "\n中心点：")) (setq rr (* (getdist cen "\... 阅读全文
AutoLISP 绘制表情图案
2011-03-28 12:51 by 精诚所至 金石为开, 475 阅读, 收藏, 编辑
摘要：
AutoLISP 绘制表情图案，喜怒哀乐表情，代码如下。 (defun c:test() (setvar "cmdecho" 0) (princ "\n选取圆或[ENTER]自定圆心半径：") (setq en (entsel)) (if (null en) (progn (setq srr (g... 阅读全文
AutoLISP圆内接多边形
2011-03-28 10:48 by 精诚所至 金石为开, 393 阅读, 收藏, 编辑
摘要：
AutoLISP圆内接多边形，嵌套多边形，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (entsel "\n选取圆，或[ENTER]结束：")) (while en (setq en (car en)) (setq endata (entget en)) ... 阅读全文
AutoLISP卡通图案
2011-03-28 10:29 by 精诚所至 金石为开, 347 阅读, 收藏, 编辑
摘要：
AutoLISP卡通图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取被切圆："))) (setq cen2 (getpoint "\n外侧切圆中心点：")) (setq endata (entget en)) (setq ce... 阅读全文
AutoLISP线段端点画圆和内接正方形
2011-03-28 10:17 by 精诚所至 金石为开, 641 阅读, 收藏, 编辑
摘要：
AutoLISP线段端点画圆和内接正方形，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取线："))) (setq endata (entget en)) (setq pt1 (cdr (assoc 10 endata))) (se... 阅读全文
AutoLISP直线为底做圆形堆栈
2011-03-28 10:01 by 精诚所至 金石为开, 340 阅读, 收藏, 编辑
摘要：
AutoLISP直线为底做圆形堆栈，选取一条直线，做圆形堆栈后删除直线。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取线："))) (setq endata (entget en)) (setq pt1 (cdr (assoc 10 endata))) ... 阅读全文
AutoLISP圆形堆栈金字塔
2011-03-28 09:53 by 精诚所至 金石为开, 373 阅读, 收藏, 编辑
摘要：
AutoLISP圆形堆栈金字塔，根据层数和圆半径绘制圆的堆栈，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n起点：")) (setq pt2 (getpoint pt1 "\n终点：")) (setq nn (getint "\n堆栈数：")) ... 阅读全文
AutoLISP绘制花型三
2011-03-28 09:33 by 精诚所至 金石为开, 337 阅读, 收藏, 编辑
摘要：
AutoLISP绘制花型三，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en1 (car (entsel "\n选取圆1："))) (setq en2 (car (entsel "\n选取圆2："))) (setq en1data (entget en1)) (setq... 阅读全文
AutoLISP等分直线绘制曲线
2011-03-28 09:24 by 精诚所至 金石为开, 514 阅读, 收藏, 编辑
摘要：
AutoLISP等分直线绘制曲线，将一条直线等分成n份，并以等分点绘制曲线，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取线："))) (setq nn (getint "\n重复次数：")) (if (null nn) (setq nn 5)... 阅读全文
AutoLISP等分线段并绘图
2011-03-28 09:04 by 精诚所至 金石为开, 564 阅读, 收藏, 编辑
摘要：
AutoLISP等分线段，并在每一段线上绘图，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取线："))) (setq nn (getint "\n重复次数：")) (if (null nn) (setq nn 5)) (setq ... 阅读全文
AutoLISP 绘制滚轮
2011-03-28 08:57 by 精诚所至 金石为开, 309 阅读, 收藏, 编辑
摘要：
AutoLISP 自动绘制滚轮，代码如下。 (defun c:test() (setq cen1 (getpoint "\n中心点：")) (setq rr1 (getdist cen1 "\n大圆半径：")) (command "circle" cen1 rr1) (setq en1 (entlast)) (comman... 阅读全文
AutoCAD LISP花型图案二
2011-03-28 00:00 by 精诚所至 金石为开, 352 阅读, 收藏, 编辑
摘要：
AutoCAD LISP花型图案二，代码如下。(defun c:test() (setq cen1 (getpoint "\n中心点：")) (setq rr2 (getdist cen1 "\n小圆半径：")) (command "circle" cen1 rr2) (setq rr (getdist cen1 "\n大圆半径：")) (setq nn (getint "\n等分数<10>：")) (if (null nn) (setq nn 10)) (setq ang (/ p 阅读全文
AutoCAD LISP花型图案一
2011-03-27 23:35 by 精诚所至 金石为开, 397 阅读, 收藏, 编辑
摘要：
AutoCAD LISP花型图案一，代码如下。(defun c:test() (setq cen1 (getpoint "\n中心点：")) (setq rr (getdist cen1 "\n半径：")) (setq nn (getint "\n等分数：")) (if (null nn) (setq nn 10)) (setq ang (/ pi nn 0.5)) (setq pt1 (polar cen1 0 rr)) (setq pt2 (polar cen1 ang rr)) (command "pl... 阅读全文
铁打的学校流水的学生
2011-03-27 23:30 by 精诚所至 金石为开, 282 阅读, 收藏, 编辑
摘要：
2011年3月27日星期日晚23点23分宿舍。 昨天一卡通宿舍门禁能用了，前天吃饭卡又差点丢了。 师兄们的谢师宴，又是一年毕业时，时间过得真快。 一点小郁闷。 继续学习LISP中，到底有没有前途啊？ 阅读全文
AutoCAD LISP 绘制贝壳曲线
2011-03-27 23:22 by 精诚所至 金石为开, 547 阅读, 收藏, 编辑
摘要：
AutoCAD LISP 绘制贝壳曲线，代码如下。(defun c:test() (setq pt1 (getpoint "\n基准点：")) (setq pt2 (getpoint "\n圆半径点：")) (setq cir_d (* 2 (distance pt1 pt2))) (setq ang (angle pt1 pt2)) (setq dd (getdist pt1 "\n圆间距：")) (setq nn (getint "\n重复次数<10>：")) (if (null nn) (setq 阅读全文
AutoCADLISP绘制楼梯
2011-03-27 22:52 by 精诚所至 金石为开, 454 阅读, 收藏, 编辑
摘要：
AutoCAD LISP绘制楼梯，控制方向和阶数高度等，代码如下。(defun c:test() (setvar "cmdecho" 0) (setq nn (getint "\n阶数<5>：")) (if (null nn) (setq nn 5)) (setq pt1 (getpoint "\n第一点：")) (setq pt2 (getpoint "\n第二点：")) (setq ww (distance pt1 pt2)) (setq str_hh (strcat "\n高度<& 阅读全文
AutoCAD矩形交叉口框短边切圆二
2011-03-27 16:11 by 精诚所至 金石为开, 304 阅读, 收藏, 编辑
摘要：
AutoCAD矩形交叉口框短边切圆二，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n第一角点：")) (setq pt3 (getcorner pt1 "\n另一角点：")) (setq pt2 (list (car pt3) (cadr pt1)))... 阅读全文
AutoCAD矩形交叉口框短边切圆一
2011-03-27 15:59 by 精诚所至 金石为开, 344 阅读, 收藏, 编辑
摘要：
AutoCAD矩形交叉口框短边切圆，绘制长方形，并以中心为圆形短边为半径画圆，并截取对角线，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n第一角点：")) (setq pt3 (getcorner pt1 "\n另一角点：")) (setq pt2 (... 阅读全文
AutoCAD LISP多边形边为直径绘制圆
2011-03-27 15:44 by 精诚所至 金石为开, 559 阅读, 收藏, 编辑
摘要：
AutoCAD LISP多边形边为直径绘制圆，代码如下。(defun :test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n起点：")) (command "pline" pt1) (setq pt2 (getpoint pt1 "\n第二点：")) (command pt2) (setq pt3 (getpoint pt2 "\n第三点：")) (command pt3) (setq pt4 (getpoint pt3 "\n第四点： 阅读全文
AutoCAD LISP绘制环形图案
2011-03-27 15:22 by 精诚所至 金石为开, 337 阅读, 收藏, 编辑
摘要：
AutoCAD LISP绘制由正三角形和圆形组成的环形图案，代码如下。(defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n第一点：")) (setq pt2 (getpoint pt1 "\n第二点：")) (setq ll (distance pt1 pt2)) (setq ang (angle pt1 pt2)) (setq pt3 (polar pt2 (+ ang (/ (* 120 pi) 180)) ll)) (command "polygo.. 阅读全文
AutoCAD LISP绘制左右对称心型图案
2011-03-27 14:58 by 精诚所至 金石为开, 490 阅读, 收藏, 编辑
摘要：
AutoCAD LISP根据输入对角点自动绘制左右对称心型图案，代码如下。(defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n第一角点：")) (setq pt3 (getcorner pt1 "\n另一角点：")) (setq pt2 (list (car pt3) (cadr pt1))) (setq pt4 (list (car pt1) (cadr pt3))) (command "pline" pt1 pt3 pt2 pt4 " 阅读全文
AutoCAD LISP绘制四圆孔
2011-03-27 14:43 by 精诚所至 金石为开, 519 阅读, 收藏, 编辑
摘要：
AutoCAD LISP根据输入角点和圆半径绘制四圆孔，代码如下。(defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n第一角点：")) (setq pt3 (getpoint "\另一角点：")) (setq pt2 (list (car pt3) (cadr pt1))) (setq pt4 (list (car pt1) (cadr pt3))) (setq rr (getdist pt1 "\n圆半径：")) (if (null rr) (s 阅读全文
AutoCAD LISP凹型图
2011-03-27 14:29 by 精诚所至 金石为开, 432 阅读, 收藏, 编辑
摘要：
AutoCAD LISP根据输入左下角点、宽度和高度绘制”凹“行型图，代码如下。(defun c:test() (setvar "cmdecho" 0) (setq pt1 (getpoint "\n选取图形左下角点：")) (setq ww (getdist pt1 "\n宽度：")) (if (null ww) (setq ww 100)) (setq hh (getdist pt1 "\n高度<50>:")) (if (null hh) (setq hh 50)) (setq ww3 (/ ww 阅读全文
AutoCAD LISP利用子程序绘制田字格
2011-03-27 13:35 by 精诚所至 金石为开, 766 阅读, 收藏, 编辑
摘要：
AutoCAD LISP利用子程序绘制田字格，代码如下。(defun c:pbox() (get_pbox_data) (draw_pbox) (prin1) ) (defun get_pbox_data() (setq pa (getpoint "请输入左下角点：")) (setq ww (getdist pa "\n宽度：")) (setq hh (getdist pa "\n高度：")) ) (defun draw_pbox() (setq pb (polar pa 0 ... 阅读全文
AutoCAD LISP循环判断语句绘制多个圆内接正多边形
2011-03-27 00:14 by 精诚所至 金石为开, 689 阅读, 收藏, 编辑
摘要：
AutoCAD LISP循环判断，根据输入的正多边形边数，语句绘制多个圆内接正多边形，代码如下。(defun c:test() (setq n (getint "请输入正多边形边数N：")) (setq en (entsel "\n选取欲作内接多边形的圆：")) (setq i 0) (while en (setq endata (entget (car en))) (setq entype (cdr (assoc 0 endata))) (if (= entype "CIRCLE") (progn ... 阅读全文
AutoCAD LISP循环判断自动绘制楼梯
2011-03-26 23:57 by 精诚所至 金石为开, 744 阅读, 收藏, 编辑
摘要：
AutoCAD LISP REPEAT循环判断根据左下角点、楼梯高度、高度和阶数自动绘制楼梯，代码如下。(defun c:test() (setq pa (getpoint "请输入左下角点：")) (setq ww (getdist pa "\n请输入楼梯宽度：")) (setq hh (getdist pa "\n请输入楼梯高度：")) (setq n (getint "\n请输入楼梯阶数：")) (setq pb (polar pa 0 ww)) (setq pc (polar pb (/ pi 2) hh) 阅读全文
AutoCAD LISP循环判断求A到B的整数和
2011-03-26 23:42 by 精诚所至 金石为开, 454 阅读, 收藏, 编辑
摘要：
AutoCAD LISP循环判断求A到B的整数和，比如求100以内的整数和，输入起始值为0，终止值为100即可，代码如下。(defun c:test() (setq nums (getint "请输入起始值：")) (setq nume (getint "\n请输入终止值：")) (setq snum 0) (setq nn (+ 1 (- nume nums))) (setq numadd nums) (repeat nn (setq snum (+ snum numadd)) (setq numadd (... 阅读全文
AutoCAD LISP 循环选择语句cond
2011-03-26 23:25 by 精诚所至 金石为开, 2801 阅读, 收藏, 编辑
摘要：
AutoCAD LISP 循环选择语句cond，相比if语句更加简洁，代码如下。(defun c:test() (initget "A0 A1 A2 A3 A4") (setq size (getkword "请输入图纸大小A0，A1，A2，A3，A4<A3>:")) (if (= size nil) (setq size "A3")) (setq size (strcase size)) (cond ((= size "A0") (setq p2 '(1189 841))) ((= size 阅读全文
AutoCAD LISP绘制标准图框
2011-03-26 22:25 by 精诚所至 金石为开, 1139 阅读, 收藏, 编辑
摘要：
AutoCAD LISP绘制标准图框，if选择语句，绘制A1，A2，A3，A4图框，代码如下。(defun c:test() (setq size (getstring "请输入图纸大小AO，A1，A2，A3,A4<A3>:")) (if (= size "") (setq size "A3") ) (setq size (strcase size)) (if (= size "A0") (setq p2 '(1189 841))) (if (= size "A1") (se 阅读全文
AutoCAD LISP自然数的和
2011-03-26 22:04 by 精诚所至 金石为开, 435 阅读, 收藏, 编辑
摘要：
AutoCAD LISP自然数的和，根据输入的数值，求自然数的和，代码如下。(defun c:test() (setq intputin (getint "请输入数值：")) (setq snum 1) (setq sum 0) (repeat intputin (setq sum (+ snum sum)) (setq snum (+ 1 snum)) ) (princ "1+2+3+……+") (princ intputin) (princ "=") (princ su... 阅读全文
AutoCAD LISP简单IF判断语句
2011-03-26 21:48 by 精诚所至 金石为开, 3444 阅读, 收藏, 编辑
摘要：
AutoCAD LISP简单判断语句，代码如下。(defun c:test() (setq cenpt (getpoint "输入圆心：")) (setq rad (getdist cenpt "\n输入圆半径：")) (if (> rad 0) (progn (command "circle" cenpt rad) (command "chprop" (entlast) "" "c" 3 "") (princ "\n画图任务完成" 阅读全文
AutoCAD LISP以圆心为中点，圆的缩放操作
2011-03-26 21:26 by 精诚所至 金石为开, 718 阅读, 收藏, 编辑
摘要：
AutoCAD LISP圆放大缩小操作，代码如下。(defun c:cira() (setvar "cmdecho" 0) (setq cir (entsel "Select CIRCLE to <Scale 0.5>:")) (setq cir_data (entget (car cir))) (setq old_rad_list (assoc 40 cir_data)) (setq old_rr (cdr old_rad_list)) (setq new_rr (* old_rr 0.5)) (setq new_ra... 阅读全文
AutoCAD LISP绘制圆内接五边形
2011-03-26 20:42 by 精诚所至 金石为开, 521 阅读, 收藏, 编辑
摘要：
AutoCAD LISP绘制圆内接五边形，代码如下。(defun c:test() (setvar "cmdecho" 0) (setq en (entsel "Select CIRCLE:")) (setq en_data (entget (car en))) (setq cenpt (cdr (assoc 10 en_data))) (setq rr (cdr (assoc 40 en_data))) (command "polygon" 5 cenpt "i" rr) (prin1) ) (p... 阅读全文
AutoCAD LISP在直线中点绘制圆
2011-03-26 20:22 by 精诚所至 金石为开, 696 阅读, 收藏, 编辑
摘要：
AutoCAD LISP在直线中点绘制圆，代码如下。(defun c:mcir() (setvar "cmdecho" 0) (setq en (entsel "Select a LINE:")) (setq en_data (entget (car en))) (setq pts (assoc 10 en_data)) (setq pt1 (cdr pts)) (setq px1 (car pt1)) (setq py1 (cadr pt1)) (setq pte (assoc 11 en_data)) ... 阅读全文
AutoCAD LISP修改已存在圆半径
2011-03-26 20:06 by 精诚所至 金石为开, 470 阅读, 收藏, 编辑
摘要：
AutoCAD LISP修改已存在圆半径，代码如下(defun c:chgrad() (setvar "cmdecho" 0) (setq en (entsel "选取已知圆：")) (setq en_data (entget (car en))) (setq old_rad_list (assoc 40 en_data)) (setq old_rr (cdr rad_list)) (princ "\n旧半径=") (princ old_rr) (setq cenpt (cdr (assoc 10 en_data))) ... 阅读全文
AutoCAD LISP利用一顶点和三边长绘制三角形
2011-03-26 19:37 by 精诚所至 金石为开, 612 阅读, 收藏, 编辑
摘要：
AutoCAD LISP利用一顶点和三边长绘制三角形，代码如下。(defun c:test() (setq pointa (getpoint "请输入左下角点：")) (setq A (getreal "\n请输入底边长：")) (setq B (getreal "\n请输入左下角点对边长：")) (setq C (getreal "\n请输入第三边长：")) (setq pointb (polar pointa 0 a)) (setq pointh (polar pointa 0 (/ a 2))) (setq 阅读全文
AutoCAD LISP绘制多个等半径圆相切
2011-03-26 19:03 by 精诚所至 金石为开, 528 阅读, 收藏, 编辑
摘要：
AutoCAD LISP绘制多个等半径圆相切，代码如下：(defun c:test() (setq baspt (getpoint "请输入基准点：")) (setq rad (getdist "\n请输入小圆半径：")) (setq num (getint "\n请输入相切的小圆数量：")) (setq ang1 (/ (* pi 2) (* num 2))) (setq kk (/ rad (sin ang1))) (setq ang2 (- (/ pi 2) ang1)) (setq cenpt (polar ba... 阅读全文
AutoCAD LISP利用直角顶点斜边和一条直角边绘制直角三角形
2011-03-26 18:49 by 精诚所至 金石为开, 569 阅读, 收藏, 编辑
摘要：
AutoCAD LISP利用直角顶点斜边和一条直角边绘制直角三角形，还可以显示变长和角度信息。(defun c:test() (setq pa (getpoint "直角定点：")) (setq ww (getreal "\n底边长：")) (setq kk (getreal "\n斜边长：")) (setq pb (polar pa 0 ww)) (setq hh (sqrt (- (* kk kk) (* ww ww)))) (setq pc (polar pa (/ pi 2) hh)) (command "lin.. 阅读全文
AutoCAD LISP矩形窗格绘制
2011-03-26 18:23 by 精诚所至 金石为开, 771 阅读, 收藏, 编辑
摘要：
AutoCAD LISP矩形窗格绘制，田字形图形，代码如下：(defun c:pbox() (setq pa (getpoint "请输入左下角点：")) (setq ww (getreal "\n请输入矩形宽度实数值w：")) (setq hh (getreal "\n请输入矩形高度实数值h：")) (setq pb (polar pa 0 ww)) (setq pc (polar pb (/ pi 2) hh)) (setq pd (polar pc pi ww)) (command "pline" pa pb 阅读全文
AutoCAD LISP ：Hellow World!
2011-03-26 14:35 by 精诚所至 金石为开, 447 阅读, 收藏, 编辑
摘要：
CAD命令行输入:vlide，打开LISP编辑器，新建一个文件，输入代码：(alert “hellow world!”)工具栏点击加载，返回CAD窗口，弹出提示框”hellow world!”计算一个数的平方：(defun c:test() (setq a (getint "请输入一个数字：")) (setq b (* a a )) (print b) (princ) ） 加载后，CAD命令行输入：test，按照提示进行操作，输入任意一个数字，比如7，按回车，命令行出现49。 阅读全文
校园真的是太小了
2011-03-25 21:16 by 精诚所至 金石为开, 237 阅读, 收藏, 编辑
摘要：
回忆是紫色的轮回，那看不见的国度有你的影子 在 徘徊，也许时间是最好的解药，哭泣也变得好模糊，我遗忘了那金色的十字路口，还是有你的身影残留，每当眼睛紧闭，总有一个梦境，我走在漆黑的街，陌生的道路，记不起 来时的路，唯有的是你的气息，还那么真切，忽然明白，活着不是为了得到什么，只是 不想忘掉曾经的美好，也许幸是色 的牢笼， 自由是孤独的等待，期盼的不是红色 的果实，只想能够回到过去。 模拟考试，排... 阅读全文
2011年3月24日星期四
2011-03-24 21:02 by 精诚所至 金石为开, 190 阅读, 收藏, 编辑
摘要：
2011年3月24日星期四晚上8点54分。 这几天一直在敲VBA的代码，没想到这么累，每天早上起不来。 给未来一点投资吧，今天在淘宝网上花了175元买了套LISP教程，昨天鼠标又坏掉了，又买了个鼠标，再加上昨天买的U盘，将近400块钱就这没了，有点小心疼。 115网盘明天五级，能多点空间存点东西了。 初中时候学校没有足球，我们就拿排球当足球来踢，但是，学校有规定说排球是不能踢的。我们只能一... 阅读全文
AutoCAD VBA基于对象的分层
2011-03-22 22:23 by 精诚所至 金石为开, 603 阅读, 收藏, 编辑
摘要：
AutoCAD VBA基于对象的分层，讲不同对象根据特性分层，代码如下。 Dim Value As Variant Value = ThisDrawing.GetVariable("cmdecho") ThisDrawing.SetVariable "cmdecho", 0 Dim ObjLayer As AcadLayer Set O... 阅读全文
AutoCAD VBA根据对象缩放
2011-03-22 21:54 by 精诚所至 金石为开, 430 阅读, 收藏, 编辑
摘要：
AutoCAD VBA根据对象缩放，代码如下。代码完。 阅读全文
AutoCAD VBA对象的组合和拆散
2011-03-22 21:11 by 精诚所至 金石为开, 981 阅读, 收藏, 编辑
摘要：
AutoCAD VBA对象的组合和拆散，很好用的操作，代码如下。 Sub AddUnNameGroup() Dim SelObjects As AcadSelectionSet Dim appendObjs() As AcadEntity Set SelObjects = GetSelSet Dim UnNameGroup As Aca... 阅读全文
AutoCAD VBA对齐对象
2011-03-22 20:33 by 精诚所至 金石为开, 654 阅读, 收藏, 编辑
摘要：
AutoCAD VBA对齐对象，代码如下。 Sub AlignEnt() Dim ss As AcadSelectionSet Set ss = CreateSelectionSet ss.SelectOnScreen Dim ent As AcadEntity Dim MinPoint As Variant ... 阅读全文
AutoCAD VBA多重延伸
2011-03-22 20:06 by 精诚所至 金石为开, 781 阅读, 收藏, 编辑
摘要：
AutoCAD VBA多重延伸，将多条直线延伸至同一条直线，代码如下。 Public Sub MultiExtend() Dim number As Integer Dim ObjSelectionSet As AcadSelectionSet number = ThisDrawing.SelectionSets.Count While... 阅读全文
CAD二次开发语言简介
2011-03-22 18:29 by 精诚所至 金石为开, 1792 阅读, 收藏, 编辑
摘要：
CAD二次开发，有很多不同层次的语言和库可供选择。首先是VisualLisp和AutoLisp。Lisp是一门历史悠久的函数式编程语言，很多概念和C这种过程式语言不一样，据说他在人工智能等方面有广泛的应用。CAD引入了这种语言，给他添加相应的函数库，就成了命令行使用的AutoLisp。在此基础上再增加关于对话框和窗口界面的库，就是VisualLisp，简称VL。VL在CAD中可以视为CAD命令的整合，是脚本语言，而且由CAD程序提供了编写环境。因此上手相当容易，便于编写，调试也很方便。不过由于是脚本语言，就有两大缺陷。第一是速度，当程序规模很大或是操作的对象数量过多时，你会明显感觉到迟钝。第二 阅读全文
AutoCAD VBA单行文字转换为多行文字
2011-03-22 16:41 by 精诚所至 金石为开, 1225 阅读, 收藏, 编辑
摘要：
AutoCAD VBA单行文字转换为多行文字，多行文字便于编辑，代码如下。 Public Sub TextToMtext() On Error Resume Next Dim ptInsert As Variant Dim txtStr As String Dim height As Double Dim width As... 阅读全文
AutoCAD VBA选择集操作
2011-03-21 22:41 by 精诚所至 金石为开, 4887 阅读, 收藏, 编辑
摘要：
AutoCAD VBA选择集操作，示例代码如下。 Public Sub Test() Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim pt3(0 To 2) As Double Dim pt4(0 To 2) As Double Dim pt5(0 To 2)... 阅读全文
AutoCAD VBA尺寸标注
2011-03-21 21:55 by 精诚所至 金石为开, 3828 阅读, 收藏, 编辑
摘要：
AutoCAD VBA尺寸标注，包括转角标注、对齐标注、角度标注、半径标注、直径标注和坐标标注，代码如下。 Public Function AddDimAligned(ByVal pt1 As Variant, ByVal pt2 As Variant, ByVal ptText As Variant) As AcadDimAligned Set AddDimAligned =... 阅读全文
360安全卫士更换新的图标
2011-03-21 20:04 by 精诚所至 金石为开, 756 阅读, 收藏, 编辑
摘要：
360最新版本启用了新的图标，将原来的盾牌图标换成了球形图标。网上很多人都在讨论，有人支持就有有人反对，一大部分老用户都觉得原来的盾形图标符合“安全卫士”的特点，新的图标不伦不类，放在桌面上都找不到在哪了，支持的用户说，也该换个新的图标了，老的都看腻了，况且很多安全产品都是盾形图标，没有自己的特色，看360官方给出的新的图标的含义： 新品牌标识呈顺时针旋转，与中心的“+”符号相得益彰，共同诠释了... 阅读全文
AutoCAD VBA面域操作
2011-03-21 15:51 by 精诚所至 金石为开, 1129 阅读, 收藏, 编辑
摘要：
AutoCAD VBA面域操作，和图案填充类似，代码如下。 Public Function AddRegion(ByRef objList() As AcadEntity) As Variant On Error GoTo errHandle AddRegion = ThisDrawing.ModelSpace.AddRegion(objList) ... 阅读全文
千万别挤
2011-03-21 15:07 by 精诚所至 金石为开, 187 阅读, 收藏, 编辑
摘要：
你，不要挤！世界那么大， 它容纳得了我，也容纳得了你。 所有的大门都敞开着， 思想的王国是自由的天地。 你可以尽情地追求， 追求那人间最好的一切。 只是你得保证， 保证你自己不使别人感受压抑。 ... 阅读全文
AutoCAD VBA实体填充
2011-03-21 15:00 by 精诚所至 金石为开, 1785 阅读, 收藏, 编辑
摘要：
AutoCAD VBA图案填充，包括图案填充、真彩色填充和渐变填充，代码如下。 Public Function AddHatch(ByRef objList() As AcadEntity, ByVal patType As Integer, ByVal parName As String, ByVal associativity As Boolean) As AcadHatch ... 阅读全文
AutoCAD VBA简单文字操作
2011-03-21 13:57 by 精诚所至 金石为开, 1115 阅读, 收藏, 编辑
摘要：
AutoCAD VBA简单文字操作，包括几个简单的文字操作函数，代码如下。 Public Function AddText(ByVal text As String, ByVal ptinsert As Variant, ByVal height As Double) As AcadText Set AddText = ThisDrawing.ModelSpace.AddTex... 阅读全文
2011年3月21日星期一
2011-03-21 10:04 by 精诚所至 金石为开, 196 阅读, 收藏, 编辑
摘要：
昨晚梦回初中，下了很大雨，操场积水很深，体育老师带我们游泳，不可思议。 阅读全文
小小的折腾一下
2011-03-20 23:55 by 精诚所至 金石为开, 190 阅读, 收藏, 编辑
摘要：
什么东西看的时间长了都会腻的，这就叫喜新厌旧，WP默认主题虽然强大但是单调，决定换成宽屏主题：Fluid Blue theme，这个主题是相当简洁，不过界面比默认主题漂亮多了，不小心搞了2个小时，改字体大小，换代码，重新整理插件。 累。 接着努力学习VBA。 阅读全文
AutoCAD VBA创建椭圆和样条曲线
2011-03-20 20:24 by 精诚所至 金石为开, 885 阅读, 收藏, 编辑
摘要：
AutoCAD VBA创建椭圆和样条曲线，代码如下。 Public Function AddEllipse(ByVal ptCen As Variant, ByVal ptmajAxis As Variant, ByVal radRatio As Double) As AcadEllipse Set AddEllipse = ThisDrawing.ModelSpace.Add... 阅读全文
AutoCAD VBA创建圆弧
2011-03-20 19:40 by 精诚所至 金石为开, 881 阅读, 收藏, 编辑
摘要：
AutoCAD VBA创建圆弧，已经圆心、起点和终点；圆心、起点和角度；三点法；圆心、起点和弧长等。代码如下。 ‘模块中代码 Public Function AddArcCSEA(ByVal ptCen As Variant, ByVal radius As Double, ByVal stAng As Double, ByVal enAng As Double) As AcadAr... 阅读全文
AutoCAD VBA创建圆
2011-03-20 16:52 by 精诚所至 金石为开, 480 阅读, 收藏, 编辑
摘要：
AutoCAD VBA创建圆，包括利用圆心半径、圆心直径、两点法和三点发四种方式，代码如下。 Public Function AddCircle(ByVal ptCen As Variant, ByVal radius As Variant) As Variant Dim objCir As AcadCircle Set objCir = ThisDrawing.Mode... 阅读全文
AutoCAD VBA基本多段线操作
2011-03-20 15:46 by 精诚所至 金石为开, 1311 阅读, 收藏, 编辑
摘要：
AutoCAD VBA基本多段线操作，包括创建直线，圆，圆弧等，代码如下。 Public Function AddLWPline(ByRef pt() As Double, ByVal width As Double) As AcadLWPolyline Dim objPline As AcadLWPolyline If (UBound(pt) + 1) Mod 2 0... 阅读全文
分享一套FLASH视频教程
2011-03-20 15:29 by 精诚所至 金石为开, 254 阅读, 收藏, 编辑
摘要：
很悲剧，这个刚才发过一遍了，用WLW发布那个分享FLASH殿堂之路和动画教程的时候，忘了新建日志，结果直接把这个覆盖了，只能再发一遍。 视频在线观看地址：http://www.youku.com/playlist_show/id_5360219.html。 视频打包下载地址：http://u.115.com/file/t4434db08c。 优酷视频可以用IKU软件下载，在视频播放地址下面点... 阅读全文
分享两本FLASH教程PDF版电子书
2011-03-20 15:06 by 精诚所至 金石为开, 400 阅读, 收藏, 编辑
摘要：
一本是Flash.ActionsCript3.0动画教程，一本是Flash.ActionScript3.0殿堂之路。 相当不错的电子书，殿堂之路相对简单，建议新手看，动画教程是外国牛人编写的，对新手来说可能有点吃力，不过这本书我还是强力推荐，如果能坚持看完的话，相信你的编程技术会上升一个台阶。 殿堂之路下载地址：http://u.115.com/file/f4782e787b。 动画教程下载... 阅读全文
瑞星杀毒永久免费
2011-03-20 12:18 by 精诚所至 金石为开, 197 阅读, 收藏, 编辑
摘要：
3月17日，超级月亮，可惜上海下雨。 3月18日，瑞星杀毒宣布个人用户永久免费。 详情地址：http://www.rising.com.cn/free/index.html。 有机会试试。 阅读全文
AutoCAD VBA第一个程序：Hello VBA!
2011-03-19 23:41 by 精诚所至 金石为开, 415 阅读, 收藏, 编辑
摘要：
AutoCAD VBA第一个程序：Hello VBA!，像Hello world一样经典，代码如下。 Public Sub HelloVBA()Dim pt(0 To 2) As Doublept(0) = 100pt(1) = 100pt(2) = 0Dim value As Integervalue = MsgBox("Hello VBA!", vbNewLine & "是否在图形中添加？"... 阅读全文
AutoCAD VBA欢迎窗口程序
2011-03-19 21:57 by 精诚所至 金石为开, 531 阅读, 收藏, 编辑
摘要：
AutoCAD VBA欢迎程序，代码如下。 Public Sub HelloVba() Dim strname As String strname = InputBox("请输入你的名字", "helloVBA", "My Friend") MsgBox strname & "让我们在图形窗口中欢迎你！" Dim text As AcadText ... 阅读全文
Auto CAD VBA画100个圆
2011-03-19 20:47 by 精诚所至 金石为开, 527 阅读, 收藏, 编辑
摘要：
Auto CAD VBA画100个圆，代码如下。 Sub CreateCircles() Dim cc(0 To 2) As Double cc(0) = 100 cc(1) = 100 cc(2) = 0 For I = 1 To 1000 Step 10 Call ThisDrawing.ModelSpace.AddCircle... 阅读全文
AutoCAD VBA 简单的绘制一条直线
2011-03-19 20:27 by 精诚所至 金石为开, 571 阅读, 收藏, 编辑
摘要：
AutoCAD VBA绘制一条直线，代码如下。 Public Function CreateLine() Dim StartPoint(0 To 2) As Double Dim EndPoint(0 To 2) As Double StartPoint(0) = 0 StartPoint(1) = 0 StartPoint(2) = 0 ... 阅读全文
AutoCAD VBA标注圆弧长度
2011-03-19 19:24 by 精诚所至 金石为开, 626 阅读, 收藏, 编辑
摘要：
AutoCAD VBA标注圆弧长度，代码如下。 Public Sub DimArcLeng() Dim Arc As AcadArc Dim Pnt As Variant Err.Clear On Error Resume Next ThisDrawing.Utility.GetEntity Arc, Pnt, "请选择圆弧：" I... 阅读全文
AutoCAD VBA提取多行文字内容
2011-03-19 17:01 by 精诚所至 金石为开, 3369 阅读, 收藏, 编辑
摘要：
AutoCAD VBA，提取多行文字内容，代码如下。 Public Function GetMTextUnformatString(MTextString As String) As String Dim s As String Dim RE As Object Set RE = ThisDrawing.Application.GetInterfaceObjec... 阅读全文
AutoCAD VBA文字自动对齐操作
2011-03-19 16:09 by 精诚所至 金石为开, 1579 阅读, 收藏, 编辑
摘要：
AutoCAD VBA文字自动对齐，代码如下。 Public Type TextWithPnt Index As Long TextObj As AcadText PntIntX As Double PntIntY As Double PntLeftX As Double PntMidX As Double PntRigX... 阅读全文
不要把网站推广做成负面推广
2011-03-19 14:01 by 精诚所至 金石为开, 244 阅读, 收藏, 编辑
摘要：
在互联网上，不存在“酒香不怕巷子深”的说法，大家都明白，一个网站再好，也需要主动去推广。但推广是不是就是万能的呢？是不是通过推广就能起到“点石成金”的效果呢？我想答案基本上是不可能的。推广只是网站运营的一部分，对于网站推广来说，平台是基础，内容是关键。这就好比开餐厅，菜做的不好吃、就餐环境差、卫生条件不达标，那再怎么宣传也终究是要关门大吉的。网站推广同样如此，如果网站基础没有打好，那所有的推广几乎... 阅读全文
AutoCAD VBA 按图层进行缩放
2011-03-19 11:15 by 精诚所至 金石为开, 665 阅读, 收藏, 编辑
摘要：
AutoCAD二次开发，按图层进行缩放操作，代码如下。 Private Function GetLeftBottomPt(ByRef ptArr() As Variant) As Variant Dim ptleftbottom(0 To 2) As Double Dim i As Long For i = 0 To UBound(ptArr) If ... 阅读全文
AutoCAD VBA计算多段线的长度
2011-03-18 18:13 by 精诚所至 金石为开, 2374 阅读, 收藏, 编辑
摘要：
计算多段线的长度，代码如下。 Sub PolyLineLength() Dim Pnt As Variant Dim Ent As AcadEntity On Error Resume Next Do ThisDrawing.Utility.GetEntity Ent, Pnt, "选择多段线：" If Err Then... 阅读全文
AutoCAD VBA天圆地方的放样展开图
2011-03-18 18:13 by 精诚所至 金石为开, 930 阅读, 收藏, 编辑
摘要：
天圆地方展开图，代码如下。 Public Sub Main() Const PI As Double = 3.1415926 On Error Resume Next Dim pt0 As Variant, ptBase(2) As Double pt0 = ThisDrawing.Utility.GetPoint(, vbCrLf & "请输... 阅读全文
AutoCAD VBA 直线、圆、圆弧转化为多段线
2011-03-18 18:12 by 精诚所至 金石为开, 3302 阅读, 收藏, 编辑
摘要：
转化多段线，代码如下。 Private Function AddLWPlineSeg(ByVal ptSt As Variant, ByVal ptEn As Variant, ByVal width As Double) As AcadLWPolyline Dim objPline As AcadLWPolyline Dim ptArr(0 To 3) As Dou... 阅读全文
AutoCAD VAB使用SendCommand命令
2011-03-18 18:12 by 精诚所至 金石为开, 5840 阅读, 收藏, 编辑
摘要：
关于SendCommand命令的用法，代码如下。 Public Function axPoint2lspPoint(ByVal Pnt As Variant) As String axPoint2lspPoint = Pnt(0) & "," & Pnt(1) & "," & Pnt(2) End Function Public Function axEn... 阅读全文
AutoCAD VBA多段线操作
2011-03-18 18:11 by 精诚所至 金石为开, 3287 阅读, 收藏, 编辑
摘要：
多段线操作，代码如下。 Private Function GetVertexCount(ByVal objPline As AcadEntity) As Long If TypeOf objPline Is AcadLWPolyline Then GetVertexCount = (UBound(objPline.Coordinates) + 1) / 2 ... 阅读全文
抢盐抢座抢上车
2011-03-17 13:26 by 精诚所至 金石为开, 268 阅读, 收藏, 编辑
摘要：
昨天夜里听说南方沿海地区开始了抢购食盐的行动，据说原因是担心日本核泄漏导致海盐将无法食用。更有网友在网上贴出了宁波抢盐图片。一个立于货架之上，将纸箱扒开。有数人挤下货架之下，将手伸向货架，如同嗷嗷待哺一般，又如僵尸们发现了猎物一样，恐怖之形让人寒心。 今天早晨坐地铁，由于人多没有位置，只好立于过道。到一站时，前面坐着的先生起身下车。我后面之人突然将我挤开，坐了下去，头也不抬，眼睛闭上开始听起了音... 阅读全文
AutoCAD VBA:过三点创建一个圆
2011-03-16 22:02 by 精诚所至 金石为开, 527 阅读, 收藏, 编辑
摘要：
基本思路，两点连线，两个线段中垂线交点就是圆心，圆心到任一点距离为半径，做圆。 代码如下： Function BisectorPLine(Point1 As Variant, point2 As Variant) As AcadPolyline Dim Dist As Double Dim Circle1 As AcadCircle Dim Circle2... 阅读全文
I love the world!
2011-03-16 12:42 by 精诚所至 金石为开, 161 阅读, 收藏, 编辑
摘要：
各种牛人齐聚 2011年3月16日星期3中午12点41分402室 阅读全文
2011年3月15日星期二
2011-03-15 23:20 by 精诚所至 金石为开, 213 阅读, 收藏, 编辑
摘要：
2011年3月15日星期二晚23点18分宿舍，这两天搞清华紫光MP4，熬了两个晚上了，也没找到合适的视频转换软件，狗日的清华紫光。 太累了，今天早点睡。 阅读全文
Excel达人装B的13条秘笈
2011-03-15 13:15 by 精诚所至 金石为开, 331 阅读, 收藏, 编辑
摘要：
秋叶同学整了个职场PPT装B奇文，在装B界获得热烈反响，同时嘱咐我写个Excel版的装B指南，以飨同好。 可用Excel的表哥表妹们还需要装B吗？只要你打开Excel，就会看到数万行、百万行的B！----呃，我说的是B列。 Excel这东西，可谓博大精深，你越了解她，就越觉得自己不了解她--怎么像是在说女人呢？的确很多男同胞想做表哥，为啥？ Excel 的都是表妹啊！ 友情提示：表哥有风险... 阅读全文
FUCK，垃圾的清华紫光
2011-03-14 19:28 by 精诚所至 金石为开, 232 阅读, 收藏, 编辑
摘要：
官网还能再简单点么， 敢把视频转换放到网上下载么， 敢把各个型号的视频参数放网上么， 敢回答下网上的提问么， 售后电话那敢有个人接电话么！！！ SHIT! 阅读全文
2011年3月12日星期六
2011-03-12 20:01 by 精诚所至 金石为开, 198 阅读, 收藏, 编辑
摘要：
现在是2011年3月12日星期六晚8点整，下午去车站送同学，北出口麦当劳，没聊几句。 阅读全文
莱丝莉死了
2011-03-12 12:58 by 精诚所至 金石为开, 167 阅读, 收藏, 编辑
摘要：
Close your eyes， and keep your mind wide open。这是影片的中心句―――完全敞开心扉，你会看到一个完全不一样的世界。 那一切其实是这么美好，阳光、森林、树屋、男孩的画笔、女孩的微笑以及他们共同的幻想。那些东西永远在你的心里，不会烟消云散。如果真正融入这部电影，在最后那个简陋的木桥变得金碧辉煌的时刻，可能很多人感到的是释怀是快乐，那种大悲痛之后如释重负的快... 阅读全文
不灭的心
2011-03-11 22:25 by 精诚所至 金石为开, 188 阅读, 收藏, 编辑
摘要：
走到这里，回不去了。 相信自己属于自己的幸福就在前方。 沉香有时候真的感觉很累，自己累了20年，活着是为了什么呢，不知道什么时候才能把自己的母亲给救出来，自己的舅舅打不过，连哮天犬自己都打不过，有什么资本救出自己的母亲呢。自己一直坚信的梦想在哪里，自己母亲为什么不自己出来，因为她没有能力保护自己的丈夫和孩子的安全，她不好好的呆在华山，刘彦昌和沉香就会有生命危险，她为了自己爱的人选择了放弃自... 阅读全文
斗战胜佛还是齐天大圣
2011-03-11 21:53 by 精诚所至 金石为开, 370 阅读, 收藏, 编辑
摘要：
虽然小玉的计划看似很完美，但是这样做其实是很危险的，她毕竟只是一只狐妖而已，就算她很漂亮，孙悟空虽已成佛，但是恐怕这只是个空名而已，他只是个披着斗战胜佛的齐天大圣而已。看这斗战胜佛本来就是很黄很暴力的名字，他能成佛只是因为他功夫了得，没人能耐他何，五百年前大闹天宫的事迹在人神鬼三界影响很大，交给他的护送唐三藏西行取经的任务也完成的不错。天庭只是为了让他少惹点麻烦，给个斗战胜佛的封号，和当初弼马温的... 阅读全文
宝莲灯就应该是沉香的
2011-03-11 21:05 by 精诚所至 金石为开, 674 阅读, 收藏, 编辑
摘要：
自从三圣母别压在华山下后，她的丈夫刘彦昌也曾经做过一些努力尝试将她就出来，但是以他一个普通凡人的能力岂能与强大的天庭抗衡，所以他的每次努力都毫无意义，于事无补。作为一个读书人他本身就有着遗传性的迂腐与懦弱。不像他的儿子沉香一样具有彻底的叛逆和反抗精神。 沉香的身世是如此特殊，作为一个人和神的后代，注定了他以后不平凡的经历。一个从小失去母亲的孩子，对母爱的渴望已经成为他人生的最高目标，当他知道他的... 阅读全文
做点什么
2011-03-10 22:58 by 精诚所至 金石为开, 230 阅读, 收藏, 编辑
摘要：
《走向远方》 汪国真 是男儿总要走向远方，走向远方是为了让生命更辉煌。走在崎岖不平的路上，年轻的眼眸里装着梦更装着思想。不论是孤独地走着还是结伴同行，让每一个脚印都坚实而有力量。 我们学着承受痛苦。学着把眼泪像珍珠一样收藏，把眼泪都贮存在成功的那一天流，那一天，哪怕流它个大海汪洋。 我们学着对待误解。学着把生活的苦酒当成饮料一样慢慢品尝，不论生命经过多少委屈和艰辛，我们总是以一个朝气蓬勃的... 阅读全文
我的好运
2011-03-09 21:38 by 精诚所至 金石为开, 265 阅读, 收藏, 编辑
摘要：
题记：“我希望既有一个健美的躯体又有一个了悟了人生意义的灵魂，我希望二者兼得。但是，前者可以祈望上帝的恩赐，后者却必须在千难万苦中靠自己去获取。” --- 史铁生 我和大多数人一样，对整数有着偏好。从年龄上说，这种偏好让我觉得二十岁生日这一天有一种纪念意义。其实这一天并没有什么不同（当然，如果能让我一下子长高几厘米我倒是不介意）。但我决定还是写点什么纪念一下。大概在初二的时候，父亲跟我说史铁生... 阅读全文
AutoCAD二次开发VBA编程HellowWorld!
2011-03-08 20:27 by 精诚所至 金石为开, 317 阅读, 收藏, 编辑
摘要：
经典程序HellowWorld! 代码在这里 Public Sub ins_text() Dim textObj As AcadText Dim textString As String Dim InsPnt(0 To 2) As Double Dim Height As Double textString = "Hellow Worl... 阅读全文
用nt6 hdd installer从硬盘安装WIN7和WIN7磁盘分区大小调整
2011-03-07 22:40 by 精诚所至 金石为开, 940 阅读, 收藏, 编辑
摘要：
今天下午，一个同学的系统坏掉了，让我给她装个WIN7系统，她的东芝电脑预装的是vista home版的系统，估计买过来就没清理过，运行的那叫一个慢啊，一个C盘160G，里面乱七八糟全是电影歌曲，迅雷看看的缓存，酷狗的音乐，光电影30多G，垃圾文件都快把系统文件淹没了，估计女生的电脑全是这样吧。先给出一个帖子地址，点击看这个。google一大堆这个教程，这里就不细说了。看过网上很多帖子，竟然有那么多... 阅读全文
做个幸福的人
2011-03-06 21:35 by 精诚所至 金石为开, 158 阅读, 收藏, 编辑
摘要：
从明天起做个幸福的人---海子从明天起, 做一个幸福的人喂马, 劈柴, 周游世界从明天起, 关心粮食和蔬菜我有一所房子, 面朝大海, 春暖花开从明天起, 和每一个亲人通信告诉他们我的幸福那幸福的闪电告诉我的我将告诉每一个人给每一条河每一座山取一个温暖的名字陌生人, 我也为你祝福愿你有一个灿烂的前程愿你有情人终成眷属愿你在尘世获得幸福我也愿面朝大海, 春暖花开 。有朝一日---戈麦有朝一日，我会赢得... 阅读全文
FLEX中的Effect效果触发器
2011-03-06 20:13 by 精诚所至 金石为开, 216 阅读, 收藏, 编辑
摘要：
关于效果触发器可以通过设置样式style属性设置触发器效果。setStyle属性也可设置。不再重复。paralell也可以作为效果触发器哦代码完。 阅读全文
怎么能忘了呢
2011-03-06 19:53 by 精诚所至 金石为开, 196 阅读, 收藏, 编辑
摘要：
谁能知道我们的未来到底会是个什么样子。中考我考了两次，第一次离重点高中差了好像20分，初三时候学校发不下工资，老师们都罢课了。只剩一个老校长每天都在广播里动员老师们给去给学生上课。那时候私立中学兴起，我们当地以前直接办起4所初中，一中的好多老师都被这些私立学校挖走了，几个学校为了争取好的生源，想尽了办法，虽然我没考上重点高中，但我的成绩还是不错的，其中一个学校直接找到学生家里，并且承诺第一年去上学... 阅读全文
有什么比让自己高兴更重要
2011-03-06 00:19 by 精诚所至 金石为开, 198 阅读, 收藏, 编辑
摘要：
曾经你的好，让我不知地厚天高以为爱是一种被需要，一种温柔的拥抱曾经你的笑，让我幸福窒息死掉以为这就是天荒地老，这就是爱的城堡只要你幸福就好，我的心你不必知道我会选择悄悄，选择悄悄的逃只要你幸福就好，我的爱你不必知道我会选择悄悄，选择悄悄的烧写在纸笺的誓言，随我漂泊天涯海角见证那时我们都是彼此的最想要而你要的我却统统都给不了一次一次让伤悲溢出你的眼角只要你幸福就好，我的心你不必知道我会选择悄悄，选择... 阅读全文
有你跪着，中国人民从此能站起来吗？
2011-03-05 14:17 by 精诚所至 金石为开, 292 阅读, 收藏, 编辑
摘要：
我被邀请注册了一个传播伪科学佯装药店坐堂大夫的网站知乎（zhihu.com）。不过我不建议你们这些有文化没涵养的人进去，那里是一些技术宅男的天堂，天天讨论一些技术话题，我看不懂，姑娘们肯定也看不懂，想泡妞的人，想被泡的人，那里不是最好的选择。当然，我希望把那里搅合成一个三俗网站，到时候你们再去也来得及。一般，什么气质的人做什么网站，我也不知道这个网站创办人是做什么的，但是气质我知道。 有人在上面... 阅读全文
没有什么能比让自己高兴更重要
2011-03-04 21:29 by 精诚所至 金石为开, 224 阅读, 收藏, 编辑
摘要：
前几天一个好久没联系过的同学在校内网给我留言，说是要请教我一点问题，看到留言我颇有些意外，因为我们根本就是没什么练习，只是偶尔在QQ上回复下留言，不知道她突然在校内网上跟我留言，况且她是有我QQ的。 我回复了留言，加了她校内好友，留下了自己的联系方式。今天下午，我用QQ给她发了条信息，问她在不在，但是没有回复，我想她下次登陆时候会看到的吧。 大概过了两三个小时，五点多的时候，她的QQ信息弹了出... 阅读全文
360安全桌面
2011-03-04 20:41 by 精诚所至 金石为开, 238 阅读, 收藏, 编辑
摘要：
今天看到360退出了一款安全桌面软件，我冒着当小白鼠的风险忍不住下载来试用一下先。360安全桌面必须先安装360安全卫士，我电脑已经安装了安全卫士，下载下来安装包，安装过程挺快。先看看安全桌面的运行截图。桌面窗口和QQ类似，并且可以定义停靠在左面上下左右四边，像QQ一在桌面边缘能自动隐藏， 里面集合了网址导航和自动归档和快速启动功能。网址导航功能将常用的网站入口集中在一起，根本就是浏览器导航的翻版... 阅读全文
FLASH鼠标跟随特效
2011-03-03 23:27 by 精诚所至 金石为开, 210 阅读, 收藏, 编辑
摘要：
这是一个鼠标跟随特效，做的比较粗糙，这里只是分享一下代码而已。演示地址在这：http://www.swfcabin.com/open/1299163321。代码如下：var mc1:MovieClip=new MovieClip();var mc2:MovieClip=new MovieClip();var mc3:MovieClip=new MovieClip();var mc4:MovieCl... 阅读全文
百度收了首页了标记一下
2011-03-03 21:00 by 精诚所至 金石为开, 214 阅读, 收藏, 编辑
摘要：
前天晚上因为升级wordpress3.1版本，直接崩溃，导致文章分类页面和标签全部变成404了，试了很多方法，都没能弄好，只得从新安装了wordpress3.05版本，折腾的累死。可怜搞了好几天的inove主题啊。但是，晚上SITE了一下，竟然有自己的首页了，看下百度快照3月3日，这都10几天了，终于看到点希望了，不容易，标记一下。再接再厉。赶紧装上那个插件：Baidu Sitemap Gener... 阅读全文
FLASH做的画图板
2011-03-03 20:10 by 精诚所至 金石为开, 260 阅读, 收藏, 编辑
摘要：
分享一个FLASH写的画图板，可以改变画笔颜色和大小，擦除或全部清除。功能比较少，貌似还有点BUG。演示地址：http://www.swfcabin.com/open/1299151037 。点击这里下载。测试了一下，这个演示地址里的FLASH不知道为什么这么小，实际上是500*500的。看不清的可以下载来试试。 阅读全文
再秀一个FLASH相册
2011-03-03 00:13 by 精诚所至 金石为开, 151 阅读, 收藏, 编辑
摘要：
这个应该是去年的某一天，在图书馆做的，其实就一点代码，弄了一个上午。文件有点大，缓冲可能要点时间，请耐心等待。请点击这里查看演示：http://www.swfcabin.com/open/1299142451。下载请点击这里 。下面是代码。var myArr:Array=new Array(mc0,mc1,mc2,mc3,mc4,mc5,mc6,mc7,mc8,mc9,mc10,mc11,mc12... 阅读全文
wordpress中插入FLASH
2011-03-02 20:31 by 精诚所至 金石为开, 839 阅读, 收藏, 编辑
摘要：
wordpress文章中插入FLASH的方法，不用插件：先切换到html编辑模式，复制下面的代码，插入到需要显示FLASH的地方，然后将你的FLASH链接地址替换掉“flash地址”。切换回可见模式。即可看见插入的FLASH。 这里推荐一个允许FLASH外链的空间：盛大麦库，注册即可2G空间， 后期还可升级，注册时请使推荐码“1487336853”。这个是我的推荐码，你用推荐码注册，可直接获得1G... 阅读全文
历史上的今天：3月2日
2011-03-02 19:18 by 精诚所至 金石为开, 684 阅读, 收藏, 编辑
摘要：
636年，《梁书》、《陈书》、《北齐书》、《北周书》、《隋书》修撰完成。 1938年，美国28岁得短跑选手格兰·坎宁安创造了室内1英里的世界纪录。 1861年，俄国沙皇亚历山大二世宣布废除农奴制度。 ——格兰·坎宁安—— 少年时学校用来取暖的煤油炉引起大火，双腿被严重烧伤，他们把他送往四周的一个乡村病院。 医生断定其必死无疑，但他没有死。 医生说就算他活了下来，双腿被严重烧伤，这一辈... 阅读全文
wordpress升级3.1后崩溃
2011-03-02 01:03 by 精诚所至 金石为开, 287 阅读, 收藏, 编辑
摘要：
现在是2011年3月2日，凌晨0点47分。我决定以后再也不改主题了，再也不这么快升级版本了。不能再当小白鼠。我怀着悲痛的心情写下这些文字，我的wordpress升级到3.1后又崩溃了。今天突然发现文章分类目录转向404页面了，再试一下标签——也转向404页面了，我记得我升级3.1后从来没有动过分类和标签啊。当时我就崩溃了快，辛辛苦苦搞了十几天的inove主题，刚刚像个样子，无论我怎么弄都改不了这个... 阅读全文
用Windows Live Writer远程更新wordpress博客
2011-03-01 14:59 by 精诚所至 金石为开, 257 阅读, 收藏, 编辑
摘要：
很多人都在用wordpress程序做独立博客，其后台自带的文本编辑器并不是很方便，速度慢。看到网上有人用Windows Live Writer写wordpress博客，昨天下载安装试用了下，果然很方便。（因为年前安装了WIN7的一个Movie Maker用来编辑一些视频，昨天用微软安装包安装writer和MSN的时候老是提示安装无法完成，经过一番摸索，原来必须先卸载了以前安装的东西，才能再次安装，... 阅读全文
历史上的今天：3月1日
2011-03-01 12:27 by 精诚所至 金石为开, 228 阅读, 收藏, 编辑
摘要：
1846年，新诺西亚修道院建成。 1872年，美国宣布黄石公园成为世界第一个国家公园。 1873年，世界上第一台实用型打字机开始生产。 1901年，澳大利亚军队成立，从此成为独立国家。 1983年，“斯沃琪“手表正是生产。 2011年，我从图书馆借了两本书：《柏杨曰上部》和《历史上的今天》 阅读全文
二月只有28天
2011-03-01 10:51 by 精诚所至 金石为开, 198 阅读, 收藏, 编辑
摘要：
昨天晚上又折腾了好几个小时，决定修改了下inove主题主页的背景，将原来的背景图片给去掉了，换成了纯色，header图片也去掉了，也换成纯色，原来那个颜色太压抑了，看着很不舒服，换成亮一点的颜色。顶部和下部的padding从20px改成0px，我的修改方式就是直接删掉调用图片的代码。简单方便。 但是改过的效果并不是太满意，因为header部分的高度只有90，有点窄了，想改但是还没知道到那部分代码... 阅读全文
