lisp代码编写地物符号_工程图中标注序号的LISP程序

工程图中标注序号的LISP程序

(2007-04-03 17:11:45)

在工程设计工作中，经常要对设备、零件等标注序号。根据标准化要求，在标注点处要加上实心小圆点，然后引出直线

;在另一端画出一个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" "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)

)

;-----------------------

程序的使用方法，在Command:提示符下，键入(Load"BXH")回车后再键入BXH，然后按屏幕提示输入对应项即可。因为这个命令经常使用，建议把它装在菜单文件，在ACAD.MNU适当位置中加入一项:

标序号］^c^c(LOAD "BXH") ;BXH

;用鼠标点取最为方便。

喜欢

赠金笔

加载中，请稍候......

评论加载中，请稍候...

发评论

登录名：密码：找回密码注册记住登录状态

昵称：

评论并转载此博文

发评论

以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

lisp代码编写地物符号_工程图中标注序号的LISP程序相关推荐

标注界址点号lisp_CAD工程图中标注序号的LISP程序
在工程设计工作中,经常要对设备.零件等标注序号.根据标准化要求,在标注点处要加上实心小圆点,然后引出直线 ;在另一端画出一个8-10mm的圆 ;在圆中写上所标注的序号文字.用AutoCAD基本命令完成 ...
lisp代码编写地物符号_Aroma：通过结构代码搜索推荐代码
1 引用 Sifei Luan and Di Yang and Celeste Barnaby and Koushik Sen and Satish Chandra. Aroma: code reco ...
lisp语言画地物符号_地物符号
地形是地物和地貌的总称.地物是地面上天然或人工形成的物体,如湖泊.河流.房屋.道路等.地面上的地物和地貌,应按国家测绘总局颁发的<地形图图式>中规定的符号表示于图上.其中地物符号有下列几种 ...
lisp语言画地物符号_地图符号分为地物符号和特殊符号。
汉语真正作为外语学习,从东汉时期开始.目的主要是 . . . 椭圆的焦点坐标是常见的视频处理功能包括( ). 形序法不包括(). 椭圆的焦点坐标是工程量清单作为招标文件的组成部分,它是-- 抹 ...
lisp语言画地物符号_LISP语言在CAD工程制图中的应用_谢威
科技信息一 . 引言 LISP ( List Processor ) 程序语言是由 Autodesk 公司开发的一种程序语言 . AutoCAD 软件包中包含大多数用于产生图形 . 处理图形的命令 ...
用vscode编写静态页面_开发中实用的VSCode插件推荐
本篇文章给大家介绍一下开发中实用的VSCode插件推荐.有一定的参考价值,有需要的朋友可以参考一下,希望对大家有所帮助. 工欲善其事必先利其器,以下是本人为前端开发收集的vscode插件,有需要的话赶 ...
lisp改图元字体式样_一个更改尺寸类型的LISP程序
1 / 4 一个更改尺寸类型的 LISP 程序 AutoCAD 制图中经常用到标注尺寸,如果在标注尺寸前,预先对不同的标注尺寸样式进行命名,那么要修改尺寸标注的尺寸线状态.箭头规格.尺寸界线形状. ...
python编写木马攻击_用Python写一个自动木马程序
电脑作为大家日常办公的工具,最怕的一件事情之一就是被偷,当我们的电脑被盗的时候,不仅仅是电脑本身,更重要的是电脑存储的资料都会丢失.如何尽快的找回电脑需要我们想点办法,今天就教大家一个好的技巧,虽说不 ...
lisp文字上标源码_创建文本/标注样式源码 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 zhengxiansz 于 2014-4-27 11:27 编辑 GU_xl你好! 请帮我看一下这个创建文本/标注样式源码.第一次输入IT1命令时没有报错的提示.如果重复输入IT1命令时就 ...

lisp代码编写地物符号_工程图中标注序号的LISP程序

lisp代码编写地物符号_工程图中标注序号的LISP程序相关推荐

最新文章

热门文章