vb如何控制CAD界面的大小

jsxygshh

mccad 发表于 2012-10-8 17:54
以前有人帖过，把AutoCAD窗口贴到VB的对话框里去，你可以搜索一下，那个可能更好玩

谢谢提示，但是如果贴到VB窗体中，我以前的很多代码要重新修改，比如：测量长度、提取文字等

woaishuijia

jsxygshh 发表于 2012-10-8 17:46
谢谢你的提示，你的提示用过，由于本人技术较低没有调试成功，请帮忙在上面的代码中帮助添加一下，先表示 ...

2. Private Sub Command1_Click()
   
3.     Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace
   
4.     Dim ToolBar As AcadToolbar
   
5.     On Error Resume Next
   
6.     Set myAcadApp = GetObject(, "Autocad.Application")
   
7.     If Err <> 0 Then
   
8.         Err.Clear
   
9.         Set myAcadApp = CreateObject("Autocad.Application")
   
10.         If Err Then
    
11.             MsgBox Err.Number & ":" & Err.Description
    
12.             Exit Sub
    
13.         End If
    
14.     End If
    
15.     With myAcadApp
    
16.         .WindowState = acMax
    
17.         .Visible = True
    
18.         .ActiveDocument.SetVariable "MENUBAR", 0
    
19.         For Each ToolBar In .MenuGroups.Item("ACAD").Toolbars
    
20.             ToolBar.Visible = False
    
21.         Next
    
22.     End With
    
23.     AppActivate "AUTOCAD"
    
24. End Sub

Private Sub Command1_Click()<br />     Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace<br />     Dim ToolBar As AcadToolbar<br />     On Error Resume Next<br />     Set myAcadApp = GetObject(, "Autocad.Application")<br />     If Err <> 0 Then<br />         Err.Clear<br />         Set myAcadApp = CreateObject("Autocad.Application")<br />         If Err Then<br />             MsgBox Err.Number & ":" & Err.Description<br />             Exit Sub<br />         End If<br />     End If<br />     With myAcadApp<br />         .WindowState = acMax<br />         .Visible = True<br />         .ActiveDocument.SetVariable "MENUBAR", 0<br />         For Each ToolBar In .MenuGroups.Item("ACAD").Toolbars<br />             ToolBar.Visible = False<br />         Next<br />     End With<br />     AppActivate "AUTOCAD"<br /> End Sub

jsxygshh

woaishuijia 发表于 2012-10-8 21:32

谢谢，调试成功了