點穴宏

alfiezhang

原理很簡單，有如以下手動操作
1. 新開3D草圖建立一個點
2. 退出3D草圖
3. 選擇模型的“面、邊線 或 角點”及剛才建立的3D草圖點
4. 重合的配合
代碼如下：

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
If Part.GetType  2 Then Exit Sub
If TypeName(Part.GetActiveSketch)  "Nothing" Then Exit Sub
Set SelMgr = Part.SelectionManager
Set Found = SelMgr.GetSelectedObject5(1)
Set ent = SelMgr.GetSelectedObject6(1, -1)
point = SelMgr.GetSelectionPoint2(1, -1)
If IsEmpty(point) Then Exit Sub
Part.SketchManager.Insert3DSketch True
Dim SkPoint As Object
Part.SetAddToDB (True)
Set SkPoint = Part.SketchManager.CreatePoint(point(0), point(1), point(2))
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
SkPoint.Select4 False, SelMgr
ent.Select2 True, 0
Dim longstatus As Long
Part.AddMate2 0, 0, False, 0, 0, 0, 1, 1, 0, 0, 0, longstatus
Part.ClearSelection2 True
End Sub

复制代码
過程動畫：

跟帖者如能套用，視乎情況，加1至3技術不等。

daguo

好厉害~

心随风舞

葵花点穴手 秘笈

gouxiong

看看！！谢谢！

an1r517dmd

   经典案例图书

学习大侠大法。

sczjb

求教：点一下“复制代码”就能把上面的代码复制的原理
先谢谢大侠指导！

heye85641

   经典案例图书

這裡是火星嗎？

qx9668

火星不适合人类生存...

qzfs

再有來自脊髓的提問，扣分

gch84

学习

vcxl

试了下，确实管用，谢大侠教学：

西坝阿超

宏这东西没接触过，回复看文件学习下。
因为GIF图片不怎么会制作，大小上传有限制，所以把帧数变小，看上去有点糊。但方法是对的。

rxdong

練習，謝謝工程师的無私分享~~

modao520

下載練習

天高云淡

加入QQ群
参与讨论和学习

或扫描二维码加入

厉害，厉害

shashuihua

   经典案例图书

看着不错，试试

讯点网骗子联盟

加入QQ群
参与讨论和学习

或扫描二维码加入

謝謝工程师的分享,學習了!

中秋月满

   经典案例图书

这个 还真不会用

lbc5711

先谢谢大侠指导！

zuohuawei

有没有不一样的地方..