代码改变世界

随笔档案-2011年3月28日

AutoLISP指定图层更换内容

2011-03-28 23:57 by 精诚所至 金石为开, 1949 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 851 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 371 阅读, 收藏,
摘要： AutoLISP纹理地板图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (command "undo" "be")... 阅读全文

Eminem---Not Afraid

2011-03-28 21:08 by 精诚所至 金石为开, 251 阅读, 收藏,
摘要： 终于找到了。 阅读全文

The sound of slience

2011-03-28 20:50 by 精诚所至 金石为开, 280 阅读, 收藏,
摘要： 2011年3月28日星期一晚上8点49分402等会去吃饭。 阅读全文

AutoLISP手指图案

2011-03-28 20:26 by 精诚所至 金石为开, 346 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 397 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 407 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 389 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 539 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 595 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 324 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 556 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 509 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 601 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 493 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 416 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 359 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 671 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 362 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 387 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 350 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 547 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 615 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 345 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 368 阅读, 收藏,
摘要： 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 阅读全文