模型XYZ坐标数据如何在工程图创建表格？（例子及宏在19楼）

各位朋友早上好，
想请教各位：在装配体中画一个3D草图，里面有很多点：

在出工程图时，需要将这些点的坐标反应到工程图上：

小翔和同事们都是建立一个表格（如上图）一个一个手动输入的，
有的时候经常看错，而且手也酸，想请教各位，有什么好的方法吗？
这个坐标由于在工作中经常用，所以请各位帮帮忙，谢谢！

1. Option Explicit
   
2. 
   
3. Dim swApp As Object
   
4. Dim modelDoc As SldWorks.ModelDoc2
   
5. Dim sketch As SldWorks.ISketch
   
6. 
   
7. Const FILE_NAME = "D:\Coordinates.txt"
   
8. 
   
9. 
   
10. Sub main()
    
11. Set swApp = Application.SldWorks
    
12. Set modelDoc = swApp.ActiveDoc
    
13. '// Check active document
    
14. '
    
15. If modelDoc Is Nothing Then
    
16. MsgBox "No active document!"
    
17. Exit Sub
    
18. End If
    
19. 
    
20. '// get active sketch
    
21. '
    
22. Set sketch = modelDoc.SketchManager.ActiveSketch
    
23. If sketch Is Nothing Then
    
24. MsgBox "No active Sketch!"
    
25. Exit Sub
    
26. End If
    
27.    
    
28. '// Output to file
    
29. Dim iFileNum As Integer
    
30. iFileNum = FreeFile()
    
31. Open FILE_NAME For Output As iFileNum
    
32. Dim i As Integer
    
33. Dim sketchPoints As Variant
    
34. sketchPoints = sketch.GetSketchPoints2()
    
35. For i = 0 To UBound(sketchPoints)
    
36. Print #iFileNum, "(" & Round(sketchPoints(i).X * 1000, 2) & "," & Round(sketchPoints(i).Y * 1000, 2) & ", " & Round(sketchPoints(i).Z * 1000, 2) & ")"
    
37. Next i
    
38. Close iFileNum
    
39. MsgBox "座标储存於:" & vbCrLf & FILE_NAME
    
40. End Sub
    

复制代码

複製代碼，創建一個新的宏。
注意第7行，那就是導出的點座標文檔名稱及路徑，可以自行修改。
【注意】執行宏文件時要進入3D草圖編輯狀態。

小翔有福了

Francis 发表于 2014-1-17 01:39
小翔有福了

謝謝悶大加分。
這其實是用hoisee大上次分享的導出2D草圖點座標宏修改的…{:soso_e112:}

谢谢闷大和阿丹一直以来关注小翔的帖子。小翔感激不尽！{:soso_e160:}
坐标点已经导出来了，只是不知道如何连接到工程图表格中，
看来只能手动输入了（不是小翔懒，手动输入容易出错）
希望和朋友们能继续讨论一下，这样将会大大提高工作效率。
（貌似要求太高了{:soso_e127:}）

灯具小翔 发表于 2014-1-17 08:56
谢谢闷大和阿丹一直以来关注小翔的帖子。小翔感激不尽！
坐标点已经导出来了，只是不知道如何 ...

起初看到提問，估計原動力來自【懶惰】，於是研究了一下自動填入表格。
豈料今天才發現小翔不懶，悶人的方向搞錯了。
建議小翔叫老板招聘一位小秘代為覆核，那就可以大大減低出錯+讓小翔亢奮，替企業省回來的金錢，隨時可聘請多幾位小秘呢。

Francis 发表于 2014-1-17 10:29
起初看到提問，估計原動力來自【懶惰】，於是研究了一下自動填入表格。
豈料今天才發現小翔不懶，悶人的 ...

闷大手下留情{:soso_e160:}
话说容易出错其实是借口啦，说到底还是因为小翔懒惰{:soso_e149:}
小翔至从追随闷大，一直以闷大的口号“懒、慢、闷”为理念。
还请朋友们一起加入研究一下如何自动填入表格。
真的是万分感谢。

『自動填入』遠在我的能力範圍之外了，要實現得仰賴悶大和其他前輩接續研究指導。
提供另一個簡單的做法做參考：Insert--->Object 。
無論是 excel 或是 txt 都行。文檔一旦插入工程圖即崁合，即便原文檔丟失也無所謂。
這方法很容易做，幾個鼠標動作就能完成，完全不用手動輸入。
但是有一點可以深入探討，如果有設變表格不會自動更新。

【txt】


【Excel】

灯具小翔 发表于 2014-1-17 10:48
闷大手下留情
话说容易出错其实是借口啦，说到底还是因为小翔懒惰
小翔至从 ...

原來如此，那就繼續研究。

不過要先請問小翔：
1. 編號（ABCD....）是否必要？
2. 如有必要，如何表述，是否需要在視圖中注明每一個點的編號？
3. 點的數目上限是多少？超過26個點之後的又如何命名？