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)
) ; 错误: 参数类型错误: VLA-OBJECT nil
无法正常使用。
执行不起来啊
edsion24 发表于 2021-8-25 08:55
执行不起来啊
看这个帖子http://bbs.mjtd.com/forum.php?mod=viewthread&tid=186586&page=1&extra=#pid937834
页:
1
[2]