|
发表于 2017-5-20 10:57:06
|
显示全部楼层
来自: 中国香港
用以下代碼製作宏,再賦予快捷鍵。; o0 u4 J u* O
- Dim swApp As Object
- a0 K) O* ?% X. i0 n - Dim Part As Object
& T, u, O* \ Y% a% u6 `3 {8 _& P9 t - Sub main()
. e c5 {+ Y, M7 t+ R: V# @; q - Set swApp = Application.SldWorks
) U% s) \# j4 ~; { - swApp.RunCommand 1055, ""0 s, N' O$ J+ [6 c( |7 m
- End Sub# [: s9 x7 N, m* k$ o" ^+ m
复制代码 |
评分
-
查看全部评分
|