求助：如何将两个打开的dwg窗口左右均布

Qwer1243

xiaoyingzi 发表于 2012-8-31 08:55(vl-load-com)

(defun c:docwinleft (/ app doc wrap hwnd w1 h1)

下面是我的要实现图片展示和代码,再次感谢楼主和高飞鸟大师C:\Users\Administrator\Desktop\jdfw.gif
;;;----------------------
;;;;;;;;;不对称分屏;;;;;;
;;;----------------------
(defun c:sp ()
    (vl-load-com)
    (setq AcadObject   (vlax-get-acad-object)
          AcadDocument (vla-get-activedocument AcadObject)
          mSpace       (vla-get-modelspace AcadDocument)
          wrap               (vlax-create-object "DynamicWrapperX") ;创建DynamicWrapperX对象
    )
    (vlax-invoke wrap 'Register "USER32" "MoveWindow" "i=llllll" "r=l") ;注册MoveWindow函数
    (setq DocumentSel (vla-get-documents AcadObject))
    (command "syswindows" "V")
    (vlax-for Document DocumentSel
        (setq hwnd (vla-get-hwnd Document)) ;当前文档句柄
        (if (equal Document (vla-get-activedocument AcadObject))
            (vlax-invoke wrap 'MoveWindow hwnd 600 0 1255 784 1)
            (vlax-invoke wrap 'MoveWindow hwnd 0 0 600 784 1)
        )
    )
    (vlax-release-object wrap)
    (princ)
)

20060510412

; 错误: 参数类型错误: VLA-OBJECT nil
无法正常使用。

edsion24

执行不起来啊

pxt2001

edsion24 发表于 2021-8-25 08:55
执行不起来啊

看这个帖子http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid937834