jsxygshh 发表于 2012-10-3 09:14:19

vb如何控制CAD界面的大小

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

jsxygshh 发表于 2012-10-3 09:59:59

请大家不吝赐教

jsxygshh 发表于 2012-10-4 07:08:49

请大家不吝赐教

jsxygshh 发表于 2012-10-4 09:39:29

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

markc0826 发表于 2012-10-5 10:52:58

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

mccad 发表于 2012-10-7 12:39:00

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

jsxygshh 发表于 2012-10-7 21:06:03

未调用API，是用下列方法得到的Private Sub Command1_Click()
Dim myAcadApp As autocad.AcadApplication, activeDoc As autocad.AcadDocument, acMS As autocad.AcadModelSpace
On Error Resume Next
Set myAcadApp = GetObject(, "Autocad.Application")
    If Err <> 0 Then
      Err.Clear
      Set myAcadApp = CreateObject("Autocad.Application")
      If Err Then
            MsgBox Err.Number & ":" & Err.Description
            Exit Sub
      End If
    End If
    With myAcadApp
      .WindowState = acNorm
      .WindowTop = Screen.Height / Screen.TwipsPerPixelY / 1.8
      .Height = Screen.Height
      .Width = Screen.Width / Screen.TwipsPerPixelX + 3
      .WindowLeft = 0
    End With
    myAcadApp.Visible = True
    AppActivate "AUTOCAD"
End Sub但是想隐蔽菜单栏和工具栏（工作空间工具栏、标准注释工具栏）的代码现在还没有调试成功，请明主给予指点，先谢谢了

woaishuijia 发表于 2012-10-8 09:45:22

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

jsxygshh 发表于 2012-10-8 17:46:30

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

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

mccad 发表于 2012-10-8 17:54:53

以前有人帖过，把AutoCAD窗口贴到VB的对话框里去，你可以搜索一下，那个可能更好玩
页: [1] 2
查看完整版本: vb如何控制CAD界面的大小