摘要：2011年3月28日星期一晚上8点49分402等会去吃饭。 阅读全文
AutoLISP手指图案
2011-03-28 20:26 by 精诚所至 金石为开, 326 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 366 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 390 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 357 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 505 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 533 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 312 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 496 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 482 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 573 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 467 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 383 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 344 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 630 阅读, 0 推荐, 收藏, 编辑
摘要：AutoLISP线段端点画圆和内接正方形，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取线："))) (setq endata (entget en)) (setq pt1 (cdr (assoc 10 endata))) (se... 阅读全文