标题: VB.NET FOR UG 二次开发之 倒角 [打印本页] 作者: 昆山人 时间: 2006-10-31 15:43
提示: 作者被禁止或删除 内容自动屏蔽作者: zhjb113 时间: 2006-11-2 15:54
你录了一段宏之后,你把你的操作UNDO回去,然后你再执行宏,你就会看到你的操作会被重新执行了作者: cam-yp 时间: 2006-11-2 16:17
楼上的。。。。高!作者: vodka 时间: 2006-11-3 01:55
' Collector是NX4开始新增加的对象,用来收集全部需要倒角的Edge
Dim scCollector1 As ScCollector
scCollector1 = workPart.ScCollectors.CreateCollector()
Dim seedEdges1(0) As Edge
' Dim block1 As Features.Block = CType(workPart.Features.FindObject("BLOCK(0)"), Features.Block)
' Dim edge1 As Edge = CType(block1.FindObject("EDGE * 4 * 1"), Edge)
Dim edge1 As Edge ....' 调用selection子程序
seedEdges1(0) = edge1
' 收集规则
Dim edgeMultipleSeedTangentRule1 As EdgeMultipleSeedTangentRule
edgeMultipleSeedTangentRule1 = workPart.ScRuleFactory.CreateRuleEdgeMultipleSeedTangent(seedEdges1, 0.5, True)