如何在程序中关闭实例

lyb_dsa

在VLISP中可以用(setq cadobj (vlax-create-object "AutoCAD.Application.15"))创建一个CAD实例，如何关闭它。
请大侠指点，谢谢！

王咣生

用以下方法关闭实例:
(vlax-invoke-method cadobj 'Quit)

龙龙仔

(setq CADOBJ (vlax-create-object "AUTOCAD.Application.15"))
(vlax-dump-object CADOBJ t)

#<VLA-OBJECT IAcadApplication 0018de34>
; IAcadApplication: 一个 AutoCAD 应用程序的实例
;性质值:
;   ActiveDocument = #<VLA-OBJECT IAcadDocument 0017e754>
;   Application (RO) = #<VLA-OBJECT IAcadApplication 0018de34>
;   Caption (RO) = "龙龙仔工作室"
;   Documents (RO) = #<VLA-OBJECT IAcadDocuments 0017e7e4>
;   FullName (RO) = "C:\\Program Files\\Acadm 6\\acad.exe"
;   Height = 738
;   LocaleId (RO) = 1028
;   MenuBar (RO) = #<VLA-OBJECT IAcadMenuBar 0017e874>
;   MenuGroups (RO) = #<VLA-OBJECT IAcadMenuGroups 0017e904>
;   Name (RO) = "AutoCAD"
;   Path (RO) = "C:\\Program Files\\Acadm 6"
;   Preferences (RO) = #<VLA-OBJECT IAcadPreferences 001b313c>
;   StatusId (RO) = ...未展示索引内容...
;   VBE (RO) = #<VLA-OBJECT VBE 001b338c>
;   Version (RO) = "15.06s (LMS Tech)"
;   Visible = -1
;   Width = 1032
;   WindowLeft = -4
;   WindowState = 1
;   WindowTop = -4
;支持的方法:
;   Eval (1)
;   GetAcadState ()
;   GetInterfaceObject (1)
;   ListArx ()
;   LoadArx (1)
;   LoadDVB (1)
;   Quit ()
;   RunMacro (1)
;   UnloadArx (1)
;   UnloadDVB (1)
;   Update ()
;   ZoomAll ()
;   ZoomCenter (2)
;   ZoomExtents ()
;   ZoomPickWindow ()
;   ZoomPrevious ()
;   ZoomScaled (2)
;   ZoomWindow (2)

;;从以上可以知道关闭方法为QUIT
(VLA-QUIT CADOBJ)

meflying

哪儿有这些对象的属性和方法的详细的介绍，包括word、excel等对象？

龙龙仔

word、excel等对象属性和方法(明总说用录宏再看内容才容易了解)

前生

龙龙仔发表于2003-7-16 12:40:00(setq CADOBJ (vlax-create-object &quot;AUTOCAD.Application.15&quot;))
(vlax-dump-object CADOBJ t)

#
; IAcadApplication: 一个 AutoCAD 应用程序的实例
;性质值:
;   Activ

Caption (RO) = "龙龙仔工作室"
十分感兴趣的是,Caption 只如何改的,在Vlisp中可以办到吗?好象不行.
但是acadx什么的又要注册?

前生

龙龙仔发表于2003-7-16 12:40:00(setq CADOBJ (vlax-create-object &quot;AUTOCAD.Application.15&quot;))
(vlax-dump-object CADOBJ t)

#
; IAcadApplication: 一个 AutoCAD 应用程序的实例
;性质值:
;   Activ

Caption (RO) = "龙龙仔工作室"
十分感兴趣的是,Caption 只如何改的,在Vlisp中可以办到吗?好象不行.
但是acadx什么的又要注册?

龙龙仔

;;对的ACADX.ARX是有点麻烦,最后还是用明总提供的VBA程序

(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)


;|
通过VBA更改AutoCAD窗口的标题名称  返回目录
来源：  明经通道 　作(译)者：  郑立楷 　
上传者：  mccad 　上传时间：2002年9月17日  
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As  
String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Sub SetAcadTitle()
  Dim hw&
  hw = GetParent(GetParent(ThisDrawing.hwnd))
  SetWindowText hw, "明经通道 http://www.mjtd.com"
End Sub
|;

前生

呵呵,是啊,搞掂!