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.
【問題】如何匯出矩形或多邊形端點座標 Ioaoe110【問題】如何匯出矩形或多邊形端點座標 2020-310【問題】如何匯出矩形或多邊形端點座標 Oiu15010【問題】如何匯出矩形或多邊形端點座標 2020-211【問題】如何匯出矩形或多邊形端點座標 Ia15010【問題】如何匯出矩形或多邊形端點座標 Aizyao10【問題】如何匯出矩形或多邊形端點座標 Uos15010【問題】如何匯出矩形或多邊形端點座標 BPl3tjj【問題】如何匯出矩形或多邊形端點座標 Ziao1510
【問題】如何匯出矩形或多邊形端點座標 Oo-2-110【問題】如何匯出矩形或多邊形端點座標 Zuoiy_10【問題】如何匯出矩形或多邊形端點座標 Aizyao11【問題】如何匯出矩形或多邊形端點座標 Iyb_1510【問題】如何匯出矩形或多邊形端點座標 Aoe1-111【問題】如何匯出矩形或多邊形端點座標 Uos15011【問題】如何匯出矩形或多邊形端點座標 Aoe2da10【問題】如何匯出矩形或多邊形端點座標 Aoe2da11【問題】如何匯出矩形或多邊形端點座標 Aoe10

【問題】如何匯出矩形或多邊形端點座標

3 posters

向下

【問題】如何匯出矩形或多邊形端點座標 Empty 【問題】如何匯出矩形或多邊形端點座標

發表 由 Elly 2018-01-18, 10:36

我想匯出矩形或多邊形端點座標(比如有5-10個分別在不同座標)
已有使用「資料萃取」精靈 dataextraction指令試過
但裡面只有可選原點的XY座標,以下是我想知道的資訊,謝謝
1.要如何知道各點資訊並匯出(.xls)呢?
2.另外還可顯示每個物件的角度嗎?(匯出.xls)
3.匯出資料顯示每個物件的名稱A.B.C(圖面不是圖塊,文字和polyline是分開的)
【問題】如何匯出矩形或多邊形端點座標 Y10
Elly
Elly
初級會員
初級會員

文章總數 : 77
年齡 : 45
來自 : 新竹
職業 : 機構設計工程師
愛好 : 遊山玩水
個性 : 隨和
使用年資 : 4
使用版本 : 2009
積分 : 1
經驗值 : 5454
威望值 : 26
注冊日期 : 2010-01-18
串連貼紙成功 女 射手座 馬

http://diary.blog.yam.com/kristyjuju

回頂端 向下

【問題】如何匯出矩形或多邊形端點座標 Empty 回復: 【問題】如何匯出矩形或多邊形端點座標

發表 由 Tiger&蘋果爸 2018-01-18, 11:37

Elly 寫到:我想匯出矩形或多邊形端點座標(比如有5-10個分別在不同座標)
已有使用「資料萃取」精靈 dataextraction指令試過
但裡面只有可選原點的XY座標,以下是我想知道的資訊,謝謝
1.要如何知道各點資訊並匯出(.xls)呢?
2.另外還可顯示每個物件的角度嗎?(匯出.xls)
3.匯出資料顯示每個物件的名稱A.B.C(圖面不是圖塊,文字和polyline是分開的)
資料萃取沒有這麼多的功能!
你的客製化需求只能靠程式達成!
認同

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
【問題】如何匯出矩形或多邊形端點座標 Sesa2011 【問題】如何匯出矩形或多邊形端點座標 Youtub11 【問題】如何匯出矩形或多邊形端點座標 Oiea2011 【問題】如何匯出矩形或多邊形端點座標 Oe20011 【問題】如何匯出矩形或多邊形端點座標 Fbi20011 【問題】如何匯出矩形或多邊形端點座標 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

【問題】如何匯出矩形或多邊形端點座標 Empty 回復: 【問題】如何匯出矩形或多邊形端點座標

發表 由 Elly 2018-01-18, 13:10

這可難倒我了,我不會寫程式阿!哭哭!!
那有差不多的程式可用嗎?
但我用List查詢是可以看到一個物件每個點的XY座標
只不過如果查詢幾個是可以,如果有上千個要查不就昏倒
Elly
Elly
初級會員
初級會員

文章總數 : 77
年齡 : 45
來自 : 新竹
職業 : 機構設計工程師
愛好 : 遊山玩水
個性 : 隨和
使用年資 : 4
使用版本 : 2009
積分 : 1
經驗值 : 5454
威望值 : 26
注冊日期 : 2010-01-18
串連貼紙成功 女 射手座 馬

http://diary.blog.yam.com/kristyjuju

回頂端 向下

【問題】如何匯出矩形或多邊形端點座標 Empty 我用 VBA 寫的小例子, 參考一下.

發表 由 shackle_2005 2018-01-20, 15:54

Dim obj As AcadObject
Dim lw_line As AcadLWPolyline
Dim coor As Variant
Dim start_p(0 To 2) As Double
Dim i_count As Integer
Dim coor_str As String
Dim text_obj As AcadText
Dim p2 As Variant

coor_str = ""

For Each obj In tm
   If TypeOf obj Is AcadLWPolyline Then ' 檢查物件是不是 2D 聚合線
         
      Set lw_line = obj: lw_line.Color = 1: lw_line.Update ' 如果是聚合線就改為紅線
     
      coor = lw_line.Coordinates ' 抽出線的 2D 座標
         
      start_p(0) = coor(0): start_p(1) = coor(1) ' 這是第一個點
     
      For i_count = 0 To (UBound(coor) - 1) / 2 ' 抽出每一個點的 X, Y 座標寫在圖面上
          coor_str = Int(coor(i_count * 2)) & "," & Int(coor(i_count * 2 + 1))
                                                 
          p2 = tu.PolarPoint(start_p, 270 * pi, i_count * 7)
               
          Set text_obj = tm.AddText(coor_str, p2, 5): text_obj.Update
      Next i_count
   End If
Next obj
附件
【問題】如何匯出矩形或多邊形端點座標 Attachment
polyline_coordinates.zip 您無權下載這里的附件。(24 Kb) 下載 12 次
【問題】如何匯出矩形或多邊形端點座標 Attachment
polyline_coor.zip 您無權下載這里的附件。(17 Kb) 下載 14 次
【問題】如何匯出矩形或多邊形端點座標 Attachment
polyline_coor_20190807.zip 您無權下載這里的附件。(10 Kb) 下載 9 次

____________________________________________________________________________________
【問題】如何匯出矩形或多邊形端點座標 Ioaoe110 【問題】如何匯出矩形或多邊形端點座標 Zuoiy_10 【問題】如何匯出矩形或多邊形端點座標 2020-211 【問題】如何匯出矩形或多邊形端點座標 Aizyao11 【問題】如何匯出矩形或多邊形端點座標 Iyb_1510
【問題】如何匯出矩形或多邊形端點座標 Aizyao10 【問題】如何匯出矩形或多邊形端點座標 BPl3tjj.png 【問題】如何匯出矩形或多邊形端點座標 Ziao1510 【問題】如何匯出矩形或多邊形端點座標 Oo-2-110 【問題】如何匯出矩形或多邊形端點座標 Oooa_110
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 232
年齡 : 52
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6477
威望值 : 349
注冊日期 : 2010-09-20
男 獅子座 豬

jenjuichang and owen-lee like this post

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
【問題】如何匯出矩形或多邊形端點座標 Ioaoe110【問題】如何匯出矩形或多邊形端點座標 2020-310【問題】如何匯出矩形或多邊形端點座標 Oiu15010【問題】如何匯出矩形或多邊形端點座標 2020-211【問題】如何匯出矩形或多邊形端點座標 Ia15010【問題】如何匯出矩形或多邊形端點座標 Aizyao10【問題】如何匯出矩形或多邊形端點座標 Uos15010【問題】如何匯出矩形或多邊形端點座標 BPl3tjj【問題】如何匯出矩形或多邊形端點座標 Ziao1510
【問題】如何匯出矩形或多邊形端點座標 Oo-2-110【問題】如何匯出矩形或多邊形端點座標 Zuoiy_10【問題】如何匯出矩形或多邊形端點座標 Aizyao11【問題】如何匯出矩形或多邊形端點座標 Iyb_1510【問題】如何匯出矩形或多邊形端點座標 Aoe1-111【問題】如何匯出矩形或多邊形端點座標 Uos15011【問題】如何匯出矩形或多邊形端點座標 Aoe2da10【問題】如何匯出矩形或多邊形端點座標 Aoe2da11【問題】如何匯出矩形或多邊形端點座標 Aoe10