vb如何控制CAD界面的大小

jsxygshh

请各位高手不吝赐教：
如何用VB打开CAD，并根据显示器的分辨率来调整显示界面的大小，先谢谢了！

jsxygshh

请大家不吝赐教

jsxygshh

请大家不吝赐教

jsxygshh

请大家给予帮助，深表感谢

markc0826

是不是需要呼叫Win API來獲得螢幕尺寸？

mccad

需要通过API来获取屏幕分辨率。

jsxygshh

未调用API，是用下列方法得到的

2. Private Sub Command1_Click()
   
3. Dim myAcadApp As autocad.AcadApplication, activeDoc As autocad.AcadDocument, acMS As autocad.AcadModelSpace
   
4. On Error Resume Next
   
5. Set myAcadApp = GetObject(, "Autocad.Application")
   
6.     If Err <> 0 Then
   
7.         Err.Clear
   
8.         Set myAcadApp = CreateObject("Autocad.Application")
   
9.         If Err Then
   
10.             MsgBox Err.Number & ":" & Err.Description
    
11.             Exit Sub
    
12.         End If
    
13.     End If
    
14.     With myAcadApp
    
15.         .WindowState = acNorm
    
16.         .WindowTop = Screen.Height / Screen.TwipsPerPixelY / 1.8
    
17.         .Height = Screen.Height
    
18.         .Width = Screen.Width / Screen.TwipsPerPixelX + 3
    
19.         .WindowLeft = 0
    
20.     End With
    
21.     myAcadApp.Visible = True
    
22.     AppActivate "AUTOCAD"
    
23. End Sub

Private Sub Command1_Click()<br /> Dim myAcadApp As autocad.AcadApplication, activeDoc As autocad.AcadDocument, acMS As autocad.AcadModelSpace<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 = acNorm<br />         .WindowTop = Screen.Height / Screen.TwipsPerPixelY / 1.8<br />         .Height = Screen.Height<br />         .Width = Screen.Width / Screen.TwipsPerPixelX + 3<br />         .WindowLeft = 0<br />     End With<br />     myAcadApp.Visible = True<br />     AppActivate "AUTOCAD"<br /> End Sub

但是想隐蔽菜单栏和工具栏（工作空间工具栏、标准注释工具栏）的代码现在还没有调试成功，请明主给予指点，先谢谢了

woaishuijia

显示/隐藏菜单栏使用"MENUBAR"系统变量
显示/隐藏某个工具栏使用该 Toolbar 对象的 Visible 属性

jsxygshh

woaishuijia 发表于 2012-10-8 09:45
显示/隐藏菜单栏使用"MENUBAR"系统变量
显示/隐藏某个工具栏使用该 Toolbar 对象的 Visible 属性

谢谢你的提示，你的提示用过，由于本人技术较低没有调试成功，请帮忙在上面的代码中帮助添加一下，先表示感谢！

mccad

以前有人帖过，把AutoCAD窗口贴到VB的对话框里去，你可以搜索一下，那个可能更好玩