結合條件的對正軸

武大郎

組合件結合條件的對正軸，如何製作API

kkovgto

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim longstatus As Long
   
4. 
   
5. Sub main()
   
6. 
   
7. Set swApp = _
   
8. Application.SldWorks
   
9. Set Part = swApp.ActiveDoc
   
10. X = 20 '對正軸 不對正軸為0
    
11. Part.AddMate5 X, -1, False, 0, 0, 0, 0, 0, 0, 0, 0, False, False, 0, longstatus
    
12. Part.ClearSelection2 True
    
13. Part.EditRebuild3
    
14. 
    
15. 
    
16. End Sub
    
17. 
    

複製代碼

武大郎

讚呦~完美的

yalaman2002

這是好東西!!!

林克峰

老師!!今天上課回來馬上進行API快捷鍵設定."抑制和恢復抑制"及"強力計算"都搞定.
唯獨這個對正軸出現問題,請問是哪裡要修正?

kkovgto

林克峰 發表於 2022/10/30 22:59
老師!!今天上課回來馬上進行API快捷鍵設定."抑制和恢復抑制"及"強力計算"都搞定.
唯獨這個對正軸出現問題, ...

在工具→設定引用項目，看一下裡面是否有遺失的參照如果有遺失勾勾取消

然後再勾選 sldworks 20xx Type Library 重新參照
xx 為solidworks 的版本

林克峰

kkovgto 發表於 2022/10/31 00:28
在工具→設定引用項目，看一下裡面是否有遺失的參照如果有遺失勾勾取消

然後再勾選 sldworks 20xx Type  ...

搞定了搞定了~~謝謝大師
另外請問大師,巨集的檔名可用中文嗎?

kkovgto

林克峰 發表於 2022/10/31 12:00
搞定了搞定了~~謝謝大師
另外請問大師,巨集的檔名可用中文嗎?

可以使用中文喔

武大郎

最好不要中文~檔名很容易會有亂碼

林克峰

kkovgto 發表於 2022/10/31 12:12
可以使用中文喔

好的!!!謝謝大師~~~~

林克峰

武大郎 發表於 2022/10/31 18:35
最好不要中文~檔名很容易會有亂碼

明白~~謝謝老師!!!

武大郎

kkovgto 發表於 2022/10/31 00:28
在工具→設定引用項目，看一下裡面是否有遺失的參照如果有遺失勾勾取消

然後再勾選 sldworks 20xx Type  ...

API真的是個坑丫

kkovgto

武大郎 發表於 2022/11/9 22:55
API真的是個坑丫

會了就會省很多事....