当维多利亚vic003在使用维多利亚vic003软件绘制图纸时，维多利亚vic003的图纸中很多对象都会使用到序号标注，使图纸更有条理性，关于序号标注的lisp程序要了解下。那在维多利亚vic003维多利亚vic003软件中如何使用维多利亚vic003标注序号的lisp程序呢？今天就为大家简单介绍下。 

维多利亚vic003中标注序号的lisp程序：

维多利亚vic003利用维多利亚vic003维多利亚vic003LISP语言编制了BXH.LSP(标序号)，很好地解决了以上问题，该程序为维多利亚vic003维多利亚vic003增加了一条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，然后按屏幕提示输入对应项即可。因为这个命令经常使用，建议把它装在菜单文件，在A维多利亚vic003.MNU适当位置中加入一项:
标序号］^c^c(LOAD "BXH") ;BXH ;用鼠标点取最为方便。

 以上就是在维多利亚vic003维多利亚vic003软件中，当维多利亚vic003的图纸中要使用到序号标注的lisp程序的时候，维多利亚vic003可以通过上述内容了解下相关的内容。今天就介绍这么多了。安装维多利亚vic003维多利亚vic003软件试试吧。更多维多利亚vic003教程技巧，可关注维多利亚vic003维多利亚vic003官网进行查看。