<P>可以用ATE这个快捷命令修改,</P>
<P>在我目前的使用自动生成明细表方法是：首先在制作零件图的时候定义好标题栏里面的属性然后使用“EATTEXT”的命令进行提取并另存为一个EXCEL文件，在将该文件进行格式化导出为一个可以让Aulisp识别的文本文件，最后在CAD里面使用MXB的命令进行操作。操作比较繁琐并且很不完善，还有什么更好的方法呢？</P>
<P>－－－－－－－－－－－－－－－－</P>
<P>没有最好，只有更好</P>
<P>我在做装配图的时候,都习惯性将每个零件做成一个块,可否将其定义为一个属性块,然后再自动生成明细表和序号.</P>
<P>－－－－－－－－－－－－－－－－</P>
<P>没有最好，只有更好</P>
<P>感谢六楼兄弟，让偶对文件导到CAD中有了一点认识。</P>
以下为该程序的修正版
;;;明细表绘制程序
;;;Copyrignt chengqiang Lin 2007 for yuksang
(defun c:mxb ()
(ree)
(setvar "cmdecho" 0)
(setq scale (getvar "dimscale"))
(setq btlscale 0.8)
(setq f1 (getfiled "选择明细表文件--林承强"
"C:\\Program Files\\梦扬软件\\"
"txt"
4
)
)
(setq f (open f1 "r"))
(setq p1 (getpoint "\n 指定明细表起点:"))
(setq p2 (list (car p1) (+ (cadr p1) (* 12 btlscale))))
(if (/= f nil)
(progn (prompt "\n 请稍等......")
(setq bk1 "mxb_1")
(setq bk "mxb")
(setq scale (getvar "dimscale"))
(setq btlscale 0.8)
(setq w1
(list (+ (car p2) (* (* 5.5 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w2
(list (+ (car p2) (* (* 29.5 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w3
(list (+ (car p2) (* (* 64.5 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w4
(list (+ (car p2) (* (* 86.5 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w5
(list (+ (car p2) (* (* 109.5 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w6
(list (+ (car p2) (* (* 132.5 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w7
(list (+ (car p2) (* (* 144.0 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(setq w8
(list (+ (car p2) (* (* 165.0 btlscale) scale))
(+ (cadr p2) (* (* 4 btlscale) scale))
)
)
(command "insert" bk1 p1 "1" "1" "0")
(command "osnap" "off")
(while (setq a (read-line f))
(setq a (strcat "(" a ")"))
(setq a (read a))
(setq m1 (nth 0 a))
(setq m2 (nth 1 a))
(setq m3 (nth 2 a))
(setq m4 (nth 3 a))
(setq m5 (nth 4 a))
(setq m6 (nth 5 a))
(setq m7 (nth 6 a))
(setq m8 (nth 7 a))
(command "insert" bk p2 "" "" "")
(command "text" "j" "m" w1 "2.5" "0" m1)
(command "text" "j" "m" w2 "2.5" "0" m2)
(command "text" "j" "m" w3 "2.5" "0" m3)
(command "text" "j" "m" w4 "2.5" "0" m4)
(command "text" "j" "m" w5 "2.5" "0" m5)
(command "text" "j" "m" w6 "2.5" "0" m6)
(command "text" "j" "m" w7 "2.5" "0" m7)
(command "text" "j" "m" w8 "2.5" "0" m8)
(setq w1
(list (car w1)
(+ (cadr w1) (* (* 8 btlscale) scale))
)
)
(setq w2
(list (car w2)
(+ (cadr w2) (* (* 8 btlscale) scale))
)
)
(setq w3
(list (car w3)
(+ (cadr w3) (* (* 8 btlscale) scale))
)
)
(setq w4
(list (car w4)
(+ (cadr w4) (* (* 8 btlscale) scale))
)
)
(setq w5
(list (car w5)
(+ (cadr w5) (* (* 8 btlscale) scale))
)
)
(setq w6
(list (car w6)
(+ (cadr w6) (* (* 8 btlscale) scale))
)
)
(setq w7
(list (car w7)
(+ (cadr w7) (* (* 8 btlscale) scale))
)
)
(setq w8
(list (car w8)
(+ (cadr w8) (* (* 8 btlscale) scale))
)
)
(setq p2
(list (car p2)
(+ (cadr p2) (* (* 8 btlscale) scale))
)
)
)
(close f)
)
)
(command "osnap" "end,int,mid,cen,per,app")
(princ)
)
<p>做得的确是不错,但是我这这里还有更好的,想要的话就给我联系,QQ:272056913</p><p>包括文本文件、EXCEL、Access、直接填写，四种方式都有。</p>
<div style="BORDER-RIGHT: #6595d6 1pt solid; PADDING-RIGHT: 0cm; BORDER-TOP: #6595d6 1pt solid; PADDING-LEFT: 8pt; BACKGROUND: white; PADDING-BOTTOM: 0cm; BORDER-LEFT: #6595d6 1pt solid; PADDING-TOP: 0cm; BORDER-BOTTOM: #6595d6 1pt solid; mso-border-alt: solid #6595D6 .75pt;"><div style="BORDER-RIGHT: #6595d6 1pt solid; PADDING-RIGHT: 0cm; BORDER-TOP: #6595d6 1pt solid; PADDING-LEFT: 8pt; BACKGROUND: white; PADDING-BOTTOM: 0cm; BORDER-LEFT: #6595d6 1pt solid; PADDING-TOP: 0cm; BORDER-BOTTOM: #6595d6 1pt solid; mso-border-alt: solid #6595D6 .75pt;"> 智能先锋<font face="Times New Roman">RXCAD提供了生成明细表等系统的设计绘图功能</font><p style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 0pt; BORDER-LEFT: medium none; WORD-BREAK: break-all; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; TEXT-ALIGN: left; mso-border-alt: solid #6595D6 .75pt; mso-pagination: widow-orphan; mso-padding-alt: 0cm 0cm 0cm 8.0pt;"> 智能先锋<font face="Times New Roman">RXCAD</font>是在多年从事压力容器及机械设计，不断总结实践经验的基础上开发而成的参数化<font face="Times New Roman">CAD</font>设计及绘图软件。<font face="Times New Roman">RXCAD</font>程序开发简洁明快，操作简单<font face="Times New Roman">,</font>使用方便，提供的功能实用强大，是工程设计人员设计及绘图的得力助手。本软件最大的特点是实现了真正意义上的参数化设计出图，无论图形多复杂，都可简单的创建其参数化对象，并且运行参数可随时保存随时取用<font face="Times New Roman">.</font>本人所在公司原来使用天河<font face="Times New Roman">PCCAD</font>软件<font face="Times New Roman">,</font>自从有了智能先锋<font face="Times New Roman">RXCAD</font>提供的强大功能后<font face="Times New Roman">,</font>就不在使用天河<font face="Times New Roman">PCCAD</font>了<font face="Times New Roman">.</font>在此<font face="Times New Roman">,</font>希望将智能先锋<font face="Times New Roman">RXCAD</font>的强大功能提供给同行朋友们分享<font face="Times New Roman">.<p></p></font></p><p class="MsoNormal" align="left" style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 0pt; BORDER-LEFT: medium none; WORD-BREAK: break-all; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; TEXT-ALIGN: left; mso-border-alt: solid #6595D6 .75pt; mso-pagination: widow-orphan; mso-padding-alt: 0cm 0cm 0cm 8.0pt;"><span style="mso-spacerun: yes;"><font face="Times New Roman"> </font></span>现将其功简述一下<font face="Times New Roman">:<p></p></font></p><p class="MsoNormal" align="left" style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 0pt; BORDER-LEFT: medium none; WORD-BREAK: break-all; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; TEXT-ALIGN: left; mso-border-alt: solid #6595D6 .75pt; mso-pagination: widow-orphan; mso-padding-alt: 0cm 0cm 0cm 8.0pt;"><span style="mso-spacerun: yes;"><font face="Times New Roman"> </font></span>通用功能如：图框设置，装配件号标注及明细表操作，粗糙度、焊缝符号、尺寸标注，零件清单自动生成<font face="Times New Roman">(</font>自动生成图纸目录，零件清单，标准件汇总等等<font face="Times New Roman">)</font>，自动打印排图，材料汇总<font face="Times New Roman">...<p></p></font></p><p class="MsoNormal" align="left" style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 0pt; BORDER-LEFT: medium none; WORD-BREAK: break-all; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; TEXT-ALIGN: left; mso-border-alt: solid #6595D6 .75pt; mso-pagination: widow-orphan; mso-padding-alt: 0cm 0cm 0cm 8.0pt;"><span style="mso-spacerun: yes;"><font face="Times New Roman"> </font></span>特殊功能<font face="Times New Roman">:</font>智能参数脚本文件编辑器<font face="Times New Roman">(</font>无需编程，随心所欲创建参数化对象<font face="Times New Roman">)</font>利用该功能已创建法兰、封头、管接头、支座<font face="Times New Roman">...</font>参数化对象<font face="Times New Roman">.</font>功能强大无法细说<font face="Times New Roman">,</font>感兴趣的朋友可与本人联系<font face="Times New Roman">.<p></p></font></p><p class="MsoNormal" align="left" style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 0pt; BORDER-LEFT: medium none; WORD-BREAK: break-all; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; TEXT-ALIGN: left; mso-border-alt: solid #6595D6 .75pt; mso-pagination: widow-orphan; mso-padding-alt: 0cm 0cm 0cm 8.0pt;"><font face="Times New Roman"> (</font>本人的主要开发开发成果是实现了不用编程可随心所欲的创建参数化对象，且其功能可无限制的扩展，如可以创建任意参数化图库，任意计算对象，可实现参数化自动出图<font face="Times New Roman">)<p></p></font></p><p class="MsoNormal" align="left" style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 0pt; BORDER-LEFT: medium none; WORD-BREAK: break-all; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; TEXT-ALIGN: left; mso-border-alt: solid #6595D6 .75pt; mso-pagination: widow-orphan; mso-padding-alt: 0cm 0cm 0cm 8.0pt;"><font face="Times New Roman">Email:rms_1018@tom.com, QQ:307201419</font></p></div></div>
下了谢谢你的分享
支持
看看这里 http://bbs.mjtd.com/thread-96635-1-1.html