龙龙仔 发表于 2003-1-10 08:27:00

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

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

龙龙仔 发表于 2003-1-10 08:33:00

需配合acadX.arx,本站好像有提供下载,程序….

(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 发表于 2003-1-10 09:20:00

在VBA中就不存在问题了！

在VBA中就不存在问题了！

efan2000 发表于 2003-1-11 16:13:00

Re:声明错误

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

tfyyf 发表于 2003-1-11 20:34:00

1、在VB“工程”，“引用”下引用AutoCAD

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

龙龙仔 发表于 2003-1-13 12:39:00

謝了,巳修正!!

zxj_76 发表于 2003-1-15 16:45:00

AcadApp.Visible = True

AcadApp.Visible = True
AppActivate AcadApp.Caption
页: 1 [2]
查看完整版本: 求助！！！！在VB中无法用“AppActivate ACADApp.Caption”激活AutoCAD2000,无法交