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

一個工程的測量座標值如下表,利用記事本制作*.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

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

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

請先把你的座標資料儲存成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)
)

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

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

畫完座標點之後,
別忘了要設定點型式!!

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

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

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

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

不好意思, 因匆忙導致有誤, 程式應修改如下:
(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)
)

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

我幫你測試了 樓上的 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
正在重生模型。

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

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

a.txt 請放在AutoCAD能搜尋到的地方。

pizg 寫到:

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

a.txt 請放在AutoCAD能搜尋到的地方。

是的!
可以放在支援檔搜尋路徑!!

說明: AutoCAD遊戲規則
https://www.autocad-tw.com/t1042-topic

謝謝 兩位老師幫忙 再次感謝