下载首页 | 资讯中心 | 文章分类 | 最近更新 | 排 行 榜 |
文章搜索: 分类 关键字
您的位置:首页软件教程AutoCADAutoCAD资料教程 → 工程图中标注序号的LISP程序
工程图中标注序号的LISP程序
日期:2007-12-3 20:30:38 人气:724     [ ]
上一页 [1] [2] 下一页

在工程设计工作中,经常要对设备、零件等标注序号。根据标准化要求,在标注点处要加上实心小圆点,然后引出直线 ;在另一端画出一个810mm的圆 ;在圆中写上所标注的序号文字。用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" "CE"p1"A"359.9"L""W"0 0 p3"")

   (command"circle"p2 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)

上一页 [1] [2] 下一页
我有问题,我要进入论坛
出处:本站原创 作者:佚名
 热点文章
·如何定制自己的个性化..
·proe超级技巧
·怎样学好PRO/E软件?
·PRO/E COFNIG文件设置..
·PROE将默认英制转换成..
·PRO/E分模经验总结
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·旧版ProE如何读取野火..
·Pro/E如何做两条c2(曲..
·Pro/E 2001下一个阵列..
·一款钣金产品的结构设..
 推荐文章
·翻砂铸造的特点及其工..
·整编SolidWorks应用技..
·模具选材原则
·如何解决中文Pro/E工程..
·Pro/ENGINEER 中的文本..
·Pro/ENGINEER Wildfir..
·模型从proe->ansys..
·用行为建模优化设计的..
·簡單的Top-Down設計實..
·适合初学者的基础练习..
·ProE不传之秘笈(高级技..
·PRO/E 关于零件精度的..
·Pro/E的scan-tools工具..
·关系式的世界
·关系式教程