【已解决，勿删】DWX怎么获取CAD窗口标题呢，恳请各位大大进来看一下帮忙解决问题

cchessbd

以下函数代码来自高飞鸟大师的回复贴，因在2008下面出错，我稍微修改了一下。CAD06/08是可以支持的，其他版本未测试。但是这个函数只能设置任务栏所有的CAD窗口标题，怎么获取CAD窗口标题呢？求大大指导一下lisp代码怎么写。因为有些窗口我不想改变他的标题。
或者通过 tblsearch 能获取已经加载的arx插件代码也行？这样就可以判断在某个窗口内不更改标题了。

可以了，通过(member)函数已经自行解决。注意了(member)函数：大小写敏感。要判断是不是，只能小写。

(defun dwgTextW (/ app hwd DWX)
(if (setq DWX (vlax-create-object "DynamicWrapperX"))        
    (progn
          (setq app (vlax-get-acad-object))
          (setq hwd (vla-get-hwnd app))
          (setq DWX (vlax-create-object "DynamicWrapperX"))
          (vlax-invoke DWX 'register "USER32" "GetWindowTextW" "i=hpl" "r=l")
          (vlax-invoke DWX 'register "USER32" "SetWindowTextW" "i=hp" "r=l")  
    (if (> (atoi (substr (ver) 13 4)) 2008)
          (vlax-invoke DWX 'register "USER32"  "i=h" "r=l")  ;;此行CAD06/08出错，注释掉
     )
          (vlax-invoke DWX 'SetWindowTextW hwd (strcat (getvar "dwgName") " " (substr (ver) 13 4)))
    (if (> (atoi (substr (ver) 13 4)) 2008)
          (vlax-invoke DWX 'UpdateWindow hwd)  ;;此行CAD06/08出错，注释掉
     )
          (vlax-release-object DWX)
          (vlax-release-object APP)
          (princ)
        )
))

(dwgTextW)