社区 › VB › 形位公差标注

xkitty 发表于 2004-5-31 21:43:00

形位公差标注

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

雪山飞狐_lzh 发表于 2004-5-31 23:02:00

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

mccad 发表于 2004-6-1 07:33:00

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 发表于 2004-6-1 10:00:00

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

雪山飞狐_lzh 发表于 2004-6-1 10:34:00

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

clement 发表于 2004-6-1 16:41:00

不好意思,刚刚看到,既然管理员已经回答了最开始的问题,那我就对第二个问题说几句.类型声明字符(数字后面的符号后缀)可以起到表明数据类型的作用
Double 的为感叹号!
Long 的请问怎样把形位公差的数据提出来?

齿轮设计 发表于 2004-10-31 12:47:00

怎样加后面的基准呢？

fortangtang 发表于 2007-6-1 12:55:00

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

查看完整版本: 形位公差标注