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

bai2000

我使用时和楼上是一样的，不知道什么原因

lee50310

bai2000 发表于 2021-10-30 21:47
我使用时和楼上是一样的，不知道什么原因

修正一些參數 ,已在繁體cad2108測試ok
  請重新下載 更新檔  pbom8a.lsp  
測試看看 ,若有問題請再告知

lee50310

czb203 发表于 2021-10-30 20:35
楼主看看什么情况，用不了了～

修正一些參數 ,已在繁體cad2108測試ok
  請重新下載 更新檔  pbom8a.lsp   
測試看看 ,若有問題請再告知

bai2000

CAD2016上还是没反应的

lee50310

bai2000 发表于 2021-10-31 11:56
CAD2016上还是没反应的

簡體版cad2016 版本不會太低 ,因該是有支援 圖塊遮罩功能

你先試試在cad command下輸入指令  xclip          ; (圖塊遮罩的指令)
看看是否有接受此指令
出現 --->>    選取物件:
表示有支援圖塊遮罩功能
若出現不明指令表示 你所使用的CAD 並沒有支援

還有我7樓有提出1個地方需要修改所提供測試圖檔 的圖層名稱 "圖框層"  為繁體字 需刪掉 重新輸入為簡體  "圖框層"
與DCL對畫框的外框圖層名  字體及名稱需一致
此地方要注意程式才能正確執行

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 发表于 2021-10-28 12:50
試過了外框彼此部份重疊,塊遮罩分圖沒問題,如動態圖所示

如果是这样呢 图框不仅重叠 还旋转了角度  

lee50310

依然小小鸟 发表于 2021-11-1 08:54
如果是这样呢 图框不仅重叠 还旋转了角度

這個旋轉角度 ,目前沒有支援

依然小小鸟

lee50310 发表于 2021-11-1 18:58
這個旋轉角度 ,目前沒有支援

希望能增加这个旋转角度的支持  因为我打印出来的图 线路是水平的才方便审阅 因此不可避免图框旋转角度 跟线路保持平行关系

yanshengjiang

我的地形图，裁剪后木有线了  请问什么情况？