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

[已解決]請問如何寫程式更改原圖層名稱

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

[已解決]請問如何寫程式更改原圖層名稱

發表 由 swcforest 于 2009-12-21, 06:49

請教各位大大
因為在測量圖中 有太多不必要的表示圖層
例如 圖中有一結構物線 圖層是370 線型 BLAYER 顏色 BLAYER
我想寫一個程式 讓他能變成 圖層為既有結構物 線型 HIDDEN 顏色 8號色
要如何表示
感謝大大相挺回覆


感激張老師熱心指導
小弟我萬分感謝
還望以後多多指導
謝謝


(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中"r"似乎有誤 能否請老師確認一下


swcforest 在 2009-12-24, 14:32 作了第 2 次修改

swcforest
初級會員
初級會員

文章總數 : 104
年齡 : 38
來自 : 台中市南區
職業 : 土木工程設計
愛好 : 遊山玩水及AutoLISP
個性 : 開朗活潑
使用年資 : 六七年了
使用版本 : AutoCAD 2016
積分 : 1
經驗值 : 3595
威望值 : 13
注冊日期 : 2008-07-27
男 天秤座 羊

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 張譽璋 于 2009-12-22, 09:58

你可試試下列這段程式
代碼:
(defun c:chalaycl ()
  (setvar "cmdecho" 0)
  (defun aa ()
    (setq lan (getstring "\n輸入欲修改之圖層名稱: "))
    (setq lab (getstring "\n輸入新圖層名稱: "))
    (setq nla (tblsearch "layer" lan))
    (setq nlb (cdr (assoc 2 nla)))
  )
  (aa)
  (if (= nlb lan) (command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
                  (while (/= nlb lan) (alert "找不到此圖層!!\n請重新輸入圖層名稱")
                                      (aa)
                                      (if (= nlb lan) (command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab ""))
                  )
  )
  (setvar "cmdecho" 1)
  (princ)
)

張譽璋
榮譽顧問
榮譽顧問

文章總數 : 303
年齡 : 47
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 4912
威望值 : 624
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
藍鵲12號
男 處女座 狗

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 張譽璋 于 2009-12-25, 06:52

(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中的"R"式更名模式,你可能使用舊版本所以無法使用更名模式,
可以確認的是2009,2010版有此選項,如果使用舊版就將此段刪除即可

張譽璋
榮譽顧問
榮譽顧問

文章總數 : 303
年齡 : 47
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 4912
威望值 : 624
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
藍鵲12號
男 處女座 狗

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 swcforest 于 2009-12-26, 14:01

感謝老師指導
已解決問題
果然是新版本新優勢

swcforest
初級會員
初級會員

文章總數 : 104
年齡 : 38
來自 : 台中市南區
職業 : 土木工程設計
愛好 : 遊山玩水及AutoLISP
個性 : 開朗活潑
使用年資 : 六七年了
使用版本 : AutoCAD 2016
積分 : 1
經驗值 : 3595
威望值 : 13
注冊日期 : 2008-07-27
男 天秤座 羊

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 avene 于 2011-08-17, 07:58

感謝分享這個解決方法~果然好用!
avatar
avene
一般會員
一般會員

文章總數 : 61
年齡 : 39
來自 : 桃園
職業 : 製圖
愛好 : 羽毛球
個性 : 內向
使用年資 : 5
使用版本 : 2009
經驗值 : 2497
威望值 : 9
注冊日期 : 2011-05-13
女 巨蟹座 馬

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 judyyai 于 2012-10-08, 08:10

張譽璋 寫到:(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中的"R"式更名模式,你可能使用舊版本所以無法使用更名模式,
可以確認的是2009,2010版有此選項,如果使用舊版就將此段刪除即可

請問張老師 AutoCAD 2010執行這程式後,有以下問題
代碼:
指令: _layer
指令:
指令:
指令: _appload chalaycl.lsp  成功載入。


指令: ; 錯誤: 異常輸入清單

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 張譽璋 于 2012-10-08, 10:53

judyyai 你先檢查你的程式內容是否有哪一段程式漏掉右刮號,
通常漏掉右刮號會出現異常輸入清單的錯誤訊息!程式我測試過了
沒有問題。

張譽璋
榮譽顧問
榮譽顧問

文章總數 : 303
年齡 : 47
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 4912
威望值 : 624
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
藍鵲12號
男 處女座 狗

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 judyyai 于 2012-10-08, 14:00

張譽璋 寫到:judyyai 你先檢查你的程式內容是否有哪一段程式漏掉右刮號,
通常漏掉右刮號會出現異常輸入清單的錯誤訊息!程式我測試過了
沒有問題。

好的!謝謝張老師~明天再回覆你
檔案放在公司~

果然~是少複製一些數據
2010也測試成功


judyyai 在 2012-10-09, 14:24 作了第 2 次修改

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [已解決]請問如何寫程式更改原圖層名稱

發表 由 tan866 于 2012-10-09, 14:16

感謝張老師分享程序
AUTOCAD 2011測試O.K.
avatar
tan866
初級會員
初級會員

文章總數 : 67
年齡 : 40
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 2897
威望值 : 39
注冊日期 : 2010-10-24
藍鵲346號
男 摩羯座 龍

回頂端 向下

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


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