CAD自动编号操作00.doc

CAD自动编号插件（含下载地址） 修改浏览权限| 删除 使用方法： 1.复制下面的文字到记事本，保存为 编号速写.lsp 2.打开CAD，输入AP ，选择该文件，按加载，关闭窗口。 3.输入SB ，启动插件。鼠标左键使用. 不会的可以去我的网盘下载，过期通知我。 下载地址： /file/f3b295eb78#编号速写.lsp =============================复制以下文字保存为==编号速写.lsp============================== ;参数初始化(defun chushihua() ;(setvar cmdecho 0) (setq bhlx 0) (write-line 编号类型:0) (setq bh0 0) (write-line 编号初值:1) (setq bh1 64) (setq bh2 0) (setq bh3 64) (setq yx Y) (write-line 引线:Y) (setq bklx Y) (write-line 边框:Y) (setq r 2.5) (setq zidong_r t) (write-line 边框圆半径:自动) (setq th 3.5) (write-line 文字高度:3.5) (setq ta 0) (write-line 文字旋转角度:0) (setq jl 1) (write-line 编号到引线距离:1) (setq jiantou 2.5) (write-line 箭头大小:2.5) (setq chang 5) (setq zidong_chang t) (write-line 水平段引线长度:自动) (setq qianzhui2 ) (write-line 自然数前缀:无) (setq houzhui2 ) (write-line 自然数后缀:无) (setq qianzhui3 ) (write-line 字母前缀:无) (setq houzhui3 ) (write-line 字母后缀:无) (setq pianyi 7) (write-line 边框自动处理时,文字到边框的偏移系数:7)   ) (chushihua) ;主函数********************************************************************* (defun c:sb(/ o ob) (defun er(str) (setvar osmode dx)  (princ \nSB已取消)  ) (setq erod *error* *error* er)  (if (= yx N) (progn (initget C Y K W H T) (setq ob (getpoint \n指定编号位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/还原为默认设置(H)/退出(T)]:编号之前请先将当前文字样式的文字高度项设为0)) (if (or (= ob C) (= ob Y) (= ob T) (= ob K) (= ob W) (= ob H) (= ob nil)) (progn (if (= ob C) (chuzhi))  (if (= ob Y) (yinxian)) (if (= ob K) (bkshezhi)) (if (= ob W) (wenzi)) (if (= ob H) (chushihua)) (if (= ob nil) (gaodu0))  (if (= ob T) (exit)) ) (progn (huitu o ob) ) ) ) (progn (initget C Y K W H T) (setq o (getpoint \n指定标注位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/还原为默认设置(H)/退出(T)]:编号之前请先将当前文字样式的文字高度项设为0)) (if (or (= o C) (= o Y) (= o T) (= o K) (= o W) (= o H) (= o nil)) (progn (if (= o C) (chuzhi))  (if (= o