已知距离和角度的倒角如何实现?

怡然

MDT的VBA reference帮助文件中有一个例程:

2. Sub CreateSketches()
   
3. 
   
4. ......
   
5. Dim feat As McadFeature
   
6. Set feat = part.AddFeature(extrude)
   
7. 
   
8. ' Get the cylindrical face
   
9.    
   
10. Dim face As IMcadSurface
    
11. Dim found As Boolean
    
12. 
    
13. found = False
    
14. Dim bounded As GeBoundedSurface
    
15. For Each face In feat.faces
    
16.     Set bounded = face.Geometry
    
17.     If TypeOf bounded.BaseSurface Is GeCylinder Then
    
18.         found = True
    
19.         Exit For
    
20.     End If
    
21. Next
    
22. If Not found Then Exit Sub
    
23.    
    
24. Dim dist As McadValue
    
25. Set dist = util.CreateValue
    
26. dist.value = 1
    
27. 
    
28. Dim ang As McadValue
    
29. Set ang = util.CreateValue
    
30. ang.value = 30
    
31. 
    
32. ' set the chamfer descriptor
    
33. Dim chamferDescrip As McadChamferDescriptor
    
34. Set chamferDescrip = util.CreateFeatureDescriptor(mcChamfer)
    
35. 
    
36. chamferDescrip.ChamferType = mcDistanceAngle
    
37. chamferDescrip.Distance1 = dist
    
38. chamferDescrip.angle = ang
    
39. chamferDescrip.face = face
    
40.    
    
41. Dim chamferFeat As McadFeature
    
42. Set chamferFeat = part.AddFeature(chamferDescrip)
    
43. ......
    

Sub CreateSketches()<br /> <br /> ......<br /> Dim feat As McadFeature<br /> Set feat = part.AddFeature(extrude)<br /> <br /> ' Get the cylindrical face<br />     <br /> Dim face As IMcadSurface<br /> Dim found As Boolean<br /> <br /> found = False<br /> Dim bounded As GeBoundedSurface<br /> For Each face In feat.faces<br />     Set bounded = face.Geometry<br />     If TypeOf bounded.BaseSurface Is GeCylinder Then<br />         found = True<br />         Exit For<br />     End If<br /> Next<br /> If Not found Then Exit Sub<br />     <br /> Dim dist As McadValue<br /> Set dist = util.CreateValue<br /> dist.value = 1<br /> <br /> Dim ang As McadValue<br /> Set ang = util.CreateValue<br /> ang.value = 30<br /> <br /> ' set the chamfer descriptor<br /> Dim chamferDescrip As McadChamferDescriptor<br /> Set chamferDescrip = util.CreateFeatureDescriptor(mcChamfer)<br /> <br /> chamferDescrip.ChamferType = mcDistanceAngle<br /> chamferDescrip.Distance1 = dist<br /> chamferDescrip.angle = ang<br /> chamferDescrip.face = face<br />     <br /> Dim chamferFeat As McadFeature<br /> Set chamferFeat = part.AddFeature(chamferDescrip)<br /> ......<br />

我改动了以上的代码,想试一试已知距离和角度如何画出倒角,但程序运行到

1. chamferDescrip.face = face

复制代码

时，显示 "类型不匹配" 的错误

请高手指点

mccad

MDT和AutoCAD的对象模型不同。

怡然

从MDT自带的[I]McadVBA Developer's Guide[/I]中可以找到一个例程AddChamfer(),它演示了如何生成已知两个距离的倒角,但是要做出已知距离和角度的倒角,现在我还没做出来.

gzy

能不能直接实现啊？