零件参照及BOM表

13993359550

零件参照及BOM表
能不能有个小插件，在BOM表里点一下零件，直接找到此零件参照并且指出来

newer

建议楼主看下这个帖子  http://bbs.xdcad.net/thread-236375-1-1.html

kqqt6236

楼主发错版块了。

newer

kqqt6236 发表于 2016-12-4 21:19

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

他这么问问题，估计99%的人不知道该怎么回答。

forb0217

应该可以设置的。

yufeng37

看不懂，bom是啥啊

panliang9

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

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

(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" )
)

newer

panliang9 发表于 2016-12-5 09:49

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

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


给补上吧。

panliang9

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

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

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

kqqt6236

BOM表应该指的是零件清单的意思。

13993359550

kqqt6236 发表于 2016-12-4 21:19

抱歉，不好意思呀

13993359550

newer 发表于 2016-12-4 21:34

你的回答很搞笑，我知道干各个行业的用的都不一样，但是你用的在这个地球上只有你一个人用吗，

13993359550

panliang9 发表于 2016-12-5 13:25

谢谢大侠分享正义之士呀