教學課程
加入贊助
聯絡我們![[已解決]請問如何寫程式更改原圖層名稱 Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[已解決]請問如何寫程式更改原圖層名稱 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[已解決]請問如何寫程式更改原圖層名稱 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[已解決]請問如何寫程式更改原圖層名稱 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[已解決]請問如何寫程式更改原圖層名稱 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[已解決]請問如何寫程式更改原圖層名稱 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[已解決]請問如何寫程式更改原圖層名稱 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[已解決]請問如何寫程式更改原圖層名稱 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[已解決]請問如何寫程式更改原圖層名稱 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[已解決]請問如何寫程式更改原圖層名稱 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[已解決]請問如何寫程式更改原圖層名稱 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[已解決]請問如何寫程式更改原圖層名稱 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[已解決]請問如何寫程式更改原圖層名稱 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[已解決]請問如何寫程式更改原圖層名稱
5 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
![[已解決]請問如何寫程式更改原圖層名稱 Empty](https://2img.net/i/empty.gif)
[已解決]請問如何寫程式更改原圖層名稱
由 swcforest 周一 21 12月 - 14:49
請教各位大大
因為在測量圖中 有太多不必要的表示圖層
例如 圖中有一結構物線 圖層是370 線型 BLAYER 顏色 BLAYER
我想寫一個程式 讓他能變成 圖層為既有結構物 線型 HIDDEN 顏色 8號色
要如何表示
感謝大大相挺回覆
感激張老師熱心指導
小弟我萬分感謝
還望以後多多指導
謝謝
(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中"r"似乎有誤 能否請老師確認一下
因為在測量圖中 有太多不必要的表示圖層
例如 圖中有一結構物線 圖層是370 線型 BLAYER 顏色 BLAYER
我想寫一個程式 讓他能變成 圖層為既有結構物 線型 HIDDEN 顏色 8號色
要如何表示
感謝大大相挺回覆
感激張老師熱心指導
小弟我萬分感謝
還望以後多多指導
謝謝
(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中"r"似乎有誤 能否請老師確認一下
swcforest 在 周四 24 12月 - 22:32 作了第 2 次修改
swcforest- 初級會員
- 文章總數 : 113
年齡 : 45
來自 : 台中市南區
職業 : 土木工程設計
愛好 : 遊山玩水及AutoLISP
個性 : 開朗活潑
使用年資 : 六七年了
使用版本 : AutoCAD 2016
積分 : 1
經驗值 : 6244
威望值 : 10
注冊日期 : 2008-07-27
回復： [已解決]請問如何寫程式更改原圖層名稱
由 張譽璋 周二 22 12月 - 17: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)
)
張譽璋- 榮譽顧問
- 文章總數 : 304
年齡 : 54
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 7521
威望值 : 641
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
回復： [已解決]請問如何寫程式更改原圖層名稱
由 張譽璋 周五 25 12月 - 14:52
(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中的"R"式更名模式,你可能使用舊版本所以無法使用更名模式,
可以確認的是2009,2010版有此選項,如果使用舊版就將此段刪除即可
其中的"R"式更名模式,你可能使用舊版本所以無法使用更名模式,
可以確認的是2009,2010版有此選項,如果使用舊版就將此段刪除即可
張譽璋- 榮譽顧問
- 文章總數 : 304
年齡 : 54
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 7521
威望值 : 641
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
swcforest- 初級會員
- 文章總數 : 113
年齡 : 45
來自 : 台中市南區
職業 : 土木工程設計
愛好 : 遊山玩水及AutoLISP
個性 : 開朗活潑
使用年資 : 六七年了
使用版本 : AutoCAD 2016
積分 : 1
經驗值 : 6244
威望值 : 10
注冊日期 : 2008-07-27
avene- 一般會員
- 文章總數 : 61
年齡 : 46
來自 : 桃園
職業 : 製圖
愛好 : 羽毛球
個性 : 內向
使用年資 : 5
使用版本 : 2009
經驗值 : 5086
威望值 : 9
注冊日期 : 2011-05-13
回復： [已解決]請問如何寫程式更改原圖層名稱
由 judyyai 周一 8 10月 - 15:10
張譽璋 寫到:(command "-layer" "R" lan lab "L" "hidden" lab "c" "8" lab "")
其中的"R"式更名模式,你可能使用舊版本所以無法使用更名模式,
可以確認的是2009,2010版有此選項,如果使用舊版就將此段刪除即可
請問張老師 AutoCAD 2010執行這程式後,有以下問題
- 代碼:
指令: _layer
指令:
指令:
指令: _appload chalaycl.lsp 成功載入。
指令: ; 錯誤: 異常輸入清單
____________________________________________________________________________________
![[已解決]請問如何寫程式更改原圖層名稱 BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
![[已解決]請問如何寫程式更改原圖層名稱 Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30445
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復： [已解決]請問如何寫程式更改原圖層名稱
由 張譽璋 周一 8 10月 - 17:53
judyyai 你先檢查你的程式內容是否有哪一段程式漏掉右刮號，
通常漏掉右刮號會出現異常輸入清單的錯誤訊息！程式我測試過了
沒有問題。
通常漏掉右刮號會出現異常輸入清單的錯誤訊息！程式我測試過了
沒有問題。
張譽璋- 榮譽顧問
- 文章總數 : 304
年齡 : 54
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 7521
威望值 : 641
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
回復： [已解決]請問如何寫程式更改原圖層名稱
由 judyyai 周一 8 10月 - 21:00
張譽璋 寫到:judyyai 你先檢查你的程式內容是否有哪一段程式漏掉右刮號，
通常漏掉右刮號會出現異常輸入清單的錯誤訊息！程式我測試過了
沒有問題。
好的!謝謝張老師~明天再回覆你
檔案放在公司~
果然~是少複製一些數據
2010也測試成功
judyyai 在 周二 9 10月 - 21:24 作了第 2 次修改
____________________________________________________________________________________
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30445
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
tan866- 初級會員
- 文章總數 : 79
年齡 : 47
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 5554
威望值 : 47
注冊日期 : 2010-10-24
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章