關於貼上為圖塊功能

這是一般轉圖塊程序:抓基準複製→貼上為圖塊

(setq ss1 (ssget))

(setq mono_base (getpoint "\n->請點選基準點:"))

(setvar "osmode" 0)

(vl-cmdf "_.copybase" "_none" mono_base ss1 "")

(vl-cmdf "_.erase" "_single" ss1)

(vl-cmdf "_.pasteblock" "_none" mono_base)

(setvar "osmode" osm) ;將系統變數恢復

但是用這種方式偶爾會出現貼上為圖塊失敗的問題，我會用while循環，但偶爾會出現沒有貼上的問題，這是電腦效能的問題還是CAD本來就會這樣?

有複製但貼上的步驟沒有成功，結果就是選完要轉圖塊的物件後，程序跑一遍，物件就不見了(ss1 被刪除)，但貼上沒有成功。

程序看不出問題點在哪裡，只能想是不是電腦效能的問題。

還是抓點0,0,0不在畫視窗範圍內會出現這個問題?

我覺得應該是先貼上為圖塊後，再執行刪除物件會比較正常
你再試試while循環看看
PS:建議設置OSNAPCOORD，就不用關閉物件鎖點。

代碼:

  (setq mono_base (getpoint "\n->請點選基準點:"))

  (setq ss1 (ssget))

  (setvar "OSNAPCOORD" 1)

  (vl-cmdf "_.copybase" mono_base ss1 "")

  (vl-cmdf "_.pasteblock" mono_base)

  (vl-cmdf "_.erase" "_single" ss1)

Tiger&蘋果爸 寫到:我覺得應該是先貼上為圖塊後，再執行刪除物件會比較正常
你再試試while循環看看
PS:建議設置OSNAPCOORD，就不用關閉物件鎖點。

代碼:

  (setq mono_base (getpoint "\n->請點選基準點:"))

  (setq ss1 (ssget))

  (setvar "OSNAPCOORD" 1)

  (vl-cmdf "_.copybase" mono_base ss1 "")

  (vl-cmdf "_.pasteblock" mono_base)

  (vl-cmdf "_.erase" "_single" ss1)

感謝回復，我再試試看，因為之前也是這個順序，但改到後來變成先刪除再貼上，還是會有這個狀況，我在猜有可能是0,0,0這個點不在當前畫面中，也有試過切換視窗角點，發生頻率會比較少，但還是會有，不知道是哪裡出問題。

使用OSNAPCOORD一樣紀錄舊的值之後再恢復?若沒有恢復是不是只有執行外掛會有影響? 之前看過想說都要記錄跟恢復所以就使用osmode(因為效果一樣，比較好確認有沒有開關到)，若程序使用中有改過osmode還是需要恢復的，這樣osmod和OSNAPCOORD 2個都設置試看看

OSNAPCOORD 我都沒有回復
我都設為 1 對我的所有外掛都沒影響
之後都省去 物件鎖點 歸0 的問題

所以不會影響使用，我想說沒改會不會影響其他它功能。
今天測試過還是會發生問題
不知道是哪裡有問題，我有另一個程序是選物件套圖框，也是用到類似功能，但抓基準複製完->貼上為圖塊->賦予圖塊一個函數名稱
->使用圖塊求範圍->刪除圖塊（使用entdel)
出問題的地方就在貼上為圖塊後賦予圖塊函數名稱（使用entlast)會選取到我上一次插入的圖框中最後一個物件，而不是我新插入的圖塊，不知道是不是entdel的問題，找不出問題點
轉換圖塊也有測試幾次暫時沒有問題，還沒有出現沒有貼上的問題，持續觀察。