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

[已解決]LISP問題(COMMAND "OPEN")

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

[已解決]LISP問題(COMMAND "OPEN")

發表 由 leoneriol 于 2009-06-26, 08:11

(defun c:lsp_0626()
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(setq SelectFile (getfiled "選取檔案" "" "txt" 2))
(setq LeaderFile (open SelectFile "r"))
(setq Data (read-line LeaderFile))
(while Data

(command "open")
(command Data)
(command "close")
(setq Data (read-line LeaderFile))
)
(setvar "filedia" 1)
(close File)
(prin1)
)


此程式是我自己練習寫的...目標是希望開啟DWG檔並更改內部的東西
我手上一共用五百多張的圖...所以需要程式自己開啟檔案並關閉
黑色的部份目前是沒問題的....
紅色的部份(command "open")是對CAD下達指令open....
因為程式前面有修改系統變數(setvar "filedia" 0)所以不會出現open檔案時的對話框
但是.....結果卻如下
指令: (command "open")
open
指令: nil


這樣我就沒辦法輸入要開啟的檔案路徑及名稱...
請教各位前輩....是不是我搞錯了什麼??又或是有什麼其他解決辦法..... 暈倒 暈倒


leoneriol 在 2009-06-29, 04:24 作了第 4 次修改
avatar
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 816
年齡 : 33
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 6636
威望值 : 938
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

回復: [已解決]LISP問題(COMMAND "OPEN")

發表 由 Tiger&蘋果爸 于 2009-06-27, 14:30

你的問題我曾碰過,OPEN在 LISP語言中 是一個函數,所以無法當作 開啟圖檔 的指令~
我都是使用 SCRIPT指令(腳本) 來開啟檔案!!
LISP可能要看其他高手提供解決方法~

腳本檔的附檔名為scr,可以使用 記事本 編寫完畢後另存為 xxx.SCR 即可。
在AutoCAD輸入 SCRIPT指令 來執行 腳本檔 即可。

但是上面那個是範例,你需要再按照你公司的路徑修改腳本檔!!
至於製做腳本檔(SCR),本身須有巨集攥寫能力及經驗,F1也有中文說明,其實只要明白後,你會發現寫腳本不會很難,但是這部分跟寫程式一樣需反覆測試,再來慢慢累積經驗值!

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

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65328
威望值 : 12862
注冊日期 : 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

回頂端 向下

回復: [已解決]LISP問題(COMMAND "OPEN")

發表 由 leoneriol 于 2009-06-29, 04:22

(command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "filename.dwg" (chr 34)))

解決了.....利用VBA的程式碼可以開啟~~
avatar
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 816
年齡 : 33
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 6636
威望值 : 938
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

回復: [已解決]LISP問題(COMMAND "OPEN")

發表 由 Tiger&蘋果爸 于 2009-06-29, 05:34

leoneriol 寫到:(command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "filename.dwg" (chr 34)))

解決了.....利用VBA的程式碼可以開啟~~
謝謝回報!
這樣我也學了一招~ 竊喜
******************************************************
讚啦!! 謝謝分享~< 積分 +1>

[公告]關於團隊成員的回文及貢獻

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

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65328
威望值 : 12862
注冊日期 : 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

回頂端 向下

回復: [已解決]LISP問題(COMMAND "OPEN")

發表 由 jjch001 于 2009-08-21, 14:53

爬文學習中----謝謝分享 挖勒
avatar
jjch001
一般會員
一般會員

文章總數 : 20
年齡 : 41
來自 : 高雄縣
職業 : 建築繪圖員
愛好 : 電玩
個性 : 呆呆的
使用年資 : 1?年多
使用版本 : 2008版
經驗值 : 3052
威望值 : 0
注冊日期 : 2009-08-19
女 射手座 龍

回頂端 向下

回復: [已解決]LISP問題(COMMAND "OPEN")

發表 由 ginse0727 于 2012-10-22, 00:08

leoneriol 寫到:(command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "filename.dwg" (chr 34)))

解決了.....利用VBA的程式碼可以開啟~~

leoneriol 感謝你,
最近剛好在傷腦筋怎麼用巨集開啓檔案,自已試了好幾之都還沒試出方法來,沒想到一上來"好地方"找答案,還真的給我找到你的這篇回覆,
謝謝你的分享,我學習了! 讚啦!!
avatar
ginse0727
高級會員
高級會員

文章總數 : 256
年齡 : 43
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 4287
威望值 : 492
發帖精華 : 1
注冊日期 : 2010-07-12
經典問與答讀者 藍鵲61號
2011聚會勳章 男 獅子座 虎

回頂端 向下

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


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