|
发表于 2017-5-20 10:57:06
|
显示全部楼层
来自: 中国香港
用以下代碼製作宏,再賦予快捷鍵。
, e5 D) v4 g! P% r h7 S- Dim swApp As Object
T: G. C" W; H$ t/ ]+ ~2 @ - Dim Part As Object! W1 L& ]2 S4 A; o- w: B
- Sub main()
2 l" [% \" N m) j/ n( e - Set swApp = Application.SldWorks
J+ P _# o3 V% r, r1 a - swApp.RunCommand 1055, "", p0 H. r* ~8 V- z J5 T
- End Sub
" o( c/ @+ I6 P: m
复制代码 |
评分
-
查看全部评分
|