关于vb和vlisp的问题

owenshowtime

自己顶一下，请各位高手帮忙看一下，curve.cls类模块的应用怎么做呢？最好能给个例子看看，谢谢！

alin

用上面两个

Option Explicit

Sub GetSplineMidPt()
Dim Cv As Curve
Dim objEnt As AcadEntity
Dim pickedPnt As Variant
Dim MidPnt As Variant

On Error Resume Next
Retry:
  ThisDrawing.Utility.GetEntity objEnt, pickedPnt, "Select a Spline:"
 
  If Err <> 0 Then
    Err.Clear
    MsgBox "You missed it."
  Else
    Set Cv = New Curve
    Set Cv.Entity = objEnt
    MidPnt = Cv.GetPointAtDistance(Cv.length / 2#)
    MsgBox "中点坐标 : " & MidPnt(0) & " , " & MidPnt(1) & " , " & MidPnt(2), , "Curve.cls Example"
    Exit Sub
  End If
  GoTo Retry
End Sub

yuangw1234

不如用vb把數據寫到*.txt文件，然後用lisp去讀文件

owenshowtime

多谢alin斑竹，以及各位大侠，小弟好像有点懂了，我再捉摸捉摸！再次感谢各位！