2013年1月29日 星期二

讀取所有外部參考的名稱

今天為了想要分離哪些圖層及圖塊是外部參考帶進來的,搞了好幾個小時就是找不到有外部參考這個物件,想想要是有個外部參考物件那麼不是很簡單嗎?但是翻遍說明與 google 就是沒有,其實也不敢說是 google 找不到,就是英文能力太差了,大多時候都是有看沒有懂。

於是後來的解決辦法就是先找出所有外部參考的名稱在去一一跟圖層與圖塊做比較。

    Dim xblk As AcadBlock
    For Each xblk In ThisDrawing.Blocks
        If xblk.IsXRef Then Debug.Print xblk.Name
    Next