(setq vctr (getvar "viewctr")
vhgt (getvar "viewsize");view height
vrat (/ (car (getvar "screensize"))(cadr (getvar "screensize")));view width/height ratio
vwid (* vrat vhgt);view width
vll (list (- (car vctr) (/ vwid 2)) (- (cadr vctr) (/ vhgt 2))); Lower left coordinates
vur (list (+ (car vctr) (/ vwid 2))(+ (cadr vctr) (/ vhgt 2))); Upper right coordinates
)
不知道sysvar的屏幕大小，我觉得有点不好意思；从来没有机会使用它。你每天都在学习新的东西。。。 哇，谢谢你的回答。
最后一种方法在x坐标上留下了一点误差。
我的目的是在WMF导出的文件上绘制局部点，我需要100%精确。所以我想阅读视图数据。问题是我在Autocad 2008中使用VB，不知道如何获取“当前视图”对象，也不知道如何用当前尺寸保存新视图。
Dim v As Common.AcadView
v = acadCurrentDoc.Views.Add("TMP")
MsgBox(v.Width & ", " & v.Height)
使用此代码，v不包含当前视图的宽度和宽度。
你能给我更多的帮助吗？
谢谢
页:
1
[2]