摘要：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 精诚所至 金石为开, 696 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 851 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 1197 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 3980 阅读, 1 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 682 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 822 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 858 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 581 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 634 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 1185 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 1903 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 785 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 348 阅读, 0 推荐, 收藏, 编辑
摘要：AutoLISP纹理地板图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (command "undo" "be")... 阅读全文