高手门如何用VB封装下面代码为dll 并调用 谢谢

xueliang123

2. Public Sub TestAddArc()
   
3. Dim varCenter As Variant
   
4. Dim dblRadius As Double
   
5. Dim dblStart As Double
   
6. Dim dblEnd As Double
   
7. Dim objEnt As AcadArc
   
8. On Error Resume Next
   
9. '' get input from user
   
10. With ThisDrawing.Utility
    
11. varCenter = .GetPoint(, vbCr & "Pick the center point: ")
    
12. dblRadius = .GetDistance(varCenter, vbCr & "Enter the radius: ")
    
13. dblStart = .GetAngle(varCenter, vbCr & "Enter the start angle: ")
    
14. dblEnd = .GetAngle(varCenter, vbCr & "Enter the end angle: ")
    
15. End With
    
16. '' draw the arc
    
17. If ThisDrawing.ActiveSpace = acModelSpace Then
    
18. Set objEnt = ThisDrawing.ModelSpace.AddArc(varCenter, dblRadius, _
    
19. dblStart, dblEnd)
    
20. Else
    
21. Set objEnt = ThisDrawing.PaperSpace.AddArc(varCenter, dblRadius, dblStart, dblEnd)
    
22. End If
    
23. objEnt.Update
    
24. End Sub

Public Sub TestAddArc()<br /> Dim varCenter As Variant<br /> Dim dblRadius As Double<br /> Dim dblStart As Double<br /> Dim dblEnd As Double<br /> Dim objEnt As AcadArc<br /> On Error Resume Next<br /> '' get input from user<br /> With ThisDrawing.Utility<br /> varCenter = .GetPoint(, vbCr & "Pick the center point: ")<br /> dblRadius = .GetDistance(varCenter, vbCr & "Enter the radius: ")<br /> dblStart = .GetAngle(varCenter, vbCr & "Enter the start angle: ")<br /> dblEnd = .GetAngle(varCenter, vbCr & "Enter the end angle: ")<br /> End With<br /> '' draw the arc<br /> If ThisDrawing.ActiveSpace = acModelSpace Then<br /> Set objEnt = ThisDrawing.ModelSpace.AddArc(varCenter, dblRadius, _<br /> dblStart, dblEnd)<br /> Else<br /> Set objEnt = ThisDrawing.PaperSpace.AddArc(varCenter, dblRadius, dblStart, dblEnd)<br /> End If<br /> objEnt.Update<br /> End Sub

pmq

<CAD VBA二次开发教程>
<AutoCAD VBA开发精彩实例教程>     10.6  使用DLL保护程序

华夏土地网：http://bbs.hxland.com/thread-7419677-1-1.html

xueliang123

pmq 发表于 2015-2-14 21:30
10.6  使用DLL保护程序

华夏土地网：http://bbs.hxland.com/thread-7419677-1-1.html

D:\DLL\ERROR.png

@pmq 谢谢你的指导  我试了一下， 提示错误见附图 。我的系统是win7   vb6.0 AUTOCAD2014

xueliang123

图没附上刚才