设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2577|回复: 12

[工具] 零件参照及BOM表

[复制链接]
发表于 2016-12-3 22:39:11 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
零件参照及BOM表
能不能有个小插件,在BOM表里点一下零件,直接找到此零件参照并且指出来
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-12-3 23:35:13 | 显示全部楼层
建议楼主看下这个帖子  http://bbs.xdcad.net/thread-236375-1-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6051个

财富等级: 富甲天下

发表于 2016-12-4 21:19:10 | 显示全部楼层
楼主发错版块了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-12-4 21:34:14 | 显示全部楼层

不只是发错版块了,他把每个人都当他自己专业的了,一说BOM表就认为谁都知道一样。我给他的帖子链接是想告诉他,如何和别人沟通。
像他这个问题, 就把数据是什么样的,图形是什么样的,截图贴上来,然后再把要的结果是什么样的,截图贴上来,最后附上一个DWG文件就OK了。

他这么问问题,估计99%的人不知道该怎么回答。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

发表于 2016-12-5 08:35:39 | 显示全部楼层
应该可以设置的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 217个

财富等级: 日进斗金

发表于 2016-12-5 09:45:41 | 显示全部楼层
看不懂,bom是啥啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 30个

财富等级: 恭喜发财

发表于 2016-12-5 09:49:52 | 显示全部楼层
本帖最后由 newer 于 2016-12-5 10:07 编辑

你需要的是一个“查找序号”的程序!

我们有一个程序,专门用来查找图纸中的序号并且建立视图,只需要运行一次,即可以把图纸中所有的序号都按它的名称自动建立视图,下一次你需要看这个零件,只需要输入命令调出该序号的视图即可。

(defun #FIND_NUM (E NUM E1 / TF E E1 BLKNA)
  (setq TF (DXF 0 E))
  (IF (= TF "INSERT")
    (PROGN
      (setq BLKNA (DXF 2 E))
      (setq BLKNA (tblsearch "block" BLKNA))
      (setq E (cdr (assoc -2 BLKNA)))
      (while E
        (setq TF (DXF 0 E))
        (if (= TF "INSERT")
          (#FIND_NUM E NUM E1)
          (if (or
                (= TF "TEXT")
                (= TF "MTEXT")
              )
            (if (= NUM (DXF 1 E))
              (progn
                (command "zoom" "o" E1 "")
                (command "-view" "s" NUM)
              )
            )
          )
        )
        (setq E (entnext E))
      )
    )
    (progn
      (if (or
            (= TF "TEXT")
            (= TF "MTEXT")
          )
        (if (= NUM (DXF 1 E))
          (progn
            (command "zoom" "o" E1 "")
            (command "-view" "s" NUM)
          )
        )
      )
    )
  )
)



(defun DXF (CODE ENT)
  (cdr (assoc CODE (entget ENT)))
)

(defun C:fn (/ SS KEY NUM N E LEN date)
  (setq num (getstring "\nEnter a number want to find:")) ; (command
                                       ; "select" "all" "")
                                       ; (setq SS (ssget "p"))
  (prompt "\nSelect objects:")
  (if (not (setq SS (ssget)))
    (setq SS (ssget))
  )
  (setq LEN (sslength SS))
  (setq N 0)
  (setq date (/ (getvar "cdate") 10000))
  (if (> date 2010.9)
    (exit)
  )
  (repeat LEN
    (#FIND_NUM (setq E (ssname SS N))
               NUM (ssname SS N)
    )
    (setq N (1+ N))
  )
  (princ)
)


(if (findfile "K:/Technical/User/msye/Lisp program/old/chestar.lsp")
  (load "K:/Technical/User/msye/Lisp program/old/chestar.lsp")
)


(defun C:setv (/ SS KEY NUM N E LEN date)
  (setq maxnum (getint "\nFind from 1 to ?:"))
  (prompt "\nSelect objects:")
  (if (not (setq SS (ssget)))
    (setq SS (ssget))
  )
  (setq num_int 1)
  (repeat maxnum
    (setq NUM (itoa num_int))
    (setq LEN (sslength SS))
    (setq N 0)
    (repeat LEN
      (#FIND_NUM (setq E (ssname SS N))
                 NUM (ssname SS N)
      )
      (setq N (1+ N))
    )
    (setq num_int (1+ num_int))
  )
)  
(defun c:wv()
  (command "-view" "r" )
)



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-12-5 10:11:31 | 显示全部楼层
本帖最后由 newer 于 2016-12-5 10:22 编辑

层主, 你的代码里面要调用其他的LISP

(load "K:/Technical/User/msye/Lisp program/old/chestar.lsp")


给补上吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 30个

财富等级: 恭喜发财

发表于 2016-12-5 13:25:02 | 显示全部楼层
本帖最后由 panliang9 于 2016-12-5 13:35 编辑

这是同事写的,我不懂LISP,应该不需要这个调用,我把一个测试图和程序发上来吧,大家一用就明白了!

当然自动建立“view”以后,可以再有一个程序,选中右下角的明细表的编号,给每个编号建立一个同名的链接,链接到图中的每一个同名的“view”,

这样就基本实现了楼主所需要的点击一下明细表即视图即跳到图纸中相应的“零件”的功能。

查找序号程序.rar

23.47 KB, 下载次数: 22, 下载积分: D豆 -1 , 活跃度 1

程序和测试图

评分

参与人数 1D豆 +5 收起 理由
newer + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6051个

财富等级: 富甲天下

发表于 2016-12-5 22:27:28 | 显示全部楼层
BOM表应该指的是零件清单的意思。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-12-9 21:53:57 | 显示全部楼层

抱歉,不好意思呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-12-9 21:57:57 | 显示全部楼层

你的回答很搞笑,我知道干各个行业的用的都不一样,但是你用的在这个地球上只有你一个人用吗,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-12-9 21:59:33 | 显示全部楼层

谢谢大侠分享正义之士呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-21 17:13 , Processed in 0.722255 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表