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

[已解決]測量座標如何在記事本中制作SCRIPT的腳本

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

[已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 hunghi1973 于 2010-04-19, 10:05

一個工程的測量座標值如下表,利用記事本制作*.SCR腳本,但載入CAD中顯示無效的點,請問各位高手下表的腳本制作那裏有錯?
感激不盡

point
334557.112,2729239.270

point
334560.671,2729239.235

point
334612.177,2728971.992

point
334630.295,2728902.971

point
334655.654,2728757.266

point
334660.200,2728758.631

point
334680.930,2728658.573

point
334758.323,2728284.648

point
334753.291,2728283.278

point
334761.531,2728268.952

point
334757.020,2728267.722

point
334798.665,2728086.861

point
334827.683,2727967.609

point
334837.502,2727913.898

point
334845.306,2727893.914

point
334844.123,2727899.280

point
334841.071,2727898.215

point
334859.660,2727833.923

point
334916.224,2727568.318

point
334922.659,2727570.578

point
334936.417,2727477.710

point
334957.010,2727426.552

point
334963.752,2727371.625

point
334971.647,2727373.671

point
335036.871,2727138.033

point
335047.985,2727078.146

point
335057.613,2727067.800

point
335116.581,2726899.559

point
335120.215,2726889.190

point
335059.422,2727040.371

point
335066.498,2727042.450

point
335082.608,2726969.423

point
335091.074,2726972.332

point
335132.890,2726853.086

point
335124.682,2726850.320

point
335200.328,2726636.822

point
335207.899,2726639.439

hunghi1973
一般會員
一般會員

文章總數 : 31
年齡 : 44
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 3384
威望值 : 0
注冊日期 : 2008-09-12
男 雙魚座 牛

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 hunghi1973 于 2010-04-20, 02:20

明~
謝謝你的回復..但還是不行
指令行顯示如下:

指令: scr SCRIPT
指令: point
目前的點模式: PDMODE=2 PDSIZE=0.0000
指定一點:
無效的點。
指定一點: *取消*

hunghi1973
一般會員
一般會員

文章總數 : 31
年齡 : 44
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 3384
威望值 : 0
注冊日期 : 2008-09-12
男 雙魚座 牛

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 pizg 于 2010-04-20, 05:46

請先把你的座標資料儲存成a.txt,內容格式如下:
334557.112,2729239.270
334560.671,2729239.235
334612.177,2728971.992
334630.295,2728902.971
334655.654,2728757.266
....

然後再用下列程式處理即可:
;;2010/04/20 by pizg
(defun c:ptToDwg(/ fd pt)
(if (and fn (setq fd (open "a.txt" "r")))
(progn
(while (setq pt (read-line fd))
(command "_point" pt)
)
(close fd)
)
)
(princ)
)
avatar
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4089
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 hunghi1973 于 2010-04-20, 09:36

pizg
謝謝你的回復
指令行可以成功載入.但座標的點還是無法顯示

指令: _appload t1.lsp 成功載入。

hunghi1973
一般會員
一般會員

文章總數 : 31
年齡 : 44
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 3384
威望值 : 0
注冊日期 : 2008-09-12
男 雙魚座 牛

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 pizg 于 2010-04-20, 09:57

畫完座標點之後,
別忘了要設定點型式!!
avatar
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4089
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 明~ 于 2010-04-20, 15:40

hunghi1973 寫到:明~
謝謝你的回復..但還是不行
指令行顯示如下:

指令: scr script
指令: point
目前的點模式: PDMODE=2 PDSIZE=0.0000
指定一點:
無效的點。
指定一點: *取消*

我測試是可行的~
如影片



手動執行腳本後,做視窗縮放就看的到點~
avatar
明~
高級會員
高級會員

文章總數 : 307
年齡 : 37
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 4611
威望值 : 670
注冊日期 : 2009-12-24
藍鵲292號
男 雙魚座 猴

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 andychen 于 2010-04-20, 16:14

把座標點的資料檔,變成 AUTOCAD 的 SCRIPT 檔案,
其實很簡單,非常簡單。
請記得 AUTOCAD 使用上的一個 奇怪的規定。
空白鍵等於 [ENTER]鍵。

同樣的,在 SCRIPT 檔案裡面,空白字元和換行字元的
個數要非常正確,不能多一個,少一個。

大部分的問題,都是出在空白字元太多。
或是 換行字元太多。

希望,以上的這些說明,對你有幫助。

andychen
該用戶停權中
該用戶停權中

文章總數 : 187
年齡 : 33
經驗值 : 3451
威望值 : 71
注冊日期 : 2010-04-09
男 水瓶座 豬

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 pizg 于 2010-04-21, 00:46

不好意思, 因匆忙導致有誤, 程式應修改如下:
(defun c:ptToDwg(/ fd pt)
(if (setq fd (open "a.txt" "r"))
(progn
(while (setq pt (read-line fd))
(command "_point" pt)
)
(close fd)
)
)
(princ)
)
avatar
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4089
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 hunghi1973 于 2010-04-21, 05:41

謝謝大家的回復...感恩內..

hunghi1973
一般會員
一般會員

文章總數 : 31
年齡 : 44
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 3384
威望值 : 0
注冊日期 : 2008-09-12
男 雙魚座 牛

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 andychen 于 2010-04-21, 06:54

我幫你測試了 樓上的 LISP 程式,
TEST OK!

AUTOCAD 使用的指令,紀錄 如下。

不過,你還是要注意到,
A.TXT 裡面的空白字元和
跳行字元的數目。

不能多一個,不能少一個。

好想,沒的少的機會。



自訂檔載入成功。自訂群組: ACAD
自訂檔載入成功。自訂群組: CUSTOM
自訂檔載入成功。自訂群組: IMPRESSION
自訂檔載入成功。自訂群組: EXPRESS
正在重生模型。

AutoCAD 功能表公用程式 已載入。
指令: COMMANDLINE

指令:
指令:
指令: _saveas
指令: 指定對角點: *取消*

指令: (load "pttodwg")
C:PTTODWG

指令: pttodwg
_point
目前的點模式: PDMODE=0 PDSIZE=0.0000
指定一點: 1.2,2.3
指令: _point
目前的點模式: PDMODE=0 PDSIZE=0.0000
指定一點: 3.4,4.5
指令: _point
目前的點模式: PDMODE=0 PDSIZE=0.0000
指定一點: 5.6,7.8
指令: _point
目前的點模式: PDMODE=0 PDSIZE=0.0000
指定一點: 9.0,0.1
指令: _point
目前的點模式: PDMODE=0 PDSIZE=0.0000
指定一點: 1.2,3.4
指令:
指令: pdmode

輸入 PDMODE 的新值 <0>: 3
正在重生模型。

指令: z
ZOOM
指定視窗角點,輸入比例係數 (nX 或 nXP),或
[全部(A)/中心點(C)/動態(D)/實際範圍(E)/前次(P)/比例(S)/視窗(W)/物件(O)] <即時>: e

指令: regen
正在重生模型。

指令: z
ZOOM
指定視窗角點,輸入比例係數 (nX 或 nXP),或
[全部(A)/中心點(C)/動態(D)/實際範圍(E)/前次(P)/比例(S)/視窗(W)/物件(O)] <即時>: e

指令: regen
正在重生模型。

指令: ucsicon

輸入選項 [打開(ON)/關閉(OFF)/全部(A)/無原點(N)/原點(OR)/性質(P)] <打開>: no

指令: regen
正在重生模型。

指令: z
ZOOM
指定視窗角點,輸入比例係數 (nX 或 nXP),或
[全部(A)/中心點(C)/動態(D)/實際範圍(E)/前次(P)/比例(S)/視窗(W)/物件(O)] <即時>: e

指令: regen
正在重生模型。

andychen
該用戶停權中
該用戶停權中

文章總數 : 187
年齡 : 33
經驗值 : 3451
威望值 : 71
注冊日期 : 2010-04-09
男 水瓶座 豬

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 adslwang 于 2010-07-08, 06:05

請問一下 這一個a.txt 檔案是要放在那一邊 我用了沒有反應 要怎麼使用這一個lsp呢? 我載入的a.txt 裏面的字如下方所示......
還有我照明的方法用點位也出不來捏?
可是我用下面這一種方式就出來了 是版本的問題嘛 我使用的是2009
POINT 15,18
POINT 19,31
POINT 55,26
POINT 130,1
regen
avatar
adslwang
高級會員
高級會員

文章總數 : 372
年齡 : 39
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 4605
威望值 : 355
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 pizg 于 2010-07-09, 06:08

adslwang 寫到:請問一下 這一個a.txt 檔案是要放在那一邊 我用了沒有反應 要怎麼使用這一個lsp呢?

a.txt 請放在AutoCAD能搜尋到的地方。
avatar
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4089
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 Tiger&蘋果爸 于 2010-07-09, 09:25

pizg 寫到:
adslwang 寫到:請問一下 這一個a.txt 檔案是要放在那一邊 我用了沒有反應 要怎麼使用這一個lsp呢?
a.txt 請放在AutoCAD能搜尋到的地方。
是的!
可以放在支援檔搜尋路徑!!

說明:
http://www.autocad-tw.com/forum-f44/topic-t1042.htm



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

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

回頂端 向下

回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本

發表 由 adslwang 于 2010-07-09, 09:44

謝謝 兩位老師幫忙 再次感謝
avatar
adslwang
高級會員
高級會員

文章總數 : 372
年齡 : 39
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 4605
威望值 : 355
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

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


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