代码改变世界

随笔档案-2011年3月27日

AutoCAD LISP花型图案一

2011-03-27 23:35 by 精诚所至 金石为开, 404 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 290 阅读, 收藏,
摘要： 2011年3月27日星期日晚23点23分宿舍。 昨天一卡通宿舍门禁能用了，前天吃饭卡又差点丢了。 师兄们的谢师宴，又是一年毕业时，时间过得真快。 一点小郁闷。 继续学习LISP中，到底有没有前途啊？ 阅读全文

AutoCAD LISP 绘制贝壳曲线

2011-03-27 23:22 by 精诚所至 金石为开, 559 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 468 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 312 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 354 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 583 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 352 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 500 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 534 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 451 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 774 阅读, 收藏,
摘要： 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 精诚所至 金石为开, 704 阅读, 收藏,
摘要： 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 ... 阅读全文