<*** 利用塊遮罩實現分圖功能 ***>>

lee50310

要實現塊遮罩分圖功能步驟及注意事項:     (做法可參考所提共的測試圖檔 test_ab.dwg)
1.首先要把預分圖的 圖檔整個做成塊 取塊名不拘 如圖a1
2.在塊上依序製做分圖圖框 顏色不拘 但圖層需獨立 圖層名可自取,名稱需跟 對畫框上的圖層外框取名一致 如圖a2
3. 遮罩外框需為封閉式的多段線(pline) 或 矩形框 不可為 一般線 (line)
4. 要做遮罩分圖 (或 二次排圖) 的插入點 不可 與  主體位置重疊  需離一段距離
5.可在圖框內 加上 (或不加) 文字數字  輔助排序後查看 順位 ,要出圖前可刪除此數字 如圖a3

6.載入塊遮罩分圖程式 執行指令:pbom

此帖為舊版, 新版請移至下面聯結

遮罩塊分圖+布局



;--------------------------------------------
最新 ------ 更新檔 pbom9A
1.新增支援浩辰CAD2021                (更新日期 2021/11/06日)   請參考ˋ48樓動態圖


;-------------------------------------  
修正檔 pbom9
1. 新增支援圖形旋轉角度, 方便看圖    (更新日期 2021/11/04日)   請參考39樓動態圖
2.外框圖層名改採 以DCL對話框設定為主 若與圖檔圖外框層名不一致時
   則圖檔外框層名會被替換

;------------------------------------
修正檔 pbom8b
1.修復程式中兩個地方 , 26樓有說明原因 (修復日期 2021/10/31日)  

lee50310

依然小小鸟 发表于 2021-11-6 13:35
哦 这样前提必须做成block会不会不太方便 因为图纸需要经常修改 而且增减东西

恩! 的確效率不高 ! 我也是剛接觸這個 塊遮罩指令xclip 對於如何使用還不是很清楚,上網參考其用法,大部分大都是這樣用 ,所以誤以為這指令就只能這麼用

這樣做太浪費時間 了 不是很好,經過反覆的思索,終於想到一個解決的辦法!

做法剛好跟現在的相反  ,就是改成不要做成大圖塊,在原本的大圖上
改以每個粉色的分圖外框為主去框選所要的範圍
然後 (copy to block to 塊遮罩) 也就是說只把框選到的物體複製做成小圖塊再轉小遮罩塊
如此 做成 10個 分圖也只是 10個小遮罩圖塊 與原本的做法相比
在處理速度會快上好幾10倍,果不其然 這個想法沒有錯

你只要把原本 pbom9.LSP 或 pbom9A.LSP 的程式稍為修改幾個地方,再新增一兩個功能即可
經過 這兩天的調整測試 效果非常好, 有下載到程式碼的裡面的指令功能其註解都標得很清楚
有興趣的話,可以比照這個方法 ,先試著改改看喔!

lee50310

修復程式中兩個地方  (defun Copy_individually (ALL_lst_pp) ....) 及(defun move_individually (ALL_lst_pp) ........)找到這兩個 函式  將內容內的


         (setq ea  (ssname ssa 0))
         (setq ssb (ssget "c" inst_point inst_point '((0 . "LWPOLYLINE") (8 . "圖框層") (70 . 1))) )   ----------(修改此行)
         (setq eb  (ssname ssb 0))

   一起改為  
      (setq ssb  (ssget "_C" inst_point inst_point  (list (cons 0 "LWPOLYLINE") (cons 8 b2_key) (cons 70 1)) ))


錯誤的原因是因為 當使用者 外框的圖層名 不使用內定 而改自訂時  
程式又會抓取內定名稱 , 故會造成抓取失敗 而中斷程式 如圖所示
修正後就 ok 了 ,請自行更改 或 下載 最新修正版 pbomb.lsp

lee50310

二次排圖功能
下載附件打不開, 請至 9樓  下載修復程式

lrd1861

999999

p-3-ianlcc

不錯，讚喔！
謝謝你的分享！

bai2000

操作没成功，大家能用么？

lee50310

bai2000 发表于 2021-10-24 15:41
操作没成功，大家能用么？

程式在 繁體版cad2018 測試ok
使用簡體版 程式 需注意 !!
  所提供測試 test_ab.dwg 內的圖檔  外框圖層名 "圖框層"  為繁體字
   需重新輸入為 簡體字  才會與對話框圖層字體一致  否則會出現  "圖層中未找到外框線的圖層名,請重新輸入!!"  的訊息!


若不是上述問題   
請問你操作上有出現什麼問題嗎?  請略說一下問題?  

szhorse

test_ab.dwg 打不开，是不是加密了

lee50310

szhorse 发表于 2021-10-25 15:23
test_ab.dwg 打不开，是不是加密了

圖檔 .dwg ,壓縮檔 .rar  下載附件打不開 , 這是論壇本身的問題 所造成

下面連結有說明:

http://bbs.mjtd.com/thread-182456-1-1.html


請用 tryhi 大大所寫  tt.lsp 修復程式

執行指令:tt     然後選剛剛下載打不開的檔案

例: test_ab.dwg   則會產生修復檔   test_ab_new.dwg
     將舊檔 刪除 用修復檔 test_ab_new.dwg 開啟即可

ynhh

大师的能力超高
大师如方便的话
请您帮我看看这个贴子
http://bbs.mjtd.com/thread-171547-1-1.html
求三维实体表面与空间直线的交点
谢谢您