分享：『座標宏』

只看该作者 · 发表于 2013-11-27 18:52:05

選擇需要化身成為XYZ座標的注解，再執行以下代碼即可：（希望不會引來質疑。）
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
c = SelMgr.GetSelectedObjectCount
For i = 1 To c
ObjectType = SelMgr.GetSelectedObjectType(i)
If ObjectType = 15 Then
      Set Note = SelMgr.GetSelectedObject2(i)
      XYZ = Note.GetAttachPos
      UnitsLinearDecimalPlaces = Part.GetUserPreferenceIntegerValue(swUnitsLinearDecimalPlaces)
      X = Round(XYZ(0) * 1000, UnitsLinearDecimalPlaces)
      Y = Round(XYZ(1) * 1000, UnitsLinearDecimalPlaces)
      Z = Round(XYZ(2) * 1000, UnitsLinearDecimalPlaces)
      Note.SetText ("X: " & X & Chr(13) & "Y: " & Y & Chr(13) & "Z: " & Z)
End If
Next

只看该作者 · 发表于 2013-11-27 19:09:58

插入到工程圖也不錯啊

只看该作者 · 发表于 2013-11-27 19:20:14

一直以來好多人在問這個呢！
謝謝悶大的分享！！

只看该作者 · 发表于 2013-11-27 19:27:04

本帖最后由 Francis 于 2013-11-27 21:09 编辑

謝謝蛋大超迅速回覆。

此分享隱含小錯處，指出者加一分技術。

只看该作者 · 发表于 2013-11-27 19:47:50

莫非是相对于原点的坐标位置？？这个

只看该作者 · 发表于 2013-11-27 20:03:21

本帖最后由 wutong490 于 2013-11-27 20:04 编辑

{:soso_e113:}提示缺少end sub

只看该作者 · 发表于 2013-11-27 20:17:22

尼玛，焖人什么都会.....不是人，是神！

只看该作者 · 发表于 2013-11-27 20:36:33

这个太复杂俺不会。
收藏，谢谢闷大。

只看该作者 · 发表于 2013-11-27 21:52:55

好好學習悶神老大教程~~{:soso_e179:}

只看该作者 · 发表于 2013-11-27 22:18:54

闷大无私分享真是太好了，就是怎么看闷大选择一筐就选到了注解
我怎么选到整个零件，还要一个一个点注解才能选择？

[原创] 分享：『座標宏』

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源