<*** 利用塊遮罩實現分圖功能 ***>>
本帖最后由 lee50310 于 2021-11-22 16:29 编辑要實現塊遮罩分圖功能步驟及注意事項: (做法可參考所提共的測試圖檔 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-8 11:12 编辑
依然小小鸟 发表于 2021-11-6 13:35
哦 这样前提必须做成block会不会不太方便 因为图纸需要经常修改 而且增减东西
恩! 的確效率不高 ! 我也是剛接觸這個 塊遮罩指令xclip 對於如何使用還不是很清楚,上網參考其用法,大部分大都是這樣用 ,所以誤以為這指令就只能這麼用
這樣做太浪費時間 了 不是很好,經過反覆的思索,終於想到一個解決的辦法!
做法剛好跟現在的相反,就是改成不要做成大圖塊,在原本的大圖上
改以每個粉色的分圖外框為主去框選所要的範圍
然後 (copy to block to 塊遮罩) 也就是說只把框選到的物體複製做成小圖塊再轉小遮罩塊
如此 做成 10個 分圖也只是 10個小遮罩圖塊 與原本的做法相比
在處理速度會快上好幾10倍,果不其然 這個想法沒有錯
你只要把原本 pbom9.LSP 或 pbom9A.LSP 的程式稍為修改幾個地方,再新增一兩個功能即可
經過 這兩天的調整測試 效果非常好, 有下載到程式碼的裡面的指令功能其註解都標得很清楚
有興趣的話,可以比照這個方法 ,先試著改改看喔!
本帖最后由 lee50310 于 2021-10-31 22:35 编辑
修復程式中兩個地方(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 于 2021-11-4 22:36 编辑
二次排圖功能
下載附件打不開, 請至 9樓下載修復程式
不錯，讚喔！
謝謝你的分享！ 操作没成功，大家能用么？ 本帖最后由 lee50310 于 2021-10-24 20:52 编辑
bai2000 发表于 2021-10-24 15:41
操作没成功，大家能用么？
程式在 繁體版cad2018 測試ok
使用簡體版 程式 需注意 !!
所提供測試 test_ab.dwg 內的圖檔外框圖層名 "圖框層"為繁體字
需重新輸入為 簡體字才會與對話框圖層字體一致否則會出現"圖層中未找到外框線的圖層名,請重新輸入!!"的訊息!
若不是上述問題
請問你操作上有出現什麼問題嗎?請略說一下問題?
test_ab.dwg 打不开，是不是加密了 本帖最后由 lee50310 于 2021-11-13 14:03 编辑
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 開啟即可
大师的能力超高
大师如方便的话
请您帮我看看这个贴子
http://bbs.mjtd.com/thread-171547-1-1.html
求三维实体表面与空间直线的交点
谢谢您