自动生成零件明细表－－－>（讨论）

qianglcq

可以用ATE这个快捷命令修改,

qianglcq

在我目前的使用自动生成明细表方法是：首先在制作零件图的时候定义好标题栏里面的属性然后使用“EATTEXT”的命令进行提取并另存为一个EXCEL文件，在将该文件进行格式化导出为一个可以让Aulisp识别的文本文件，最后在CAD里面使用MXB的命令进行操作。操作比较繁琐并且很不完善，还有什么更好的方法呢？

－－－－－－－－－－－－－－－－

没有最好，只有更好

qianglcq

我在做装配图的时候,都习惯性将每个零件做成一个块,可否将其定义为一个属性块,然后再自动生成明细表和序号.

－－－－－－－－－－－－－－－－

没有最好，只有更好

killer9806

感谢六楼兄弟，让偶对文件导到CAD中有了一点认识。

qianglcq

以下为该程序的修正版
;;;明细表绘制程序
;;;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)
)

tangsong33

做得的确是不错,但是我这这里还有更好的,想要的话就给我联系,QQ:272056913

包括文本文件、EXCEL、Access、直接填写，四种方式都有。

rms_1018

　　　智能先锋RXCAD提供了生成明细表等系统的设计绘图功能

　　智能先锋RXCAD是在多年从事压力容器及机械设计，不断总结实践经验的基础上开发而成的参数化CAD设计及绘图软件。RXCAD程序开发简洁明快，操作简单,使用方便，提供的功能实用强大，是工程设计人员设计及绘图的得力助手。本软件最大的特点是实现了真正意义上的参数化设计出图，无论图形多复杂，都可简单的创建其参数化对象，并且运行参数可随时保存随时取用.本人所在公司原来使用天河PCCAD软件,自从有了智能先锋RXCAD提供的强大功能后,就不在使用天河PCCAD了.在此,希望将智能先锋RXCAD的强大功能提供给同行朋友们分享.

 　　 现将其功简述一下:

  通用功能如：图框设置，装配件号标注及明细表操作，粗糙度、焊缝符号、尺寸标注，零件清单自动生成(自动生成图纸目录，零件清单，标准件汇总等等)，自动打印排图，材料汇总...

  特殊功能:智能参数脚本文件编辑器(无需编程，随心所欲创建参数化对象)利用该功能已创建法兰、封头、管接头、支座...参数化对象.功能强大无法细说,感兴趣的朋友可与本人联系.

    (本人的主要开发开发成果是实现了不用编程可随心所欲的创建参数化对象，且其功能可无限制的扩展，如可以创建任意参数化图库，任意计算对象，可实现参数化自动出图)

Email:rms_1018@tom.com, QQ:307201419

lkxgh

下了谢谢你的分享

jyzas

支持

s678z

看看这里 http://bbs.mjtd.com/thread-96635-1-1.html