求助！！！！在VB中无法用“AppActivate ACADApp.Caption”激活AutoCAD2000,无法交

龙龙仔

是不是還要配合其他程序,我執行都會出錯

龙龙仔

(vl-load-com)
(defun C:XDE (/ XDB APP)
  (setq APP (vlax-get-acad-object))
  (if (/= (substr (vla-get-caption APP) 1 12) "龙龙仔工作室")
    (progn
      (arxload "acadx.arx" NIL)
      (setq XDE (vla-getinterfaceobject APP "AcadX.Drawingeditor"))
      (vlax-put-property
        XDE
        'CAPTION
        "龙龙仔工作室"
      )
      (vlax-release-object APP)
      (arxunload "acadx.arx")
    )
  )
  (princ)
)
(C:XDE)
(princ)

pbh1974

在VBA中就不存在问题了！

efan2000

你是在窗体中使用API吧，VBA在窗体中只能声明为Private（私有）类型的，可以在模块或者类中声明为Public（公共）的。

tfyyf

1、在VB“工程”，“引用”下引用AutoCAD
2、On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
    Err.Clear
    Set AcadApp = CreateObject("AutoCAD.Application")
    If Err Then
        MsgBox "请先安装AutoCAD2000"
        End
    End If
End If
AcadApp.Visible = True
AcadApp.WindowState = acMax

龙龙仔

zxj_76

AcadApp.Visible = True
  AppActivate AcadApp.Caption