形位公差标注

xkitty

clement，谢谢您，您真神了，手到病除！还有一个问题。


用VBA编程,创建几何公差对象，调用AddTolerance方法时，机械制图符号中径向跳动的转义字符如何表示？基准代号程序的编制是从引线编制入手还是另有捷径？希望您能多多指点。thank you!!

雪山飞狐_lzh

找clement，没我什么事，^_^

mccad

2. Sub Example_AddTolerance()
3.       
4.        Dim toleranceObj As AcadTolerance
5.                Dim textString As String
6.                Dim insertionPoint(0 To 2) As Double
7.                Dim direction(0 To 2) As Double
8.                
9.                textString = "{\Fgdt;j}%%v位置度-j" & vbCrLf & _
10.                                        "{\Fgdt;r}%%v同轴度-r" & vbCrLf & _
11.                                        "{\Fgdt;i}%%v对称度-i" & vbCrLf & _
12.                                        "{\Fgdt;f}%%v平行度-f" & vbCrLf & _
13.                                        "{\Fgdt;b}%%v垂直度-b" & vbCrLf & _
14.                                        "{\Fgdt;a}%%v倾斜度-a" & vbCrLf & _
15.                                        "{\Fgdt;g}%%v圆柱度-g" & vbCrLf & _
16.                                        "{\Fgdt;c}%%v平面度-c" & vbCrLf & _
17.                                        "{\Fgdt;e}%%v圆度-e" & vbCrLf & _
18.                                        "{\Fgdt;u}%%v直线度-u" & vbCrLf & _
19.                                        "{\Fgdt;d}%%v面轮廓度-d" & vbCrLf & _
20.                                        "{\Fgdt;k}%%v线轮廓度-k" & vbCrLf & _
21.                                        "{\Fgdt;h}%%v圆跳动度-h" & vbCrLf & _
22.                                        "{\Fgdt;t}%%v全跳动度-t" & vbCrLf & _
23.                                        "{\Fgdt;l}%%vl" & vbCrLf & _
24.                                        "{\Fgdt;m}%%vm" & vbCrLf               
25.                insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0#
26.                direction(0) = 1#: direction(1) = 0#: direction(2) = 0#
27.       
28.                Set toleranceObj = ThisDrawing.ModelSpace.AddTolerance(textString, insertionPoint, direction)
29.                ZoomAll
30.      
31. End Sub

Sub Example_AddTolerance()               Dim toleranceObj As AcadTolerance                Dim textString As String                Dim insertionPoint(0 To 2) As Double                Dim direction(0 To 2) As Double                                textString = "{\Fgdt;j}%%v位置度-j" & vbCrLf & _                                        "{\Fgdt;r}%%v同轴度-r" & vbCrLf & _                                        "{\Fgdt;i}%%v对称度-i" & vbCrLf & _                                        "{\Fgdt;f}%%v平行度-f" & vbCrLf & _                                        "{\Fgdt;b}%%v垂直度-b" & vbCrLf & _                                        "{\Fgdt;a}%%v倾斜度-a" & vbCrLf & _                                        "{\Fgdt;g}%%v圆柱度-g" & vbCrLf & _                                        "{\Fgdt;c}%%v平面度-c" & vbCrLf & _                                        "{\Fgdt;e}%%v圆度-e" & vbCrLf & _                                        "{\Fgdt;u}%%v直线度-u" & vbCrLf & _                                        "{\Fgdt;d}%%v面轮廓度-d" & vbCrLf & _                                        "{\Fgdt;k}%%v线轮廓度-k" & vbCrLf & _                                        "{\Fgdt;h}%%v圆跳动度-h" & vbCrLf & _                                        "{\Fgdt;t}%%v全跳动度-t" & vbCrLf & _                                        "{\Fgdt;l}%%vl" & vbCrLf & _                                        "{\Fgdt;m}%%vm" & vbCrLf                               insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0#                direction(0) = 1#: direction(1) = 0#: direction(2) = 0#                       Set toleranceObj = ThisDrawing.ModelSpace.AddTolerance(textString, insertionPoint, direction)                ZoomAll       End Sub

xkitty

mccad，谢谢你为我提供这末详细的解答！再解一下惑行吗？程序中坐标值后面的#号是何意？基准代号程序的编制如何入手？指的是圆圈下的小垂直符号。

雪山飞狐_lzh

#号表示一个浮点数,VB要好好补补

clement

不好意思,刚刚看到,既然管理员已经回答了最开始的问题,那我就对第二个问题说几句. 类型声明字符(数字后面的符号后缀)可以起到表明数据类型的作用 Double 的类型声明字符为井号# Single 的类型声明字符为感叹号! Long 的类型声明字符为和号& Integer 的类型声明字符是百分比符号%

齿轮设计

高手，真是高手。十二万分佩服

fortangtang

请问怎样把形位公差的数据提出来?

xds520007

怎样加后面的基准呢？

xds520007

我知道怎样加后面的基准了！谢谢指点