工程图中标注序号的LISP程序
工程图中标注序号的lisp程序
在工程设计工作中，经常要对设备、零件等标注序号。根据标准化要求，在标注点处要加上实心小圆点，然后引出直线 ;在另一端画出一个8～10mm的圆 ;在圆中写上所标注的序号文字。用autocad基本命令完成上述工作费工费时，并且不易修改，特别是在图形密集处，效果很不理想，图面质量差。
我们利用autolisp语言编制了bxh.lsp(标序号)，很好地解决了以上问题，该程序为autocad增加了一条bxh命令，可方便地在图纸中标注序号，并且如果修改或删除标注也十分方便，工效提高十倍以上。根据该程序的编制原理，可演绎出使用在机械制图中标注序号，标注焊接符号等程序。
bxh.lsp源程序如下:
;---------------------------
(defun c:bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth) ;标序号
(setq radi 5) ;圆圈半径
(setq txth 5) ;字高
(if (not bx) (setq bx 1))
(setq p1 (getpoint \n请选择起点:)) ;在零件上选一点
(setq p2 (getpoint \n请选择第二点或回车表示无第二点)) ;标注位置处一点
(setq bxh (getint (gstr \n请输入序号 bx))) ;序号数
(if bxh (setq bx bxh))
(cond (p2
(command layer set 2 ) ;改到画细线图层
(setq ang 1 (angle p1 p2))
(setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;画圆、线
(command pline
(polar p1 ang 1 0.25)
w 0.5 0,5 a cep1a359.9lw0 0 p3)
(commandcirclep2 radi)
(command layer set 6 ;改到写文字图层
text j m p2 txth 0 bx) ;写文字
)
((not p2) ;如果在零件中直接标注
(command layer set 2 ) ;改到画细线图层
(command circle p1 radi) ;画圆
(command layer set 6 ;改到写文字图层
text j m p1 txth 0 bx) ;写文字
)
)
(setq bx (+ bx 1))
(princ)
)
;-----------------------
程序的使用方法，在command:提示符下，键入(loadbxh)回车后再键入bxh，然后按屏幕提示输入对应项即可。因为这个命令经常使用，建议把它装在菜单文件，在acad.mnu适当位置中加入一项:
标序号］^c^c(load bxh) ;bxh ;用鼠标点取最为方便。
都是超续航！魅蓝note5和荣耀8青春版，你怎么选?
PTV VISSIM软件在自动驾驶中的应用介绍
iPhone13起售价为5999元 iPhone13价格表
手机流行全面屏，大陆面板厂加大投资AMOLED面板
通信教程的04_SPI接口说明及原理
工程图中标注序号的LISP程序
魅族PRO6Plus和vivoX9Plus哪个好
语音控制晾衣架，解放双手让生活更简单
单个复杂路口的PLC软硬件设计
智能水电表远程管理系统
单片机可以识别模拟信号么？单片机接收的是什么信号？
我国制造业核心技术需不断突破，才是强国之本
坐高铁带多大的充电宝好，安全带上高铁的充电宝推荐
四款炫酷Linux开源程序照亮你的生活！
基于随机分区的超快并行DBSCAN算法介绍
集成化的Speaker Box设计
华为watch3功能介绍 华为watch3使用教程
如何从PC机RS-232串口获取电源的简单方法详细说明
思科发布WiFi6路由器 云服务和硬件市场竞争激烈
体验最新测量应用技术，提升产品研发效率
在工程设计工作中，经常要对设备、零件等标注序号。根据标准化要求，在标注点处要加上实心小圆点，然后引出直线 ;在另一端画出一个8～10mm的圆 ;在圆中写上所标注的序号文字。用autocad基本命令完成上述工作费工费时，并且不易修改，特别是在图形密集处，效果很不理想，图面质量差。
我们利用autolisp语言编制了bxh.lsp(标序号)，很好地解决了以上问题，该程序为autocad增加了一条bxh命令，可方便地在图纸中标注序号，并且如果修改或删除标注也十分方便，工效提高十倍以上。根据该程序的编制原理，可演绎出使用在机械制图中标注序号，标注焊接符号等程序。
bxh.lsp源程序如下:
;---------------------------
(defun c:bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth) ;标序号
(setq radi 5) ;圆圈半径
(setq txth 5) ;字高
(if (not bx) (setq bx 1))
(setq p1 (getpoint \n请选择起点:)) ;在零件上选一点
(setq p2 (getpoint \n请选择第二点或回车表示无第二点)) ;标注位置处一点
(setq bxh (getint (gstr \n请输入序号 bx))) ;序号数
(if bxh (setq bx bxh))
(cond (p2
(command layer set 2 ) ;改到画细线图层
(setq ang 1 (angle p1 p2))
(setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;画圆、线
(command pline
(polar p1 ang 1 0.25)
w 0.5 0,5 a cep1a359.9lw0 0 p3)
(commandcirclep2 radi)
(command layer set 6 ;改到写文字图层
text j m p2 txth 0 bx) ;写文字
)
((not p2) ;如果在零件中直接标注
(command layer set 2 ) ;改到画细线图层
(command circle p1 radi) ;画圆
(command layer set 6 ;改到写文字图层
text j m p1 txth 0 bx) ;写文字
)
)
(setq bx (+ bx 1))
(princ)
)
;-----------------------
程序的使用方法，在command:提示符下，键入(loadbxh)回车后再键入bxh，然后按屏幕提示输入对应项即可。因为这个命令经常使用，建议把它装在菜单文件，在acad.mnu适当位置中加入一项:
标序号］^c^c(load bxh) ;bxh ;用鼠标点取最为方便。
都是超续航！魅蓝note5和荣耀8青春版，你怎么选?
PTV VISSIM软件在自动驾驶中的应用介绍
iPhone13起售价为5999元 iPhone13价格表
手机流行全面屏，大陆面板厂加大投资AMOLED面板
通信教程的04_SPI接口说明及原理
工程图中标注序号的LISP程序
魅族PRO6Plus和vivoX9Plus哪个好
语音控制晾衣架，解放双手让生活更简单
单个复杂路口的PLC软硬件设计
智能水电表远程管理系统
单片机可以识别模拟信号么？单片机接收的是什么信号？
我国制造业核心技术需不断突破，才是强国之本
坐高铁带多大的充电宝好，安全带上高铁的充电宝推荐
四款炫酷Linux开源程序照亮你的生活！
基于随机分区的超快并行DBSCAN算法介绍
集成化的Speaker Box设计
华为watch3功能介绍 华为watch3使用教程
如何从PC机RS-232串口获取电源的简单方法详细说明
思科发布WiFi6路由器 云服务和硬件市场竞争激烈
体验最新测量应用技术，提升产品研发效率