CAD里的样条曲线怎样转换成坐标或数值

2024-11-26 20:34:05
推荐回答(4个)
回答1:

简单方法:另存为dxf,然后用记事本打开dxf,搜索AcDbSpline,在其后就可以找到点坐标了。
复杂点的方法:用宏中vb编辑器。
Sub www()
Dim myspl As AcadSpline
Dim selobj As Object
Dim ppt As Variant
'1 首先要选择该样条曲线,
’以下do while 语句仅仅是为了避免选择样条曲线时出错。如若简单点的话可以改成
'ThisDrawing.Utility.GetEntity selobj, ppt, "请选择样条曲线"
'Set myspl = selobj
Do While code = 0
On Error Resume Next
ThisDrawing.Utility.GetEntity selobj, ppt, "请选择样条曲线"
If Err <> 0 Then
Err.Clear
ThisDrawing.Utility.Prompt " 没有选定样条曲线对象,退出"
Exit Sub
End If
If Err.Number = 0 Then
If (selobj.EntityName = "AcDbSpline") Then
Set myspl = selobj ‘将获取的曲线赋给变量myspl
Exit Do
End If
Err.Clear
End If
Loop

Dim np As Integer
Dim pl() As Double
Dim pt As Variant
'2 获取点坐标并且存入c:\1.txt(这个路径可以改)中
np = myspl.NumberOfFitPoints ’获取样条曲线的点数
ReDim pl(0 To np * 3 - 1)
Open "c:\1.txt" For Output As #1
For i = 0 To np - 1
pt = myspl.GetFitPoint(i) ‘获取样条曲线第i个点
For j = 0 To 2
pl(i * 3 + j) = pt(j)
Next
Print #1, pt(0), pt(1), pt(2) ’输出样条曲线的点坐标到.txt中
Next
ThisDrawing.ModelSpace.Add3DPoly pl ‘ 将样条曲线的点连成多段线
Close #1
ZoomAll
End Sub

回答2:

楼主,如果你是想转换成坐标或数值,根本不用第三方软件,用LI命令,选择样条曲线,按空格后里面的坐标数值也就全部显示在你面前了

回答3:

文件另存为R12的DXF,关闭,再打开就可以了。
或者下载个燕秀工具箱,里面有样条曲线转圆弧命令。

回答4:

下载一个燕秀工具箱,里面有转线切割用的圆弧曲线的。