打印所有注册的应用程序

marting · 发表于 2017-2-7 22:55:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:GetAppsX (/ oAcad oDoc colRegApps)
   (vl-load-com)
   (setq oAcad (vlax-get-acad-object)
           oDoc (vla-get-activedocument oAcad)
           colRegApps (vla-get-registeredapplications oDoc)
   )
   (princ "\nRegistered apps in drawing:")
   (vlax-for app colRegApps
      (princ (strcat "\n" (vla-get-name app)))
   )
   (vlax-release-object colRegApps)
   (princ)
)

下面是VBA代码

Sub GetApps()

    Dim obj As Variant


    Debug.Print "Registered apps in drawing:"
    For Each obj In ThisDrawing.RegisteredApplications
        Debug.Print obj.Name
    Next obj
    
End Sub

命令: getappsx

Registered apps in drawing:
ACAD
ACAD_P**T
AcadAnnoPO
AcadAnnotative
ACAD_DSTYLE_DIMJAG
ACAD_DSTYLE_DIMTALN
ACAD_MLEADERVER
#XD_DRAW_SCALE
#xd_draw_unit

330774521lhq · 发表于 2017-2-8 11:02:55

正需要，支持楼主大人了！

sicky111 · 发表于 2017-2-8 13:52:12

确实是难得好帖啊，顶先

账号		自动登录	找回密码
密码			立即注册

[每日一码] 打印所有注册的应用程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分