[编程申请]：如何获取dwg文档中心点坐标

tiger0101 · 发表于 2004-7-30 12:59:14

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

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

×

我用vba编一dvb。已实现批量打开了n个dwg文件，现要求每打开一dwg文件，进行zoomextents操作，使满屏显示，然后获取屏幕中心点坐标，且把此点坐标赋给一数组，请问如何获得这个中点坐标？

eachy · 发表于 2004-8-1 08:30:22

最初由 tiger0101 发布
[B]我用vba编一dvb。已实现批量打开了n个dwg文件，现要求每打开一dwg文件，进行zoomextents操作，使满屏显示，然后获取屏幕中心点坐标，且把此点坐标赋给一数组，请问如何获得这个中点坐标？ [/B]

(getvar "viewctr")

tiger0101 · 发表于 2004-8-1 12:40:43

因为我水平还属于刚起步阶段,所以斑竹写的这个我运用了一下感觉不行啊,斑竹能不能写清楚点,比如实现这样一个程序:获取了屏幕中间点后顺势在这个点上画一个点?

eachy · 发表于 2004-8-1 12:52:20

最初由 tiger0101 发布
[B]因为我水平还属于刚起步阶段,所以斑竹写的这个我运用了一下感觉不行啊,斑竹能不能写清楚点,比如实现这样一个程序:获取了屏幕中间点后顺势在这个点上画一个点? [/B]

本人不懂VBA的写法只是告诉你用VIEWCTR系统变量获取屏幕中心坐标，获取了坐标点你可以用VBA方法放置 POINT 了。

雪山飞狐(lzh) · 发表于 2004-8-1 13:25:04

Application.ZoomExtents
ThisDrawing.ModelSpace.AddPoint ThisDrawing.GetVariable("viewctr")

tiger0101 · 发表于 2004-8-1 17:39:45

因为我水平还属于刚起步阶段,所以斑竹写的这个我运用了一下感觉不行啊,斑竹能不能写清楚点,比如实现这样一个程序:获取了屏幕中间点后顺势在这个点上画一个点?

自由的鱼 · 发表于 2004-8-1 17:45:29

Option Explicit

Sub tt()
Dim cenpnt As Variant
ThisDrawing.Application.ZoomExtents
cenpnt = ThisDrawing.GetVariable("viewctr")
ThisDrawing.ModelSpace.AddPoint (cenpnt)
End Sub

tiger0101 · 发表于 2004-8-1 21:26:34

多谢各位，问题已经解决了。以后我一定多发有益帖子支持论坛建设：）

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

[编程申请]：如何获取dwg文档中心点坐标

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

相关帖子

Re: [编程申请]：如何获取dwg文档中心点坐标

浏览过的版块