[分享] 圖塊置換程式

見今日得閒, 試寫左依個程式~~大家應該都會用到,
所以o係度分享比大家~~
我未學識點post 圖片, 望見諒

(defun c:bbb(/ oldsnap en nn sdata i entype old-list)
 (setvar "cmdecho" 0)
 (setq oldsnap (getvar "osmode"))
 (setvar "osmode" 0)
 (princ "Select Old Block(s) to change:")
 (setq en (ssget))
 (setq nn (assoc 2 (entget (car (entsel "\nSelect New Block:")))))
 (setq i 0)
 (repeat (sslength en)
   (setq sdata (entget (ssname en i)))
   (setq entype (cdr (assoc 0 sdata)))
   (if (= entype "INSERT")
     (progn
(setq old-list (assoc 2 sdata))
(setq sdata (subst nn old-list sdata))
(entmod sdata)
(setq i (1+ i)))))
 (setvar "osmode" oldsnap)
 (prin1))

樓主好
我是因為在網上找尋可以快速置換圖塊的LISP然後在虹翔看到您的帖子
沒想到您也有在這邊發帖
經過測試後確認可用無誤
這邊也有提供類似功能的LISP不過方向剛好相反
這邊的是先點選來源圖塊A,然後框選到的圖塊都會置換為圖塊A
你的LISP則是先框選想置換的圖塊,然後點選圖塊A,剛剛框選的圖塊全數置換為圖塊A
簡單講就是寫程式的思維是反向
但達到一樣的目的

感謝無私分享

哈哈, 這個論壇好像熱鬧一點~
所以我便將程式分享比大家~
幫到大家, 我自己都開心~

好用...太好用了....不簡單

的確很好用，謝謝分享
學LISP就是要多看看別人的程式，再修改成適合自己使用的程式，但要心懷感激哦!

謝謝您的分享

還不懂這個lisp的意思，下載來使用看看。

感謝分享

多謝分享 非常實用~

感謝樓主分享

我想請教一個問題，為什麼我只要打BBB使用這個功能，我的物件鎖點功能就會關閉，我物件鎖點OSMODE設4159,每次打快捷鍵BBB物件鎖點就會關閉，設定值會變成0，有高手知道是什麼原因嗎？