Public Declare Function vlWndCreate Lib "Vecad51.dll" (ByVal hwndParent As Long, ByVal Style As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal pfDwgProc As Any) As Long
Public Declare Function vlWndResize Lib "Vecad51.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long) As Boolean
Public Declare Function vlWndSetTitle Lib "Vecad51.dll" (ByVal hwnd As Long, ByVal Title As String) As Boolean
Public Declare Function vlWndSetMaxRect Lib "Vecad51.dll" (ByVal hwnd As Long, ByRef pRect As RECT) As Boolean
Public Declare Function vlWndSetCursor Lib "Vecad51.dll" (ByVal hwnd As Long, ByVal hCursor As Long) As Boolean
Public Declare Function vlToolBarCreate Lib "Vecad51.dll" (ByVal hwndParent As Long, ByVal Id As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByRef pW As Long, ByRef pH As Long) As Long
Public Declare Function vlToolBarButton Lib "Vecad51.dll" (ByVal ID As Long) As Boolean
Public Declare Function vlStatBarCreate Lib "Vecad51.dll" (ByVal hwndParent As Long, ByRef pH As Long) As Long
Public Declare Function vlStatBarResize Lib "Vecad51.dll" () As Boolean
Public Declare Function vlStatBarSetText Lib "Vecad51.dll" (ByVal iPart As Long, ByVal Text As String) As Boolean
'// Process indicator
Public Declare Function vlIndicCreate Lib "Vecad51.dll" (ByVal hwndParent As Long, ByVal Title As String) As Boolean
Public Declare Function vlIndicDestroy Lib "Vecad51.dll" () As Boolean
Public Declare Function vlIndicSetRange Lib "Vecad51.dll" (ByVal nFrom As Long, ByVal nTo As Long) As Boolean
Public Declare Function vlIndicSetPos Lib "Vecad51.dll" (ByVal iPos As Long) As Boolean
Public Declare Function vlIndicSetText Lib "Vecad51.dll" (ByVal Text As String) As Boolean
Public Declare Function vlIndicStep Lib "Vecad51.dll" () As Boolean
Public Declare Function vlPageAdd Lib "Vecad51.dll" (ByVal Name As String, ByVal Size As Long, ByVal Orient As Long, ByVal W As Long, ByVal H As Long) As Long
Public Declare Function vlPageDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlPageActive Lib "Vecad51.dll" (ByVal Mode As Long, ByVal Index As Long) As Long
Public Declare Function vlPageCount Lib "Vecad51.dll" () As Long
Public Declare Function vlPageIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlLayerAdd Lib "Vecad51.dll" (ByVal Name As String, ByVal LineWidth As Double, ByVal LineColor As Long, ByVal FillColor As Long) As Long
Public Declare Function vlLayerDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlLayerActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlLayerCount Lib "Vecad51.dll" () As Long
Public Declare Function vlLayerIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlStLineAdd Lib "Vecad51.dll" (ByVal Name As String, ByVal Desc As String) As Long
Public Declare Function vlStLineDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlStLineActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlStLineCount Lib "Vecad51.dll" () As Long
Public Declare Function vlStLineIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlStTextAdd Lib "Vecad51.dll" (ByVal Name As String, ByVal Font As String, ByVal Width As Double, ByVal Oblique As Double, ByVal Prec As Long, ByVal Filled As Boolean, ByVal Bold As Boolean) As Long
Public Declare Function vlStTextDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlStTextActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlStTextCount Lib "Vecad51.dll" () As Long
Public Declare Function vlStTextIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlStTextReload Lib "Vecad51.dll" () As Boolean
Public Declare Function vlStHatchAdd Lib "Vecad51.dll" (ByVal Name As String, ByVal Desc As String) As Long
Public Declare Function vlStHatchDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlStHatchActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlStHatchCount Lib "Vecad51.dll" () As Long
Public Declare Function vlStHatchIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlStDimAdd Lib "Vecad51.dll" (ByVal Name As String) As Long
Public Declare Function vlStDimDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlStDimActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlStDimCount Lib "Vecad51.dll" () As Long
Public Declare Function vlStDimIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlStPointAdd Lib "Vecad51.dll" (ByVal Name As String) As Long
Public Declare Function vlStPointDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlStPointActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlStPointCount Lib "Vecad51.dll" () As Long
Public Declare Function vlStPointIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlGrPointAdd Lib "Vecad51.dll" (ByVal Name As String) As Long
Public Declare Function vlGrPointDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlGrPointActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlGrPointCount Lib "Vecad51.dll" () As Long
Public Declare Function vlGrPointIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlViewSave Lib "Vecad51.dll" (ByVal Name As String) As Long
Public Declare Function vlViewDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlViewRestore Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlViewCount Lib "Vecad51.dll" () As Long
Public Declare Function vlViewIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlPrnRectAdd Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal W As Double, ByVal H As Double, ByVal Angle As Double) As Long
Public Declare Function vlPrnRectDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlPrnRectCount Lib "Vecad51.dll" () As Long
Public Declare Function vlPrnRectPrint Lib "Vecad51.dll" (ByVal Index As Long, ByVal hPrintDC As Long, ByVal ScaleX As Double, ByVal ScaleY As Double, ByVal OriginX As Double, ByVal OriginY As Double) As Boolean
Public Declare Function vlBlockBegin Lib "Vecad51.dll" () As Boolean
Public Declare Function vlBlockAdd Lib "Vecad51.dll" (ByVal Name As String, ByVal X As Double, ByVal Y As Double) As Long
Public Declare Function vlBlockAddF Lib "Vecad51.dll" (ByVal FileName As String, ByVal BlockName As String) As Long
Public Declare Function vlBlockDelete Lib "Vecad51.dll" (ByVal Index As Long) As Boolean
Public Declare Function vlBlockActive Lib "Vecad51.dll" (ByVal Index As Long) As Long
Public Declare Function vlBlockCount Lib "Vecad51.dll" () As Long
Public Declare Function vlBlockIndex Lib "Vecad51.dll" (ByVal Name As String, ByVal ID As Long) As Long
Public Declare Function vlAddPoint Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double) As Long
Public Declare Function vlAddLine Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double) As Long
Public Declare Function vlAddCircle Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Rad As Double) As Long
Public Declare Function vlAddCircle3P Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal X3 As Double, ByVal Y3 As Double) As Long
Public Declare Function vlAddArc Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Rad As Double, ByVal Ang1 As Double, ByVal Ang2 As Double) As Long
Public Declare Function vlAddArc3P Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal X3 As Double, ByVal Y3 As Double) As Long
Public Declare Function vlAddEllipse Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Rh As Double, ByVal Rv As Double, ByVal Ang As Double) As Long
Public Declare Function vlSetTextParam Lib "Vecad51.dll" (ByVal Mode As Long, ByVal Var As Double) As Boolean
Public Declare Function vlSetTextParams Lib "Vecad51.dll" (ByVal Align As Long, ByVal h As Double, ByVal Ang As Double, ByVal ScaleW As Double, ByVal Oblique As Double, ByVal HInter As Double, ByVal VInter As Double) As Boolean
Public Declare Function vlAddText Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Text As String) As Long
Public Declare Function vlPolylineBegin Lib "Vecad51.dll" () As Boolean
Public Declare Function vlVertex Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double) As Boolean
Public Declare Function vlVertexR Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Radius As Double) As Boolean
Public Declare Function vlVertexF Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal bOnCurve As Boolean) As Boolean
Public Declare Function vlVertexB Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Bulge As Double) As Boolean
Public Declare Function vlAddPolyline Lib "Vecad51.dll" (ByVal SmoothType As Long, ByVal bClosed As Boolean) As Long
Public Declare Function vlAddBlockIns Lib "Vecad51.dll" (ByVal Index As Long, ByVal X As Double, ByVal Y As Double, ByVal Ang As Double, ByVal Xscale As Double, ByVal Yscale As Double) As Long
Public Declare Function vlAddHatch Lib "Vecad51.dll" (ByVal Index As Long, ByVal Scal As Double, ByVal Ang As Double) As Long
Public Declare Function vlAddRaster Lib "Vecad51.dll" (ByVal FileName As String, ByVal X As Double, ByVal Y As Double, ByVal ResH As Double, ByVal ResV As Double) As Long
Public Declare Function vlAddRect Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal w As Double, ByVal h As Double, ByVal Ang As Double, ByVal Rad As Double) As Long
Public Declare Function vlAddDimHor Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Y As Double) As Long
Public Declare Function vlAddDimVer Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal X As Double) As Long
Public Declare Function vlAddDimPar Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Off As Double) As Long
Public Declare Function vlAddDimAng Lib "Vecad51.dll" (ByVal Xcen As Double, ByVal Ycen As Double, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Off As Double) As Long
Public Declare Function vlAddDimRad Lib "Vecad51.dll" (ByVal Xcen As Double, ByVal Ycen As Double, ByVal Xrad As Double, ByVal Yrad As Double, ByVal Off As Double) As Long
Public Declare Function vlAddDimDiam Lib "Vecad51.dll" (ByVal Xcen As Double, ByVal Ycen As Double, ByVal Xrad As Double, ByVal Yrad As Double) As Long
Public Declare Function vlAddDimOrd Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Xtxt As Double, ByVal Ytxt As Double, ByVal bYord As Boolean) As Long
Public Declare Function vlAddCustom Lib "Vecad51.dll" (ByVal ObjType As Long, ByVal pData As Any, ByVal DataSize As Long, ByVal ElemSize As Long) As Boolean
Public Declare Function vlGetEntity Lib "Vecad51.dll" (ByVal Mode As Long, ByVal Prm1 As Long, ByVal Prm2 As Long) As Long
Public Declare Function vlSelect Lib "Vecad51.dll" (ByVal Sel As Boolean, ByVal Index As Long) As Boolean
Public Declare Function vlSelectByPoint Lib "Vecad51.dll" (ByVal Sel As Boolean, ByVal X As Double, ByVal Y As Double) As Long
Public Declare Function vlSelectByRect Lib "Vecad51.dll" (ByVal Sel As Boolean, ByVal Left As Double, ByVal Bottom As Double, ByVal Right As Double, ByVal Top As Double, ByVal Cross As Boolean) As Long
Public Declare Function vlSelectByPolygon Lib "Vecad51.dll" (ByVal Sel As Boolean, Ver As VLPOINT, ByVal Nver As Long, ByVal Cross As Boolean) As Long
Public Declare Function vlCbCut Lib "Vecad51.dll" () As Boolean
Public Declare Function vlCbCopy Lib "Vecad51.dll" () As Boolean
Public Declare Function vlCbPaste Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double) As Boolean
Public Declare Function vlCopy Lib "Vecad51.dll" (ByVal iObj As Long, ByVal dx As Double, ByVal dy As Double) As Long
Public Declare Function vlMove Lib "Vecad51.dll" (ByVal iObj As Long, ByVal dx As Double, ByVal dy As Double) As Boolean
Public Declare Function vlRotate Lib "Vecad51.dll" (ByVal iObj As Long, ByVal X As Double, ByVal Y As Double, ByVal Ang As Double) As Boolean
Public Declare Function vlScale Lib "Vecad51.dll" (ByVal iObj As Long, ByVal X As Double, ByVal Y As Double, ByVal Scal As Double) As Boolean
Public Declare Function vlMirror Lib "Vecad51.dll" (ByVal iObj As Long, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double) As Boolean
Public Declare Function vlErase Lib "Vecad51.dll" (ByVal iObj As Long) As Boolean
Public Declare Function vlExplode Lib "Vecad51.dll" (ByVal iObj As Long) As Boolean
Public Declare Function vlUndo Lib "Vecad51.dll" () As Boolean
Public Declare Function vlRedo Lib "Vecad51.dll" () As Boolean
Public Declare Function vlPolyVerInsert Lib "Vecad51.dll" (ByVal iEnt As Long, ByVal iVer As Long) As Boolean
Public Declare Function vlPolyVerDelete Lib "Vecad51.dll" (ByVal iEnt As Long, ByVal iVer As Long) As Boolean
Public Declare Function vlPolyVerGet Lib "Vecad51.dll" (ByVal iEnt As Long, ByVal iVer As Long, ByRef pX As Double, ByRef pY As Double, ByRef pPrm As Double) As Boolean
Public Declare Function vlPolyVerSet Lib "Vecad51.dll" (ByVal iEnt As Long, ByVal iVer As Long, ByVal X As Double, ByVal Y As Double, ByVal Prm As Double) As Boolean
Public Declare Function vlGripGet Lib "Vecad51.dll" (ByVal iObj As Long, ByVal iGrip As Long, ByRef X As Double, ByRef Y As Double)
Public Declare Function vlGripSet Lib "Vecad51.dll" (ByVal iObj As Long, ByVal iGrip As Long, ByVal X As Double, ByVal Y As Double)
Public Declare Function vlGripMove Lib "Vecad51.dll" (ByVal iObj As Long, ByVal iGrip As Long, ByVal DX As Double, ByVal DY As Double) As Boolean
Public Declare Function vlZoom Lib "Vecad51.dll" (ByVal Scal As Double) As Boolean
Public Declare Function vlZoomRect Lib "Vecad51.dll" (ByVal Left As Double, ByVal Bottom As Double, ByVal Right As Double, ByVal Top As Double) As Boolean
Public Declare Function vlZoomPan Lib "Vecad51.dll" (ByVal dx As Double, ByVal dy As Double) As Boolean
Public Declare Function vlCoordWinToDwg Lib "Vecad51.dll" (ByVal Xwin As Long, ByVal Ywin As Long, ByRef pXdwg As Double, ByRef pYdwg As Double) As Boolean
Public Declare Function vlCoordDwgToWin Lib "Vecad51.dll" (ByVal Xdwg As Double, ByVal Ydwg As Double, ByRef pXwin As Long, ByRef pYwin As Long) As Boolean
Public Declare Function vlLenWinToDwg Lib "Vecad51.dll" (ByVal Lwin As Long, ByRef pLdwg As Double) As Boolean
Public Declare Function vlLenDwgToWin Lib "Vecad51.dll" (ByVal Ldwg As Double, ByRef pLwin As Long) As Boolean
Public Declare Function vlSetDrawPen Lib "Vecad51.dll" (ByVal Width As Double, ByVal Color As Long) As Boolean
Public Declare Function vlDrawPoint Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Typ As Long, ByVal Size As Long) As Boolean
Public Declare Function vlDrawLine Lib "Vecad51.dll" (ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double) As Boolean
Public Declare Function vlDrawPolyline Lib "Vecad51.dll" (Ver As VLPOINT, ByVal Nver As Long, ByVal bClosed As Boolean) As Boolean
Public Declare Function vlDrawPolygon Lib "Vecad51.dll" (Ver As VLPOINT, ByVal Nver As Long, ByVal Fill As Boolean, ByVal Border As Boolean, ByVal FillColor As Long) As Boolean
Public Declare Function vlDrawCircle Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Rad As Double) As Boolean
Public Declare Function vlDrawArc Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Rad As Double, ByVal Ang1 As Double, ByVal Ang2 As Double) As Boolean
Public Declare Function vlDrawEllipse Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Rh As Double, ByVal Rv As Double, ByVal Ang As Double) As Boolean
Public Declare Function vlDrawText Lib "Vecad51.dll" (ByVal X As Double, ByVal Y As Double, ByVal Text As String) As Boolean
Public Declare Function vlDrawBitmap Lib "Vecad51.dll" (ByVal HBitmap As Long, ByVal W As Long, ByVal H As Long, ByVal X As Double, ByVal Y As Double, ByVal ResX As Double, ByVal ResY As Double) As Boolean
Public Declare Function vlDrawEntity Lib "Vecad51.dll" (ByVal Index As Long, ByVal Xbase As Double, ByVal Ybase As Double, ByVal Xins As Double, ByVal Yins As Double, ByVal Angle As Double, ByVal ScaleX As Double, ByVal ScaleY As Double) As Boolean
Public Declare Function vlExecute Lib "Vecad51.dll" (ByVal IdCmd As Long) As Boolean
Public Declare Function vlSetAccKey Lib "Vecad51.dll" (ByVal IdCmd As Long, ByVal VirtKey As Long, ByVal Flags As Long) As Boolean
Public Declare Function vlClear Lib "Vecad51.dll" (ByVal bSetDefLayout As Boolean) As Boolean
Public Declare Function vlSetFocus Lib "Vecad51.dll" () As Boolean
Public Declare Function vlUpdate Lib "Vecad51.dll" () As Boolean
Public Declare Function vlRedraw Lib "Vecad51.dll" () As Boolean
Public Declare Function vlReset Lib "Vecad51.dll" () As Boolean
Public Declare Function vlPrint Lib "Vecad51.dll" (ByVal hPrintDC As Long, ByVal Left As Double, ByVal Bottom As Double, ByVal Right As Double, ByVal Top As Double, ByVal ScaleX As Double, ByVal ScaleY As Double, ByVal OriginX As Double, ByVal OriginY As Double) As Boolean
Public Declare Function vlDoRaster Lib "Vecad51.dll" (ByVal FileName As String, ByVal Left As Double, ByVal Bottom As Double, ByVal Right As Double, ByVal Top As Double, ByVal Res As Double) As Boolean
Public Declare Function vlGetWinSize Lib "Vecad51.dll" (ByVal hwnd As Long, ByRef pWidth As Long, ByRef pHeight As Long) As Boolean
Public Declare Function vlSetTimer Lib "Vecad51.dll" (ByVal Id As Long, ByVal Elapse As Long) As Boolean
Public Declare Function vlKillTimer Lib "Vecad51.dll" (ByVal Id As Long) As Boolean