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.
請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe1-113請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Ioaoe110請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 2020-310請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Oiu15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 2020-211請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Ia15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aizyao10請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Uos15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 BPl3tjj請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Ziao1510
請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Oo-2-110請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Zuoiy_10請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aizyao11請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Iyb_1510請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe1-112請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Uos15011請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe2da10請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe2da11請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe10

請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案

3 posters

向下

請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Empty 請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案

發表 由 WATSON513 2019-01-03, 16:21

請教在 lisp中 使用"_wblock"
如何無條件覆蓋既有檔案

以下內容是我現有的程式
如果檔案已經存在....要如何才能覆蓋既有檔案

(defun c:WW()
(setq FM (getstring "\n輸入檔名: "))
(setq p00 (getpoint "\基準點:"))
(setq ss0 (ssget))
(setq dwgfile (strcat "D:\\TEMP\\" FM ".DWG"))
(command "_wblock" dwgfile "" p00 ss0 "")
(command "u")
)
WATSON513
WATSON513
一般會員
一般會員

文章總數 : 41
年齡 : 48
來自 : 新竹
職業 : 鈑金展開
愛好 : 爬山
個性 : 愛作夢
使用年資 : 10
使用版本 : 2016
經驗值 : 4956
威望值 : 6
注冊日期 : 2011-11-11
男 天蝎座 兔

回頂端 向下

請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Empty 回復: 請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案

發表 由 naruto018 2019-01-04, 08:18

WATSON513 寫到:請教在 lisp中 使用"_wblock"
如何無條件覆蓋既有檔案

以下內容是我現有的程式
如果檔案已經存在....要如何才能覆蓋既有檔案

(defun c:WW()
  (setq FM (getstring "\n輸入檔名: "))
  (setq p00 (getpoint "\基準點:"))
  (setq ss0 (ssget))
  (setq dwgfile (strcat "D:\\TEMP\\" FM ".DWG"))
  (command "_wblock" dwgfile  "" p00 ss0 "")
  (command "u")
)

可以使用EXPERT (系統變數)
作用:控制是否核發某些提示。
代碼:
(setvar "EXPERT" 2)
設定EXPERT為2代表:抑制前述提示,「圖塊已定義。您是否要重新定義它?」(-BLOCK) 以及「同名的圖檔已經存在。」您要覆蓋它嗎?」(SAVE 或 WBLOCK)。
當 EXPERT 抑制某個提示時,相關作業會假設您已經輸入 y 來回應提示而繼續執行。
其他請參考EXPERT (系統變數)官方說明
naruto018
naruto018
中級會員
中級會員

文章總數 : 225
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4522
威望值 : 564
注冊日期 : 2016-11-29
藍鵲726號
男 摩羯座 羊

回頂端 向下

請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Empty 回復: 請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案

發表 由 Tiger&蘋果爸 2019-01-04, 11:23

naruto018 寫到:可以使用EXPERT (系統變數)
作用:控制是否核發某些提示。
代碼:
(setvar "EXPERT" 2)
設定EXPERT為2代表:抑制前述提示,「圖塊已定義。您是否要重新定義它?」(-BLOCK) 以及「同名的圖檔已經存在。」您要覆蓋它嗎?」(SAVE 或 WBLOCK)。
當 EXPERT 抑制某個提示時,相關作業會假設您已經輸入 y 來回應提示而繼續執行。
其他請參考EXPERT (系統變數)官方說明
讚啦!! 學習了!感謝分享這個系統變數~
今天又學到一招囉
感謝啦

____________________________________________________________________________________
👉[雙11優惠]2024雙11活動 教學產品7折起(免運)(點我)👈
編輯個人資料 Sesa2011 編輯個人資料 Youtub11 編輯個人資料 Oiea2011 編輯個人資料 Oe20011 編輯個人資料 Fbi20011 編輯個人資料 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21365
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90246
威望值 : 17196
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.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

回頂端 向下

請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Empty 回復: 請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案

發表 由 WATSON513 2019-01-04, 12:55

謝謝您
提供系統變數的應用
我的問題解決了
WATSON513
WATSON513
一般會員
一般會員

文章總數 : 41
年齡 : 48
來自 : 新竹
職業 : 鈑金展開
愛好 : 爬山
個性 : 愛作夢
使用年資 : 10
使用版本 : 2016
經驗值 : 4956
威望值 : 6
注冊日期 : 2011-11-11
男 天蝎座 兔

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe1-113請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Ioaoe110請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 2020-310請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Oiu15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 2020-211請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Ia15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aizyao10請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Uos15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 BPl3tjj請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Ziao1510
請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe15010請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Oo-2-110請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Zuoiy_10請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aizyao11請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Iyb_1510請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe1-112請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Uos15011請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe2da10請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe2da11請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案 Aoe10