在AutoCAD中基于LISP程序简易标注粗糙度.doc

《在AutoCAD中基于LISP程序简易标注粗糙度.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途在AutoＣAD中基于AutoLISＰ程序简易标注粗糙度陕西关中工具制造有限公司　(陕西凤翔721400）张科岐王建卫对经常使用AutoCAD绘制二维机械图的用户来说，标注表面粗糙度是一件烦琐的事情。常用的方法是先画好粗糙度的符号，再将粗糙度值定义为属性,最后将符号和粗糙度定义为块。标注时插入这个块,按提示输入粗糙度值完成。笔者结合自己在工作中的实际经验,利用AutoCＡD提供的ＡｕtoLISP程序二次开发功能编写了一个粗糙度标注程序。使用该程序标注粗糙度,操作简单、快捷、准确、美观。现将程序内容及使用方法介绍如下,供大家参考。程序

2、全文如下：(dｅfuｎｒad->deg（raｄ）　　(/　(*rad180.0)　pi)）（defun　Deg->Rad（Deg)　　　(*pｉ(/Ｄｅg18０.０))　　）(deｆｕｎ　rgh（)　（seｔｖar　"CMDECHO"　1)　(ｓｅtｑsvar_oｌd(ｇetvar"oｓmode"))　　　(seｔqｓvａr_neｗ0)（ｓetvar＂oｓmode＂sｖaｒ_new）(sｅｔqpos_pt(geｔpoint＂ｎ标注位置:"))　(sｅtｑ　sym_dir　(getpoint"符号方向：＂))（ｓetｑ　sym_hｇt(ｇeｔrｅal"

3、＼n符号高度<５>："))　　(sｅtｑtxｔ　(getstｒing"数值大小＜3.2＞:"))(ｉf（=ｔxｔ"＂)　　　(ｓetｑtxt"3．2＂)　　)　　　(setq　ｔxｔ_ｈgt(getreａl＂＼n字符高度＜2.5>:"))（if(=txt_hgtnｉl)　（seｔｑtｘt_hgt　２．5))　(if（=sym_hgt　nil)(ｓetq　ｓｙｍ_hgt5.0)　　　）　(setqｓym＿lｇt(/　ｓyｍ_ｈgt　(ｃos(/　pi　６.0)))）(setqｓym_angle（anglepoｓ＿ptsym_dir））(seｔqsym_ｐ

4、ｔ1（pｏlar　pos_pt　(+(/pi3.0)sｙm_angle)(*０.5sym＿lgt))）个人收集整理勿做商业用途　(setqsym＿pt2(ｐoｌarpos_ｐt(+(/　pi３.0)ｓym_anｇｌe)sym＿lｇt))　(sｅtqsｙm_pt3（polar　ｐos＿pt(＋(／(＊２pi)3.0)sym_anｇle）(*　０.5syｍ_ｌgt）))(ｓeｔqtｘt_ｐt1（polarpos＿pt（+　（／(＊2pｉ)３.0)ｓym_ａｎgle)ﻩ　　(/(+　（*0.5（+sym_ｈgｔｔxt_ｈgt))　１.0)　　　　(cos(/　ｐ

5、i　６.0)）ﻩﻩ)ﻩ　）　　)(ｓetqsym＿ptx1(carｓym＿pt3　)）　(seｔqsym＿ptx2　(ｃａrpｏs_pt　))(setqsｙm_ptx3(ｃar　ｓym_pt１))（sｅtqｓｙm_pｔｙ1（caｄrｓym_ｐｔ3))(ｓｅｔqｓｙm_pｔy2(cａｄｒ　ｐoｓ＿ｐｔ)）　(seｔqｓym＿ｐｔｙ3(ｃadrsyｍ＿pt１))(setqｓym＿ceｎ(ｌistﻩ　(/(+syｍ＿ptx１sｙm＿ｐtx2sym_pｔｘ3）3.0）(／　(+ｓym_pty１syｍ_ｐty2syｍ_pty3)　3．０)ﻩﻩ　)　　　)（ｓｅtqｓ

6、ym_rad　(＊ﻩ（／（sqrｔ３.0)　６.0)ﻩﻩｓｙm_lgt0．５）　)(ｓetqtxt_pｔ2(polａｒ　ｐos_pｔ(+（/pi3．０)sｙm_ａngle)ﻩﻩ　　　(／（+(*0.5(+sym_ｈｇt　ｔxt_ｈgt））1.０)ﻩ（ｃos(/pｉ　６．0）)ﻩﻩ)ﻩ　　　　)　　ﻩ）（setqtxｔ_disｔ1(dｉstancetxt_pt1txt＿pｔ2))（setqtxｔ_diｓt2　(*　txｔ＿hgt(strｌentｘｔ）))（setqｔｘt_sｃａｌe(／(－ｔxｔ＿disｔ11.0)txt_ｄiｓt2))(ｓetqtxｔ_ｘp

7、t1(ｃaｒtxt_pｔ1))（sｅtqtｘt_ｙpｔ１　(cａｄrtxt＿pt1)）(ｓetqtxt_xｐt２　(cａrｔxt_pt2))(setqtxt＿ｙｐt2（ｃadrtxｔ＿pt2))　(setｑtxｔ_cｅnx(/（+txt_xｐt１ｔxt_ｘpt2)　2.0)）(sｅｔqtxt_ｃeny(/　(+ｔｘｔ_yｐt1tｘt_ypｔ2）2.0))(ｓetｑtxt_cｅn　(listtxｔ_ceｎxtｘt_cｅny))　　　　（conｄ　((<=　sym＿angｌｅ　（*０．５pi）)　(ｓetqｔxｔ_anｇｌe　sym_angle)　　）(（aｎ

8、d　(>　syｍ_angｌe(*　0.5ｐi))（<=sym_aｎ