iCAx开思网

标题: 分享：『座標宏』 [打印本页]

作者: Francis 时间: 2013-11-27 18:52
标题: 分享：『座標宏』
選擇需要化身成為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
[attach]1188339[/attach]

作者: Francis 时间: 2013-11-27 19:09
插入到工程圖也不錯啊

[attach]1188340[/attach]

作者: gt.adan 时间: 2013-11-27 19:20
一直以來好多人在問這個呢！
謝謝悶大的分享！！

作者: Francis 时间: 2013-11-27 19:27
本帖最后由 Francis 于 2013-11-27 21:09 编辑

謝謝蛋大超迅速回覆。

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

作者: wxg263 时间: 2013-11-27 19:47
莫非是相对于原点的坐标位置？？这个

作者: wutong490 时间: 2013-11-27 20:03
本帖最后由 wutong490 于 2013-11-27 20:04 编辑

{:soso_e113:}提示缺少end sub
[attach]1188341[/attach]

作者: 无情 时间: 2013-11-27 20:17
尼玛，焖人什么都会.....不是人，是神！

作者: ltq59 时间: 2013-11-27 20:36
这个太复杂俺不会。
收藏，谢谢闷大。

作者: 小小豬 时间: 2013-11-27 21:52
好好學習悶神老大教程~~{:soso_e179:}
[attach]1188345[/attach]

作者: wxg263 时间: 2013-11-27 22:18
[attach]1188347[/attach] 闷大无私分享真是太好了，就是怎么看闷大选择一筐就选到了注解
我怎么选到整个零件，还要一个一个点注解才能选择？

作者: 杀苏 时间: 2013-11-28 10:14
谢谢闷大^_^

作者: ryouss 时间: 2013-11-28 17:26
好個悶大,學習了!
有個問題,不知是否可以列出 ObjectType 所對應之值(或是何處可查知),如此處 ObjectType=15 是對應"注解"
另測試 ObjectType=1,似是線段(含直線,弧線,圆...)
ObjectType=2,似是"面"...
冒昧求教請見諒了!

作者: wutong490 时间: 2013-11-28 18:55

ryouss 发表于 2013-11-28 17:26
好個悶大,學習了!
有個問題,不知是否可以列出 ObjectType 所對應之值(或是何處可查知),如此處 ObjectTyp ...

API 中查到的
按照0-15，推测成立

[attach]1188416[/attach]

作者: ryouss 时间: 2013-11-28 19:09
本帖最后由 ryouss 于 2013-12-9 09:58 编辑

wutong490 发表于 2013-11-28 18:55
API 中查到的
按照0-15，推测成立

非常感謝w版主的解惑{:soso_e183:}
在API 查關鍵詞"swselectype",不是查"ObjectType",暈倒!!

[attach]1189316[/attach]

作者: 思绪迷离 时间: 2013-11-28 23:37
我发现论坛里高手如云啊！学习啦！

作者: sxh_sxh 时间: 2013-12-3 09:11
这个太复杂

作者: jj420429625 时间: 2017-7-5 23:21
感谢闷大分享

作者: makejon 时间: 2018-10-5 09:31
这个非常不错的

作者: makejon 时间: 2018-10-5 09:37
用的不错

作者: a8012024 时间: 2018-10-8 06:44
谢谢分享！

作者: scattie 时间: 2018-10-8 10:36
感謝分享

作者: Trouble12138 时间: 2018-11-25 16:56
下载看看用用吗

欢迎光临 iCAx开思网 (https://www.icax.org/)