我使用时和楼上是一样的，不知道什么原因
本帖最后由 lee50310 于 2021-10-31 03:24 编辑
bai2000 发表于 2021-10-30 21:47
我使用时和楼上是一样的，不知道什么原因
修正一些參數 ,已在繁體cad2108測試ok
請重新下載 更新檔pbom8a.lsp
測試看看 ,若有問題請再告知
本帖最后由 lee50310 于 2021-10-31 18:54 编辑
czb203 发表于 2021-10-30 20:35
楼主看看什么情况，用不了了～
修正一些參數 ,已在繁體cad2108測試ok
請重新下載 更新檔pbom8a.lsp
測試看看 ,若有問題請再告知
CAD2016上还是没反应的
本帖最后由 lee50310 于 2021-11-1 18:27 编辑
bai2000 发表于 2021-10-31 11:56
CAD2016上还是没反应的
簡體版cad2016 版本不會太低 ,因該是有支援 圖塊遮罩功能
你先試試在cad command下輸入指令xclip ; (圖塊遮罩的指令)
看看是否有接受此指令
出現 --->> 選取物件:
表示有支援圖塊遮罩功能
若出現不明指令表示 你所使用的CAD 並沒有支援
還有我7樓有提出1個地方需要修改所提供測試圖檔 的圖層名稱 "圖框層"為繁體字 需刪掉 重新輸入為簡體"圖框層"
與DCL對畫框的外框圖層名字體及名稱需一致
此地方要注意程式才能正確執行
本帖最后由 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-10-28 12:50
試過了外框彼此部份重疊,塊遮罩分圖沒問題,如動態圖所示
如果是这样呢 图框不仅重叠 还旋转了角度
本帖最后由 lee50310 于 2021-11-2 07:45 编辑
依然小小鸟 发表于 2021-11-1 08:54
如果是这样呢 图框不仅重叠 还旋转了角度
這個旋轉角度 ,目前沒有支援
lee50310 发表于 2021-11-1 18:58
這個旋轉角度 ,目前沒有支援
希望能增加这个旋转角度的支持因为我打印出来的图 线路是水平的才方便审阅 因此不可避免图框旋转角度 跟线路保持平行关系
我的地形图，裁剪后木有线了请问什么情况？