用户43917212
VB编程 制作绘图软件 拖动鼠标左键画连续线,拖动右键画线段
Dim Oldx As SingleDim Oldy As SingleDim L As BooleanDim i As IntegerPrivate Sub Form_Load()i = 0End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Theni = i + 1If i Mod 2 = 0 ThenMe.Line (Oldx, Oldy)-(X, Y)ElseOldx = XOldy = YMe.PSet (X, Y)End IfElseL = TrueOldx = XOldy = YEnd IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If L = True ThenLine (Oldx, Oldy)-(X, Y)Oldx = XOldy = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)L = FalseEnd Sub
用VB编写CAD绘图插件
操作步骤：一、创建一个ACTIVEX DLL cadPro工程二、添加一个模块命名为ModCad.代码如下Public acadApp As ObjectPublic acadDoc As Object（这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用）二、添加一个类ClsTest代码如下：Public Function MenuMain(MenuIndex As Integer) '下面的判断在VB中测试的时候可以用到，在生成DLL后VBA调用时可注释 If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then ConnectToAcad setApp ModCad.acadApp setDoc ModCad.acadDoc End If Select Case MenuIndex Case 1 AutoCADTest Case 2 End SelectEnd FunctionPublic Function ConnectToAcad() On Error Resume Next Set ModCad.acadApp = GetObject(, ＂AutoCAD.Application.16.2＂) '16.2是CAD的版本 If Err Then Err.Clear Set ModCad.acadApp = CreateObject(＂AutoCAD.Application.16.2＂) End If If Err Then Err.Clear Set ModCad.acadApp = GetObject(, ＂AutoCAD.Application＂) If Err Then Err.Clear Set ModCad.acadApp = CreateObject(＂AutoCAD.Application＂) End If If Err Then Unload Me End If End If ModCad.acadApp.Visible = True Set ModCad.acadDoc = ModCad.acadApp.ActiveDocumentEnd FunctionPublic Function setApps(acadObj As AcadApplication) Set ModCad.acadApp = acadObj Set ModCad.acadDoc = acadApp.ActiveDocumentEnd Function'VB中要在CAD中实现的功能Private Function AutoCADTest() Dim cadLine As AcadLine Dim cadPoint As Variant cadPoint = ModCad.acadDoc.Utility.GetPoint（， ＂请选取一个插入点：＂） ModCad.acadDoc.ModelSpace.AddCircle cadPoint, 5End Function三、如果要在VB中调试，在添加一个EXE工程，引用ACTIVEX工程，添加一个窗体，在窗体上添加一个按钮，Private Sub Command1_Click() Dim Rec As New cadPro.MenuMain Rec.MenuMain 1End Sub四、生成DLL文件在VBA中调用。
在工具----设定引用项目中加入生成的DLL。
代码如下：Option ExplicitPrivate clsGre As New cadPro.ClsTestPublic Sub cadtest() On Error Resume Next clsGre.setApp ThisDrawing.Application clsGre.MenuMain 1 End Sub按照以上四个步骤就可实现VB与AutoCAD的连接。
以上程序在本机测试通过。
OS:winxp sp2 chtAuotCAD Version:AutoCAD 2006
用VB6.0制作画图版
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.DrawStyle = 0 End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Line -(X, Y) End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.DrawStyle = 5 End Sub 最简单的绘图
vb模拟画图并输出一般作图软件可以画图,然后“另存为”就可以输出 ...
进入VB 单击左侧工具栏Image控件，在窗体上画一个矩形进入代码窗口 输入：Private Sub Form_Load()Image1.Picture = LoadPicture(＂e：\图片1.jpg＂)Image1.Stretch = TrueForm1.WindowState = 2End SubPrivate Sub Form_Resize()Image1.Move 0, 0, Me.Width, Me.HeightEnd Sub其中“e：\图片1.jpg”可以替换您想要的图片地址
