AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

[已解決]自動分類圖層

上一篇主題 下一篇主題 向下

[已解決]自動分類圖層

發表 由 白金之星 于 2010-06-15, 08: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


白金之星 在 2010-06-17, 03:32 作了第 1 次修改

白金之星
初級會員
初級會員

文章總數 : 232
年齡 : 40
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 3430
威望值 : 3
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
男 白羊座 蛇

回頂端 向下

回復: [已解決]自動分類圖層

發表 由 Tiger&蘋果爸 于 2010-06-15, 11:07

在討論區發表問題時,請在主題前請加入[問題],顏色請指定為[藍色],論壇管理顧問會將您的主題置頂,方便大家即時討論。


[說明]發表主題前,請遵守相關要領!
http://www.autocad-tw.com/forum-f12/topic-t1521.htm

謝謝您的配合~

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64642
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [已解決]自動分類圖層

發表 由 白金之星 于 2010-06-17, 03:30

謝謝
已有大大提供我檔案

白金之星
初級會員
初級會員

文章總數 : 232
年齡 : 40
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 3430
威望值 : 3
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
男 白羊座 蛇

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章