[已解決]自動分類圖層

由 **白金之星** 2010-06-15, 15:13

之前有大大提供一"自動分類圖層"的程式
我在別的網站上也有看過
但是
1.是不是我中了所謂的"ACAD.LSP"的毒,所以不能用了
2.本網站所提供的是.VLX檔,別的網站是如下做成.LSP,目前我兩種都不行
本站大大可在提供一次嗎??
以下是從別的網站貼過來的

(defun c:CdimLayer ()
(setvar "CmdEcho" 0)
(CClay "DIM" 3 "DIMENSION") ;; 這句表示:將DIMENSION 物件歸類到 3 綠色，DIM 圖層
(CClay "Text" 1 "Text");; 這句表示:將 Text 物件歸類到 1 紅色，圖層 Text
(CClay "Text" 1 "Mtext");; 這句表示:將 MText 物件歸類到 1 紅色，圖層 Text
(CClay "Dim" 3 "Leader");; 這句表示:將 Leader 物件歸類到 3 綠色，圖層 Dim
(CClay "Dim" 3 "Mleader");;這句表示:將 MLeader 物件歸類到 3 綠色，圖層 Dim
;;(CClay "Hatch" 55 "Hatch")

(setvar "CmdEcho" 1)
(prompt "\\n =^.^= =^.^= =^.^=")
(princ)
)

;;************CClay (使用者勿修改副程式)******************
(defun CClay (layname cc sObjTyp) ;;; layname 是圖層名稱，CC 是指訂圖層顏色，sObjtype 是物件類別(群碼索引值為 0)
(if (= nil (tblsearch "layer" layname))
(command "-layer" "n" layname "c" cc layname "")
)
(setq SS (ssget "x" (list (cons 0 sObjTyp) (cons 410 "Model"))))
(if (and (/= nil ss) (/= 0 (sslength SS)))
(command "chprop" SS "" "la" layname "")
)
(princ)
)

把 Lisp 複製貼到文字檔，存成 Cdimlayer.lsp，放到AutoCAD 的搜尋路徑下(或設定搜尋路徑) 接著 .... 在工具載入應用程式中載入，或同一個對話視窗中在套件加入該Lsip ，接著做一個按鈕，按一下.... 呼叫Lisp 的指令都是在命令列輸入

(Defun c:"這個部份" 這個Lisp 是 (defun c:CdimLayer

作成按鈕巨集是 ^C^C_CdimLayer