摘要：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 精诚所至 金石为开, 361 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 332 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 509 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 554 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 307 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 347 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 390 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 281 阅读, 0 推荐, 收藏, 编辑
摘要：2011年3月27日星期日晚23点23分宿舍。 昨天一卡通宿舍门禁能用了，前天吃饭卡又差点丢了。 师兄们的谢师宴，又是一年毕业时，时间过得真快。 一点小郁闷。 继续学习LISP中，到底有没有前途啊？ 阅读全文
AutoCAD LISP 绘制贝壳曲线
2011-03-27 23:22 by 精诚所至 金石为开, 537 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 442 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 302 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 339 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 541 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 331 阅读, 0 推荐, 收藏, 编辑
摘要：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.. 阅读全文