[已解決]將指定範圍內圖形快速還原到(0圖層-顏色ByLayer-線型ByLayer-線粗ByLayer)

因應客戶圖形，圖面內有許多複雜圖層，顏色不依，線型不依，線粗也不依，每次都必須一項一項改，再用MA指令複製性質....但因為圖形太多，每次都必須花很多時間修改，因為圖形複雜不能全部圖形改成預設圖層，只能部份修改。
有辦法幫我設計這功能的LISP嗎？
還是有類似指令!!!可以快速還原圖形為預設圖層!!!

請您先試試使用下列兩種選取方式做條件式選取

_qselect快速選取 跟 Fi 篩選

如果有辦法做到.....則可以寫成lisp

PS:其是這兩種選取功能能用的話,也不太需要在設計lisp了

是否有試過「設定為依圖層」SETBYLAYER指令。
可以指定變更為「依圖層」的性質，包括顏色、線型、線粗和材料。

Tiger&蘋果爸 寫到:是否有試過「設定為依圖層」SETBYLAYER指令。
可以指定變更為「依圖層」的性質，包括顏色、線型、線粗和材料。

有！且目前也是利用這方法，只不過要先把圖層改為0圖層，因為這指令無法還原0圖層！

選取方式不限制，快速篩選或F或WP或CP都沒差，只要能輸入一個熱鍵，能選取一定範圍圖形，還原到0圖層
目前我只能寫SETBYLAYER指令Y Y,但還是要手動將圖形歸到0圖層

不知道是不是我理解有誤..否則.用CHANGE (性質P) .將顏色.線性.線粗..圖層.是可以一次修改到位的.還是你有特別的過濾或歸類方式..須要用到LISP

shenhung 寫到:不知道是不是我理解有誤..否則.用CHANGE (性質P) .將顏色.線性.線粗..圖層.是可以一次修改到位的.還是你有特別的過濾或歸類方式..須要用到LISP

恩！可能是我表達有誤，要還原圖層、顏色、線性、線粗有很多方法，只是量多的話，這些步驟都是很花時間的，我想要將這些步驟集中成一個按鈕或是一個熱鍵，以便每開一個圖檔就可輕鬆達到效果！

例如我常用的一個指令^C^C'_-scalelistedit _r _y _e
我就設成一個按鈕，一個快速指令，可以省下一些時間！

;;2012-07-09 By PizG
;;將物件移到0層，且性質改成ByLayer
(defun c:chg0(/ sl)
(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
(princ)
)

pizg 寫到:;;2012-07-09 By PizG
;;將物件移到0層，且性質改成ByLayer
(defun c:chg0(/ sl)
(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
(princ)
)

哇！好厲害！這語法我沒學到耶！晚點試試看！ 先感謝囉！

pizg 寫到:;;2012-07-09 By PizG
;;將物件移到0層，且性質改成ByLayer
(defun c:chg0(/ sl)
(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
(princ)
)

經過測試後，該lisp完全符合我的需求，但我呼叫指令改QB (QuickBylayer)
再另外新增工具列，新增按鈕指令，巨集輸入 (if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
也可以正常使用！

想請問，這lisp能再加入炸開功能嗎，就是還原圖層+炸開圖形？

pc200098 寫到:想請問，這lisp能再加入炸開功能嗎，就是還原圖層+炸開圖形？

可以的, 請到下面網頁下載程式.
http://tw.myblog.yahoo.com/rain-fall/archive?l=f&id=19

pizg 寫到:

pc200098 寫到:想請問，這lisp能再加入炸開功能嗎，就是還原圖層+炸開圖形？

可以的, 請到下面網頁下載程式.
http://tw.myblog.yahoo.com/rain-fall/archive?l=f&id=19

真是！太甘心了，好用耶，謝謝pizg大，順便問一下，這炸開只能炸第一層吧，圖塊中的圖塊，還要再炸一次吧？

感謝 pizg 分享實用程序!
使用很方便喔!

pizg 寫到:

pc200098 寫到:想請問，這lisp能再加入炸開功能嗎，就是還原圖層+炸開圖形？

可以的, 請到下面網頁下載程式.
http://tw.myblog.yahoo.com/rain-fall/archive?l=f&id=19

試用過 正常可用
但只能炸開第一層圖塊再還原,多層圖塊無法執行(但真的很好用!!!)

附帶一問
附檔名VLX要如何開啟編修?用記事本開啟變一堆亂碼
還有 要如何修改程式名?(試改檔名為 QB.VLX 無法用 QB叫出應用程式)
因為原程式名 objreset好長,想改短一點

pizg 寫到:;;2012-07-09 By PizG
;;將物件移到0層，且性質改成ByLayer
(defun c:chg0(/ sl)
(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
(princ)
)

請問這段要如何載入到autocad裡?
我試的方式是講內容copy到記事本
存檔後改檔名為 qb.lsp
載入後 執行 qb 它跟我說 不明指令

請教教我哪做錯

更正:

我改成功囉!!!
剛看蘋果爸分享 圖塊計算 那篇
仿格式改一下竟然成功把指令名改掉囉
太感動!!!特地來回報一下

lingo_st 寫到:

pizg 寫到:

pc200098 寫到:想請問，這lisp能再加入炸開功能嗎，就是還原圖層+炸開圖形？

可以的, 請到下面網頁下載程式.
http://tw.myblog.yahoo.com/rain-fall/archive?l=f&id=19

試用過 正常可用
但只能炸開第一層圖塊再還原,多層圖塊無法執行(但真的很好用!!!)

附帶一問
附檔名VLX要如何開啟編修?用記事本開啟變一堆亂碼
還有 要如何修改程式名?(試改檔名為 QB.VLX 無法用 QB叫出應用程式)
因為原程式名 objreset好長,想改短一點

(defun c:qb()
(c:objReset)
(princ)
)

pizg 寫到:

lingo_st 寫到:

pizg 寫到:

pc200098 寫到:想請問，這lisp能再加入炸開功能嗎，就是還原圖層+炸開圖形？

可以的, 請到下面網頁下載程式.
http://tw.myblog.yahoo.com/rain-fall/archive?l=f&id=19

試用過 正常可用
但只能炸開第一層圖塊再還原,多層圖塊無法執行(但真的很好用!!!)

附帶一問
附檔名VLX要如何開啟編修?用記事本開啟變一堆亂碼
還有 要如何修改程式名?(試改檔名為 QB.VLX 無法用 QB叫出應用程式)
因為原程式名 objreset好長,想改短一點

(defun c:qb()
(c:objReset)
(princ)
)

感謝回應,已經解決, 程式名稱可修改無誤 ,特此回報

lingo_st 寫到: 感謝回應,已經解決, 程式名稱可修改無誤 ,特此回報

也可以透過自訂指令別名（PGP）的方式喔～

lingo_st 寫到:

pizg 寫到:;;2012-07-09 By PizG
;;將物件移到0層，且性質改成ByLayer
(defun c:chg0(/ sl)
(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
(princ)
)

AutoCAD~工具~auto lisp 直接將紅色區域與法輸入即可使用，另可修改語法中的chg0為欲呼叫語法的快速指令，例如QB，如此作業中直接輸入QB即可呼叫該語法！
另外，如自訂CUI也可新增新指令編輯圖示並命名後在巨集欄裡輸入(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
就可以在工具列新增一個該功能的按鈕！

各位大大好 我有試過剛剛在cui設定巨集
增強屬性編輯器的圖塊 在模型中會變成0圖層 但是在增強屬性編輯器中 圖層並沒有變成0圖層
請問是我操作上出了問題嗎?? (我是在cui設定快捷建 而語法是
(if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))