帮忙把vlisp改为 arx 谢谢

14702470 · 发表于 2016-7-14 09:02:19

本帖最后由 14702470 于 2016-7-14 09:02 编辑

(defun c:v ()
(vl-load-com)
(setq *AcadObject* (vlax-get-acad-object)
*document* (vla-get-activedocument *AcadObject*)
*viewports* (vlax-get-property *document* 'viewports)
*activeport* (vlax-get-property *document* 'activeviewport)
)
(setq centerviewport (getvar "viewctr"))
(setq hightviewport (getvar "viewsize"))
(setq *handle* (vlax-get-property *activeport* 'handle))
(vlax-for viewports-i *viewports*
(setq handle-i (vlax-get-property viewports-i 'handle))
(if (/= handle-i *handle*)
(progn
(vla-put-ActiveViewport *document* viewports-i)
;;;(vla-ZoomCenter *AcadObject* (vlax-3D-point centerviewport) hightviewport)
(xdrx_document_zoomCenter centerviewport hightviewport)
)
)
)
;;;(vla-put-ActiveViewport *document* *activeport*)
)

本人用这个程序主要目的是单个文档下，两个视口（或多个）手动同步，免一直移动，什么程序基本能实现，问题是(vla-put-ActiveViewport *document* viewports-i)时候原视口会自动刷新，视图不能保存为原来的视口，我用vba也写过，也是一样的问题。所以请对ObjectARX熟悉的大侠帮忙写下，本人想自己写，对c++都不懂，研究几天实在改不出来。cad为2014的，最好能提供源代码，供本人学习下。谢谢了。

st788796 · 发表于 2016-7-14 09:41:37

看看高飞那个代码，里面有个对图功能

14702470 · 发表于 2016-7-14 23:17:21

源代码要很多币，下载不下来

GFspringwillow · 发表于 2016-12-5 13:18:22

使用DuoTab工具，里面有同步滚动功能，非常好用，适合对图。

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

[编程申请] 帮忙把vlisp改为 arx 谢谢