在AuAD中一次生成明细栏的方法.docx

在AutocAD中一次生成明细栏的方法
《机床与液压》?173?
在AutoCAD中一次生成明细栏的方法
吴学文
(承德石油高等专科学校机械工程系,河北承德067000)
摘要:介绍r借助于内嵌的AutolISPili-.”C,1)成llJJ纠嵌格及冬ft:的法
关键词:AutoCAD;程序;口J】细拦
中图分类号:T…:B文章编号:1001—3881{2004)11一l73—2
TheMethodsofCreatingItemBlockbyUsingtheAutoCAD

(ChmlgdePetroleunlCollege,Chengde067000,China)
Abstract:ThemethodsofcreatingitemblIlt?kandpat1number19[singthe’Xuh,C,lJ~ere’introduc(,(1.
Keywords:AutoCAD:Programs:hemlllllcks
用AutoCAD绘制装配图的明细栏时,由零件(setqp06(polarpt6(/pi2)l4))
数目的不确定,直接采用已有的命令,不能一次形成
(setqp07(polarpt7(/pi2)l4))
所需表格及相应的零件序号,给绘图带来一定的不(setql)8(polarpt8(/2)l4))
,由于软件AutoCAD具有一定的开放性.(set(1pl0(polarpO0(//pi2)7))
利用其相关功能,再结合其内嵌的AutoLISP语言编(setqI]1l(t)1,lal—p01(/pi2)7))
写的相应程序,就可以方便地生成明细栏表格和相应(sel(fp12(pohu-pO2(/pi2)7))
的零件序号,较好地解决这一问题(setqpl3(poJam?1)03(/pi2)7))
1编写程序(setqp14(polart)04(/pi2)7))
通常明细栏置于标题栏的上方,当上方图纸空问(setqp15(polarpO5(/pi2)7))
不足时,还可把部分明细栏置于标题栏的右侧冈(setq6(polarp06(/pi2)7))
此,需要两个程序:一个用于生成置于标题栏的上方(setqPl7(polarpO7(/pi2)7))
的明细栏,这里称为主明细栏;另一个用于生成置于(set(~1)l8(polarp08(/pi2)7))
标题栏的右侧的明细栏,这里称为部分明细栏(eonlnland”pline”pt8”w…’…-”I)08pO0
”“)

在文本编辑环境下,用AutoCAD内嵌的__,I卜(t’Ollllllall(Ittpline”pt7p07…’)
toLISP语言编写一个相应的程序,如程序名为item.(eonlnland”pline”pt6p06”“)
lsp:(conlmand”pline”pt5p05…’)
(defunc:item()(eomnland”pline”pt4p04…’)
(setqn(getint”\n请输入置于标题栏上的明细栏中(eOlllll/and”pline”pt4t)04”“)
零件序号的尾数n=