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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[已解決]請問如何寫程式更改原圖層名稱 Ioaoe110[已解決]請問如何寫程式更改原圖層名稱 2020-310[已解決]請問如何寫程式更改原圖層名稱 Oiu15010[已解決]請問如何寫程式更改原圖層名稱 2020-211[已解決]請問如何寫程式更改原圖層名稱 Ia15010[已解決]請問如何寫程式更改原圖層名稱 Aizyao10[已解決]請問如何寫程式更改原圖層名稱 Uos15010[已解決]請問如何寫程式更改原圖層名稱 BPl3tjj[已解決]請問如何寫程式更改原圖層名稱 Ziao1510
[已解決]請問如何寫程式更改原圖層名稱 Oo-2-110[已解決]請問如何寫程式更改原圖層名稱 Zuoiy_10[已解決]請問如何寫程式更改原圖層名稱 Aizyao11[已解決]請問如何寫程式更改原圖層名稱 Iyb_1510[已解決]請問如何寫程式更改原圖層名稱 Aoe1-111[已解決]請問如何寫程式更改原圖層名稱 Uos15011[已解決]請問如何寫程式更改原圖層名稱 Aoe2da10[已解決]請問如何寫程式更改原圖層名稱 Aoe2da11[已解決]請問如何寫程式更改原圖層名稱 Aoe10

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

5 posters

向下

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

發表 由 swcforest 2009-12-21, 14:49

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


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


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


swcforest 在 2009-12-24, 22:32 作了第 2 次修改
avatar
swcforest
初級會員
初級會員

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

回頂端 向下

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

發表 由 張譽璋 2009-12-22, 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)
)
avatar
張譽璋
榮譽顧問
榮譽顧問

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

回頂端 向下

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

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

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

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

回頂端 向下

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

發表 由 swcforest 2009-12-26, 22:01

感謝老師指導
已解決問題
果然是新版本新優勢
avatar
swcforest
初級會員
初級會員

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

回頂端 向下

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

發表 由 avene 2011-08-17, 14:58

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

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

回頂端 向下

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

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

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

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


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

____________________________________________________________________________________
[已解決]請問如何寫程式更改原圖層名稱 Ioaoe110 [已解決]請問如何寫程式更改原圖層名稱 Zuoiy_10 [已解決]請問如何寫程式更改原圖層名稱 2020-211 [已解決]請問如何寫程式更改原圖層名稱 Aizyao11 [已解決]請問如何寫程式更改原圖層名稱 Aoe10
[已解決]請問如何寫程式更改原圖層名稱 Aizyao10 [已解決]請問如何寫程式更改原圖層名稱 BPl3tjj.png [已解決]請問如何寫程式更改原圖層名稱 Ziao1510 [已解決]請問如何寫程式更改原圖層名稱 Oo-2-110 [已解決]請問如何寫程式更改原圖層名稱 Aoe1-111
judyyai
judyyai
管理顧問
管理顧問

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

回頂端 向下

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

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

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

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

回頂端 向下

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

發表 由 judyyai 2012-10-08, 21:00

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

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

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


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

____________________________________________________________________________________
[已解決]請問如何寫程式更改原圖層名稱 Ioaoe110 [已解決]請問如何寫程式更改原圖層名稱 Zuoiy_10 [已解決]請問如何寫程式更改原圖層名稱 2020-211 [已解決]請問如何寫程式更改原圖層名稱 Aizyao11 [已解決]請問如何寫程式更改原圖層名稱 Aoe10
[已解決]請問如何寫程式更改原圖層名稱 Aizyao10 [已解決]請問如何寫程式更改原圖層名稱 BPl3tjj.png [已解決]請問如何寫程式更改原圖層名稱 Ziao1510 [已解決]請問如何寫程式更改原圖層名稱 Oo-2-110 [已解決]請問如何寫程式更改原圖層名稱 Aoe1-111
judyyai
judyyai
管理顧問
管理顧問

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

回頂端 向下

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

發表 由 tan866 2012-10-09, 21:16

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[已解決]請問如何寫程式更改原圖層名稱 Ioaoe110[已解決]請問如何寫程式更改原圖層名稱 2020-310[已解決]請問如何寫程式更改原圖層名稱 Oiu15010[已解決]請問如何寫程式更改原圖層名稱 2020-211[已解決]請問如何寫程式更改原圖層名稱 Ia15010[已解決]請問如何寫程式更改原圖層名稱 Aizyao10[已解決]請問如何寫程式更改原圖層名稱 Uos15010[已解決]請問如何寫程式更改原圖層名稱 BPl3tjj[已解決]請問如何寫程式更改原圖層名稱 Ziao1510
[已解決]請問如何寫程式更改原圖層名稱 Oo-2-110[已解決]請問如何寫程式更改原圖層名稱 Zuoiy_10[已解決]請問如何寫程式更改原圖層名稱 Aizyao11[已解決]請問如何寫程式更改原圖層名稱 Iyb_1510[已解決]請問如何寫程式更改原圖層名稱 Aoe1-111[已解決]請問如何寫程式更改原圖層名稱 Uos15011[已解決]請問如何寫程式更改原圖層名稱 Aoe2da10[已解決]請問如何寫程式更改原圖層名稱 Aoe2da11[已解決]請問如何寫程式更改原圖層名稱 Aoe10