自己制作的一个生成目录的小插件，发源码

那个猎人

帖子作废，新帖在http://bbs.mjtd.com/thread-170197-1-1.html   

自己制作目录一直是用提取属性块里的文字到Excel，然后在Excel里整理完毕后，再复制到CAD里面，略有些复杂，后来看了论坛里的帖子http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96502，效果挺好，但是存在一些小问题，比如不同前缀的图号可能不是按照预想的顺序排列，不同图纸里的目录合并需要手动，图幅需要手动填写。
    本人是新手，费了好大重新做了生成目录，另外加了一个合并目录功能。与前面相比，完善功能如下:
命令：SCML（生成目录）
    1.可以同时提取多种图名的图框块，需要这些图框块均需具有相同的图名图号属性
    2.可以自动判断图纸幅面,需要图框块是1:1的比例制作
备注：目录字体分别采用的是"D_宋体" "D_Hztxt"，如果没有这两种字体，会改为"Standerd"字体，请手动修改字体名称
命令：HBML（合并目录）作为调整目录必不可少的一个功能，用于
    1.将不同图纸里提取的目录合并为一个目录
    2.同一张图里面不同前缀的图号因字母顺序自动排序，未达到预想顺序，手动移动文字，重新整合
好像少上传了一个函数

• ;;[功能]提取属性块指定属性值
• (defun Get_AttValue(blockObj attTag / attblock attvalue)
•   (setq attBlock (vl-catch-all-apply '(lambda () (vlax-invoke blockObj 'GetAttributes ) )))
•   (if (not (vl-catch-all-error-p attBlock))
•     (setq attValue (cdr (assoc attTag (mapcar '(lambda (x)  (cons (vla-get-TagString x)(vla-get-TextString x) )  ) attBlock )) )   )
•   )
•   attValue
• )
  
  (defun NthA2B(lst a b / i partlst)
          (setq partLst (list) i a)
          (repeat (1+ (- b a))
                  (if (nth i lst)
                          (progn
                                  (setq partLst (append partLst (list (nth i lst))))
                          )
                  )
                  (setq i (1+ i))
          )
          partLst
  )
  

上图:

那个猎人

zyceder 发表于 2017-11-18 22:36
弄了一个半成品上来，弄出了一堆问题，还好意思要钱？发了一堆程序吗上来，就不能更新一下程序，以为谁都懂 ...

不好意思给您带来麻烦了，其实更新过帖子
http://bbs.mjtd.com/thread-170197-1-1.html

zyceder

弄了一个半成品上来，弄出了一堆问题，还好意思要钱？发了一堆程序吗上来，就不能更新一下程序，以为谁都懂吗？

V2E

很好的插件，谢谢分享

F4164789

为什么必须要求图框属性块是1：1的比例，图框有可能是根据零件大小改变的，有没有办法按照图框属性块的指定的类别统计，我在FOX里的图框都不是1：1的，不知道是怎么统计出零件件号和版次的，咱技术有限写不出复杂程序

那个猎人

F4164789 发表于 2015-9-18 18:11
为什么必须要求图框属性块是1：1的比例，图框有可能是根据零件大小改变的，有没有办法按照图框属性块的指定 ...

不是必须1:1的比例啦，我的意思是图框是由1:1制作的然后放大，因为有些设计院1倍的图框就是100倍的大小，这样子就不好确认图幅。
你的图框也可以做，可以发个想要的目录样式看看

lengyan

不错，挺方便的！！

gaics

新手都喜欢做目录吗，哈哈。我写那个的时候也是新手，借鉴很多前辈的程序才弄出来的。

myfrankie

怎么用。能不能发 一个图框文件上来

dragonsly

把所以属性值都提取出来更好

笨笨熊007

楼主，上传一个测试文件吧，老是出错

evayleung

好东西就是要顶一顶。。。虽然我没币下载。

lingduwx

这个不错顶一个