获取视频限制

lpseifert · 发表于 2022-7-6 12:17:42

从大卫·贝瑟尔的例子来看，这应该是可行的


(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的屏幕大小，我觉得有点不好意思；从来没有机会使用它。你每天都在学习新的东西。。。

nicorvp · 发表于 2022-7-6 12:22:35

哇，谢谢你的回答。
最后一种方法在x坐标上留下了一点误差。
我的目的是在WMF导出的文件上绘制局部点，我需要100%精确。所以我想阅读视图数据。问题是我在Autocad 2008中使用VB，不知道如何获取“当前视图”对象，也不知道如何用当前尺寸保存新视图。

copy

Dim v As Common.AcadView
v = acadCurrentDoc.Views.Add("TMP")
MsgBox(v.Width & ", " & v.Height)

使用此代码，v不包含当前视图的宽度和宽度。
你能给我更多的帮助吗？
谢谢

[编程交流] 获取视频限制

发表回复

精选推荐