CAD中如何标注序号

———CAD中如何标注序号当我们在使用CAD软件绘制图纸时，图纸中的轴网、图纸说明、详图等许多内容都会使用到序号标注的功能。那在浩辰CAD软件中如何才可以实现序号标注呢？今日就为大家简洁介绍下。

CAD中序号标注过程：

在windows下，VB和浩辰CAD都支持强有力的DDE(动态数据交换)功能，可以用VB编写客户程序通过WindowsDDE连接向浩辰CAD传送指令和交换各种简单的数据结构，实现对浩辰CAD的掌握。尽管浩辰CADLISP运行速度慢，但是它为中高级的用户定制浩辰CAD供应了许多便利。浩辰CAD软件包供应了很多浩辰CADLISP实现程序。

图1标注类型

图2序号标注流程图

3程序的设计和实现

在本文中，简要介绍了利用LISP语言编写的序号标注程序，以起抛砖引玉的作用。本程序是在浩辰CAD-R12上开发并运行通过的。程序主要包括标注零部件序号、标注支吊架序号、标注分界符、标注文字等功能，如图1所示。同时可以设置文字高度和数字自动赋值。有了“序号标注”功能，你就可以很便利地连续地进行标注。

其流程图为：

在标注时首先拾取起始点，程序中设计了功能选项并显示：

T标注类型/H文字高度/N数字赋值/?关心/〈起始点〉：

可以通过功能选项转变标注类型、文字高度，以及确定文字高度、序号数字是否连续赋值。其实现程序为

(defun1b—m1(/input)

(setqtempT)

(whiletemp

(initget″TypeHeight

Number?″)

(setqstrtpt(getpoint″＼nT标注类型/H文字高度/N数字赋值/?关心/〈起始点〉：″))

(cond

((=strtpt″Type″)

(initget″PartBrace

DelimitText″)

(setqinput(getkword(strcat″＼nP

零部件序号/B支吊架序号/D分界符/T标注文字〈″1b—typ″:″)))

(ifinput

(progn

(if(/=1b—typinput)(setq

num1))

(setq1b—typinput)

)

）

）

((=strtpt″Height″)

(setqinput)getdist(strcat″＼n输入新的文字高度＜″(rtostxt—h)″＞:″)))

(ifinput(setqtxt—h

input))

)

（（=strtpt″Number″)

(initger″ONOFf″)

(setqinput(getkword(strcat″＼n序号数字自动连续赋值?OFf/ON＜″1b—num″＞:″)))

(ifinput(setq1b—num

input))

）

（（=strtpt″?″)

(1b—hlp)

）

（（nullstrtpt)

(princ″＼n正常退出LABEL.″)

(setqtempnil)

(setqcontnil)

)

（T

（setqtempnil）

）

）;endofcond

）;endofwhile

）

选择标注类型也是通过功能选项进行的，其显示选项为：

P零部件序号/B支吊架序号/D分界符/T文字标注：

假如起始点空输入，则退出标注功能。在完成起始点选择后，紧接着要求拾取文字标注的位置，显示功能选项：

H文字高度/N数字赋值/U退回/?关心/〈终止点〉：

在该过程中仍可以设置文字高度和数字自动赋值开关。实现程序为

(defun1b—m2(／input)

(setqtempT)

(whiletemp)

(menucmd″S=labe12″)

(initget″HeightNumber

Undo?″)

(setqnextpt(getpointstrtpt″＼nH文字高度/N数字连续/U退回/?关心/〈终止点〉：″))

(cond

((=nextpt″Height″)

(setainput(getdist(strcat“＼n输入新的文字高度＜“(rtos.txt—h″：)＞″)))

(ifinput(setqtxt—h

input)))

((=strtpt“Number″)

(initget″ONOFf″)

(setqinput(getkword(strcat″＼n序号数字自动连续赋值?OFf/ON″1b_num″:″)))

(ifinput(setqlb_numinput))

)

（（=nextpt″Undo″)

(command″—.U″)

(setqtempnil)

）

（（=strtpt″?″)

（lb—hlp）

）

（T

（if(nullnextpt）

(setqtempT)

(progn

(cond

((=lb—typ″Part″)(lb—part))

((=lb—typ″Brace″)(lb—brace))

((=lb—typ″Delimit″)(lb—deli))

((=lb—typ″Text″)(lb—text))

）

（setqtempnil）

）

）

）

）；endfocond

）endofwhile

）

在选择好终止点之后，要求输入相应的标注内容。例如，零部件序号和分界符标注过程分别表达为

(defunlb—part(／angendptmidpt)

(setqang(anglestrtptnextpt))

(if(and(ang(/pi2))(

(setqendpt(polarnextpto(*txt—h-1.6)))

(setqendpt(polarnextpto(*txt—h1.6)))

）

(command″donut″00.3strtpt″″″line″)

strtptnextptendpt″″)

(setqmidpt(mapcar'+nextptendpt)

midpt(mapcar'／midpt'(222))midpt(mapcar'／midpt'(040)))

(if(=lb—num″OFf″)

(＼progn

(setqtemp(getint(strcat″＼n请输入零部件序号〈″rtosnum)″＞：″）））

(iftemp(setqnumtemp))

）

）

（command″text″″J″″M″midpttxt—h0num″change″″L″

″″″P″″C″6″″)

(setqnum(1+num))

(defunlb—del(/txtangradiuscentpt)

(setqradiustxt—h)

(setqang(anglestrtptnextpt))

(setqcentpt(polarnextptangradius))

(command″donut″00.3strtpt″″″line″strtptnextpt″″)

（command″circle″centptradius）

(setqtxt(getstring″＼n请输入分界符序号：″))

(command″text″″J″″M″centpttxt—hotxt0txt″change″″L″″″″P″″C″6″″)

）

程序通过循环语句实现多次标注，当起始点空输入时退出标注。

在运行程序功能之前，必需将其调入浩辰CAD中。只要在Command状态下，键入(Load″C：／SUBDIR/lABEL″)即可。

以上就是在浩辰CAD软件中，当我们需要使用序号标注的功能来标注图纸上的相关内容时，详细的操作步骤如上所述。今日就介绍这么多了。安装浩辰CAD软件试试吧。更多CAD教程技巧，可关注浩辰CAD官网进行查看。

当我们在使用CAD软件绘制图纸时，图纸中的轴网、图纸说明、详图等许多内容都会使用到序号标注的功能。那在浩辰CAD软件中如何才可以实现序号标注呢？今日就为大家简洁介绍下。

CAD中序号标注过程：

在windows下，VB和浩辰CAD都支持强有力的DDE(动态数据交换)功能，可以用VB编写客户程序通过WindowsDDE连接向浩辰CAD传送指令和交换各种简单的数据结构，实现对浩辰CAD的掌握。尽管浩辰CADLISP运行速度慢，但是它为中高级的用户定制浩辰CAD供应了许多便利。浩辰CAD软件包供应了很多浩辰CADLISP实现程序。

图1标注类型

图2序号标注流程图

3程序的设计和实现

在本文中，简要介绍了利用LISP语言编写的序号标注程序，以起抛砖引玉的作用。本程序是在浩辰CAD-R12上开发并运行通过的。程序主要包括标注零部件序号、标注支吊架序号、标注分界符、标注文字等功能，如图1所示。同时可以设置文字高度和数字自动赋值。有了“序号标注”功能，你就可以很便利地连续地进行标注。

其流程图为：

在标注时首先拾取起始点，程序中设计了功能选项并显示：

T标注类型/H文字高度/N数字赋值/?关心/〈起始点〉：

可以通过功能选项转变标注类型、文字高度，以及确定文字高度、序号数字是否连续赋值。其实现程序为

(defun1b—m1(/input)

(setqtempT)

(whiletemp

(initget″TypeHeight

Number?″)

(setqstrtpt(getpoint″＼nT标注类型/H文字高度/N数字赋值/?关心/〈起始点〉：″))

(cond

((=strtpt″Type″)

(initget″PartBrace

DelimitText″)

(setqinput(getkword(strcat″＼nP

零部件序号/B支吊架序号/D分界符/T标注文字〈″1b—typ″:″)))

(ifinput

(progn

(if(/=1b—typinput)(setq

num1))

(setq1b—typinput)

)

）

）

((=strtpt″Height″)

(setqinput)getdist(strcat″＼n输入新的文字高度＜″(rtostxt—h)″＞:″)))

(ifinput(setqtxt—h

input))

)

（（=strtpt″Number″)

(initger″ONOFf″)

(setqinput(getkword(strcat″＼n序号数字自动连续赋值?OFf/ON＜″1b—num″＞:″)))

(ifinput(setq1b—num

input))

）

（（=strtpt″?″)

(1b—hlp)

）

（（nullstrtpt)

(princ″＼n正常退出LABEL.″)

(setqtempnil)

(setqcontnil)

)

（T

（setqtempnil）

）

）;endofcond

）;endofwhile

）

选择标注类型也是通过功能选项进行的，其显示选项为：

P零部件序号/B支吊架序号/D分界符/T文字标注：

假如起始点空输入，则退出标注功能。在完成起始点选择后，紧接着要求拾取文字标注的位置，显示功能选项：

H文字高度/N数字赋值/U退回/?关心/〈终止点〉：

在该过程中仍可以设置文字高度和数字自动赋值开关。实现程序为

(defun1b—m2(／input)

(setqtempT)

(whiletemp)

(menucmd″S=labe12″)

(initget″HeightNumber

Undo?″)

(setqnextpt(getpointstrtpt″＼nH文字高度/N数字连续/U退回/?关心/〈终止点〉：″))

(cond

((=nextpt″Height″)

(setainput(getdist(strcat“＼n输入新的文字高度＜“(rtos.txt—h″：)＞″)))

(ifinput(setqtxt—h

input)))

((=strtpt“Number″)

(initget″ONOFf″)

(setqinput(getkword(strcat″＼n序号数字自动连续赋值?OFf/ON″1b_num″:″)))

(ifinput(setqlb_numinput))

)

（（=nextpt″Undo″)

(command″—.U″)

(setqtempnil)

）

（（=strtpt″?″)

（lb—hlp）

）

（T

（if(nullnextpt）

(setqtempT)

(progn

(cond

((=lb—typ″Part″)(lb—part))

((=lb—typ″Brace″)(lb—brace))

((=lb—typ″Delimit″)(lb—deli))

((=lb—typ″Text″)(lb—text))

）

（setqtempnil）

）

）

）

）；endfocond

）endofwhile

）

在选择好终止点之后，要求输入相应的标注内容。例如，零部件序号和分界符标注过程分别表达为

(defunlb—part(／angendptmidpt)

(setqang(anglestrtptnextpt))

(if(and(ang(/pi2))(

(setqendpt(polarnextpto(*txt—h-1.6)))

(setqendpt(polarnextpto(*txt—h1.6)))

）

(command″donut″00.3strtpt″″″line″)

strtptnextptendpt″″)

(setqmidpt(mapcar'+nextptendpt)

midpt(mapcar'／midpt'(222))midpt(mapcar'／midpt'(040)))

(if(=lb—num″OFf″)

(＼progn

(setqtemp(getint(strcat″