社区 › VB › 如何对自动绘制的mline加点（在弯曲很大的地方）

chman 发表于 2005-4-3 11:16:00

如何对自动绘制的mline加点（在弯曲很大的地方）

Sub tt()                        Do While 1
                               If (flgPickNested = True) Then
                                                       Debug.Print "错误"
                                                       Exit Sub
                       Else
                                                       Dim pt As Variant
                                                       ThisDrawing.Utility.GetEntity ent, pt
                       End If
       
                       var = ent.Coordinates
                                               retCoord = ent.Coordinates
                                               k = (UBound(retCoord) + 1) / 3       
                                                       ReDim px(k - 1) As Double
                                                       ReDim py(k - 1) As Double
                                                       For i = 0 To UBound(retCoord) Step 3
                                                                                       px(i / 3) = retCoord(i)
                                                                                       py(i / 3) = retCoord(i + 1)
                                                       Next i
                                                       Dim m As Integer
                                                       Dim n As Integer
                                                       m = 0
                                                       n = 0
                                                       ReDim Center(3 * (k - 1) + 2) As Double
                                                       For i = 0 To k - 1
                                                                                       Center(i * 3) = px(i)
                                                                                       Center(i * 3 + 1) = py(i)
                                                                                       Center(i * 3 + 2) = 0
                                                                                               
                                                       Next i
                                                               
                                                               
                                                                       Dim lwp As AcadMLine
                                                       ThisDrawing.SendCommand "_mline" & vbCr & "j" & vbCr & "z" & vbCr & "s" & vbCr & "20" & vbCr
                                                       Set lwp = ThisDrawing.ModelSpace.AddMLine(Center)
                                               picked = True
                       
Loop
                               
ErrHandle:
                                                                                       
End Sub
以上是提取pline坐标后，用mline重新绘制的源代码
请大家帮忙怎么处理pline弯曲处，我考虑让程序自动增加一些点，来贴合原来比较大的弧线。（因为原来pline是用很粗的线绘制的，这个pline线本生不包括arc段，由于线很粗，所以绘制出来的线，弧度很好，如果用mline描下来，自然就在曲度大的地方一下子就看出来pline和mline就不贴合在一起了）
或者是用一个，只要在 mline线上点击一下就在点击的位置增加一个点。多加几个点再编辑一个，但是如何再mline线上增加点，翻扁了怎个网络就只有lisp做的一个，我对lisp一无所知。所以盼望能有vba版本的。谢谢
或者有什么其他好办法，
一直思路顿塞，痛苦中
盼指教。谢谢

mccad 发表于 2005-4-4 21:38:00

在弧段上增加点，你可以按照凸度的大小来控制加点的多少。
按照前后点与弧段的凸度，则可以计算也弧段上某处的点的坐标。

查看完整版本: 如何对自动绘制的mline加点（在弯曲很大的地方）