點穴宏

a81004 · 发表于 2013-12-5 12:59:35

经典图书

原理很簡單，有如以下手動操作
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技術不等。

H-Hybin · 发表于 2013-12-5 14:38:48

好厉害~

qjj5024 · 发表于 2013-12-5 15:20:38

经典图书

葵花点穴手秘笈

大懒蛇G · 发表于 2013-12-5 16:17:04

看看！！谢谢！

xiaozuo · 发表于 2013-12-5 16:19:02

经典案例图书

学习大王大法。

chenyiwei08 · 发表于 2013-12-5 17:58:49

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

zh0751 · 发表于 2013-12-5 17:59:42

经典案例图书

這裡是火星嗎？

hyxagz · 发表于 2013-12-5 19:19:40

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

blandroin · 发表于 2013-12-5 19:42:20

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

呜呜呜_min · 发表于 2013-12-5 19:47:59

经典图书

学习

yy0316 · 发表于 2013-12-5 21:03:49

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

mizhenpeng · 发表于 2013-12-5 21:36:30

宏这东西没接触过，回复看文件学习下。

因为GIF图片不怎么会制作，大小上传有限制，所以把帧数变小，看上去有点糊。但方法是对的。

Shadowの影 · 发表于 2013-12-5 21:44:47

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

kisswutianle · 发表于 2013-12-5 23:23:29

下載練習

qwerqaz741 · 发表于 2013-12-6 00:15:21

加入QQ群
参与讨论和学习

或扫描二维码加入

厉害，厉害

4eva · 发表于 2013-12-6 00:15:47

经典案例图书

看着不错，试试

JUFEN · 发表于 2013-12-6 00:51:31

加入QQ群
参与讨论和学习

或扫描二维码加入

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

daying1988 · 发表于 2013-12-6 01:27:28

经典案例图书

这个还真不会用

jolt_abc · 发表于 2013-12-6 01:31:50

先谢谢大王指导！

Dahm · 发表于 2013-12-6 02:35:01

有没有不一样的地方..

		自动登录	找回密码
密码			立即注册

點穴宏

浏览过的版块