测量值能否直接写到工程图上?

nickenvv

   经典图书

测量椭圆弧长，相当简单。
但是要将测量到的椭圆弧长直接写到工程图时，找了半天没有找到相关的示例。
请问：测量值能否直接写到工程图上的示例吗?

qianjk

不能.
在工程图上,手动,插入注解,输入在零件图上测得的弧长.

taozq

   经典图书

可以直接标注的——

贾同学

小问题，直接标准即可，不需纠结

：易：

   经典案例图书

谢谢你的帖图
此方法只适用于圆弧，对于椭圆和曲线不适用。
看来只能用API才能实现了。
----

'-------------------------------------------------
'
' Preconditions:
' (1) Sketch is active.
' (2) Spline is selected.
'
' Postconditions: None
'
'--------------------------------------------------
Option Explicit
' Define two types
Type DoubleRec
dValue As Double
End Type
Type Long2Rec
iLower As Long
iUpper As Long
End Type
' Extract two integer values from a single double value
' by assigning a DoubleRec to the double value,
' copying the value to a Long2Rec, and
' extracting the integer values
Function ExtractFields _
( _
ByVal dValue As Double, _
iLower As Long, _
iUpper As Long _
)
Dim dr As DoubleRec
Dim i2r As Long2Rec
' Set the double value
dr.dValue = dValue
' Copy the values
LSet i2r = dr
' Extract the values
iLower = i2r.iLower
iUpper = i2r.iUpper
End Function
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swSketchSeg As SldWorks.SketchSegment
Dim swCurve As SldWorks.Curve
Dim nStartParam As Double
Dim nEndParam As Double
Dim bIsClosed As Boolean
Dim bIsPeriodic As Boolean
Dim vStart As Variant
Dim vEnd As Variant
Dim nDummy As Long
Dim nStartSuccess As Long
Dim nEndSuccess As Long
Dim i As Long
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swSketchSeg = swSelMgr.GetSelectedObject5(1)
Set swCurve = swSketchSeg.GetCurve
bRet = swCurve.GetEndParams(nStartParam, nEndParam, bIsClosed, bIsPeriodic)
Debug.Assert bRet
vStart = swCurve.Evaluate(nStartParam)
vEnd = swCurve.Evaluate(nEndParam)
ExtractFields vStart(6), nStartSuccess, nDummy
ExtractFields vEnd(6), nEndSuccess, nDummy
Debug.Assert nStartSuccess
Debug.Assert nEndSuccess
Debug.Print "Length = " & swCurve.GetLength2(nStartParam, nEndParam) * 1000# & " mm"
'Debug.Print " Start Pt = (" & vStart(0) * 1000# & ", " & vStart(1) * 1000# & ", " & vStart(2) * 1000# & " mm"
'Debug.Print " tangent = (" & vStart(3) & ", " & vStart(4) & ", " & vStart(5) & ""
'Debug.Print " End Pt = (" & vEnd(0) * 1000# & ", " & vEnd(1) * 1000# & ", " & vEnd(2) * 1000# & " mm"
'Debug.Print " tangent = (" & vEnd(3) & ", " & vEnd(4) & ", " & vEnd(5) & ""
End Sub

复制代码

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Dim nStartParam As Double
Dim nEndParam As Double
Dim bIsClosed As Boolean
Dim bIsPeriodic As Boolean
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
boolstatus = swModel.Extension.SelectByID2("Ellipse1", "SKETCHSEGMENT", 0.1459970329438, 0.1591547253118, 0, False, 0, Nothing, 0)
Set swSketchSeg = swSelMgr.GetSelectedObject5(1)
Set swCurve = swSketchSeg.GetCurve
bRet = swCurve.GetEndParams(nStartParam, nEndParam, bIsClosed, bIsPeriodic)
Debug.Print "Length = " & swCurve.GetLength2(nStartParam, nEndParam) * 1000# & " mm"
End Sub

复制代码

复制代码

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object, Str
Sub Mm()
Set swApp = Application.SldWorks
Dim nStartParam As Double
Dim nEndParam As Double
Dim bIsClosed As Boolean
Dim bIsPeriodic As Boolean
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
boolstatus = swModel.Extension.SelectByID2("Spline1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set swSketchSeg = swSelMgr.GetSelectedObject5(1)
Set swCurve = swSketchSeg.GetCurve
bRet = swCurve.GetEndParams(nStartParam, nEndParam, bIsClosed, bIsPeriodic)
Str = "Length = " & Round(swCurve.GetLength2(nStartParam, nEndParam) * 1000#, 0) & " mm"
Debug.Print Str
Dim swNote 'As Note
boolstatus = swModel.Extension.SelectByID2("Spline1Txt@图纸1", "NOTE", 0, 0, 0, False, 0, Nothing, 0)
Set swNote = swSelMgr.GetSelectedObject5(1)
Debug.Print swNote.GetName
'bRet = swNote.SetText(Str)
swNote.SetText Str
End Sub

复制代码

MoonNight

楼主这个要求很怪，楼主想过没有，你打算让车间工人如何加工这个尺寸，检验员如何检验这个尺寸，如果不能，你标注这个尺寸的意义何在。

dada

   经典案例图书

计算焊缝长度,椭圆封头(一般是通过计算获得)的下料.

百狐114导航

实现了？？

小呆

同问,为什么要这样做,增加机加工成本,质验也是很困难的,是凸轮曲线吗?如果是追求机械运动轨迹,何不用其他机械传动替代,如气动,液压.都有标准件,成本容易控制.

芳洁9916

   经典图书

工程图中点取智能标注，先取圆弧头尾二点，再取圆弧任意当中一点，就可以标注圆弧了。

闻娅嘉

这个尺寸没啥使用价值，多余的

caiqr

其实这个尺寸在很多时候意义很大，只是楼上各位没有用到罢了

candy

沒用宏，只用了基本辦法，但不知道能否達到樓主的要求。

amwufhvk

通常在这个时候需要多多的顶一下才能看到教程

楠得浪漫

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢你的回复，你的回复就是我的目标需求。
关键点就是你回复中的“接线长度”。找了半天资料都没有解决方法，只能用API解决，但不实用，也不好用。

萍水相逢蜕变

   经典案例图书

尝试修改了一下大王兄的特征宏，发现也可以实现类似的效果。

yepeng

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢回复和帖子的动画帖图,请问采用了API,还是没有采用API.

零件1.zip (16.37 KB, 下载次数: 81)

2014-8-5 03:52 上传

点击文件名下载附件
下载积分: 金币 -1

xlfuture

   经典案例图书

用处不广不能作为没有办法用的借口

0℃訫

佩服，增长了见识，真是自叹弗如啊……
遗憾的是无法学习……

818bbb

一定要多顶顶，顶到发教程