[已解決]測量座標如何在記事本中制作SCRIPT的腳本
+2
pizg
hunghi1973
6 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
[已解決]測量座標如何在記事本中制作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
感激不盡
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
年齡 : 51
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 5896
威望值 : 0
注冊日期 : 2008-09-12
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
明~
謝謝你的回復..但還是不行
指令行顯示如下:
指令: scr SCRIPT
指令: point
目前的點模式: PDMODE=2 PDSIZE=0.0000
指定一點:
無效的點。
指定一點: *取消*
謝謝你的回復..但還是不行
指令行顯示如下:
指令: scr SCRIPT
指令: point
目前的點模式: PDMODE=2 PDSIZE=0.0000
指定一點:
無效的點。
指定一點: *取消*
hunghi1973- 一般會員
- 文章總數 : 31
年齡 : 51
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 5896
威望值 : 0
注冊日期 : 2008-09-12
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
請先把你的座標資料儲存成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)
)
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)
)
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
pizg
謝謝你的回復
指令行可以成功載入.但座標的點還是無法顯示
指令: _appload t1.lsp 成功載入。
謝謝你的回復
指令行可以成功載入.但座標的點還是無法顯示
指令: _appload t1.lsp 成功載入。
hunghi1973- 一般會員
- 文章總數 : 31
年齡 : 51
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 5896
威望值 : 0
注冊日期 : 2008-09-12
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
hunghi1973 寫到:明~
謝謝你的回復..但還是不行
指令行顯示如下:
指令: scr script
指令: point
目前的點模式: PDMODE=2 PDSIZE=0.0000
指定一點:
無效的點。
指定一點: *取消*
我測試是可行的~
如影片
手動執行腳本後,做視窗縮放就看的到點~
明~- 高級會員
- 文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 7120
威望值 : 667
注冊日期 : 2009-12-24
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
把座標點的資料檔,變成 AUTOCAD 的 SCRIPT 檔案,
其實很簡單,非常簡單。
請記得 AUTOCAD 使用上的一個 奇怪的規定。
空白鍵等於 [ENTER]鍵。
同樣的,在 SCRIPT 檔案裡面,空白字元和換行字元的
個數要非常正確,不能多一個,少一個。
大部分的問題,都是出在空白字元太多。
或是 換行字元太多。
希望,以上的這些說明,對你有幫助。
其實很簡單,非常簡單。
請記得 AUTOCAD 使用上的一個 奇怪的規定。
空白鍵等於 [ENTER]鍵。
同樣的,在 SCRIPT 檔案裡面,空白字元和換行字元的
個數要非常正確,不能多一個,少一個。
大部分的問題,都是出在空白字元太多。
或是 換行字元太多。
希望,以上的這些說明,對你有幫助。
andychen- 該用戶停權中
- 文章總數 : 186
年齡 : 40
經驗值 : 5958
威望值 : 71
注冊日期 : 2010-04-09
回復: [已解決]測量座標如何在記事本中制作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)
)
(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)
)
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
謝謝大家的回復...感恩內..
hunghi1973- 一般會員
- 文章總數 : 31
年齡 : 51
來自 : 台中縣
職業 : 工程師
愛好 : 桌球
個性 : 善良
使用年資 : 5
使用版本 : 2010
經驗值 : 5896
威望值 : 0
注冊日期 : 2008-09-12
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
我幫你測試了 樓上的 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
正在重生模型。
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- 該用戶停權中
- 文章總數 : 186
年齡 : 40
經驗值 : 5958
威望值 : 71
注冊日期 : 2010-04-09
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
請問一下 這一個a.txt 檔案是要放在那一邊 我用了沒有反應 要怎麼使用這一個lsp呢? 我載入的a.txt 裏面的字如下方所示......
還有我照明的方法用點位也出不來捏?
可是我用下面這一種方式就出來了 是版本的問題嘛 我使用的是2009
POINT 15,18
POINT 19,31
POINT 55,26
POINT 130,1
regen
還有我照明的方法用點位也出不來捏?
可是我用下面這一種方式就出來了 是版本的問題嘛 我使用的是2009
POINT 15,18
POINT 19,31
POINT 55,26
POINT 130,1
regen
adslwang- 高級會員
- 文章總數 : 376
年齡 : 46
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 7136
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
adslwang 寫到:請問一下 這一個a.txt 檔案是要放在那一邊 我用了沒有反應 要怎麼使用這一個lsp呢?
a.txt 請放在AutoCAD能搜尋到的地方。
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
是的!pizg 寫到:a.txt 請放在AutoCAD能搜尋到的地方。adslwang 寫到:請問一下 這一個a.txt 檔案是要放在那一邊 我用了沒有反應 要怎麼使用這一個lsp呢?
可以放在支援檔搜尋路徑!!
說明: AutoCAD遊戲規則
https://www.autocad-tw.com/t1042-topic
Tiger&蘋果爸 在 2020-12-27, 14:32 作了第 1 次修改
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [已解決]測量座標如何在記事本中制作SCRIPT的腳本
謝謝 兩位老師幫忙 再次感謝
adslwang- 高級會員
- 文章總數 : 376
年齡 : 46
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 7136
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章