获取视频限制

nicorvp · 发表于 2022-7-6 11:19:44

你好
我需要获得图形的视频限制坐标（而不是图形范围）。我已经尝试获取“LIMMIN”和“LIMMAX”变量，但这不是我需要的结果。
我需要这些点，因为我需要知道wmf导出的极限。现在我只能用“status”命令手动读取它们
谢谢

lpseifert · 发表于 2022-7-6 11:26:18

Vpmax/Vpmin可能？

nicorvp · 发表于 2022-7-6 11:34:34

谢谢你的回复，但我还没有找到Vpmax/Vpmin变量。我正在使用ACad2008。

Lee Mac · 发表于 2022-7-6 11:37:15

VSMin/VSMax？

nicorvp · 发表于 2022-7-6 11:43:31

我已经试过了，但是VSMin/VSMax不是我想要的值。还有其他猜测吗？

nicorvp · 发表于 2022-7-6 11:48:54

现在我已经了解了如何计算屏幕视图的左/右角的Y坐标（=VIEWCTRy+（-）VIEWSIZE/2）。但是，如何获得屏幕的高度/宽度比，以使用VSMin/VSMax计算X坐标？对不起，我对视图和视口不太在行。

lpseifert · 发表于 2022-7-6 11:53:47

我试过这个，有时有效，但不总是有效。我发现，使用Vsmax/Vsmin并不总是给出屏幕大小的比率

copy


(defun test ()
 (setq vmax (getvar "vsmax")
   vmin (getvar "vsmin")
   vctr (getvar "viewctr")
   vhgt (getvar "viewsize");view height
   vrat (/ (abs(- (car vmin)(car vmax))) (abs (- (cadr vmin)(cadr vmax)))); 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
   )
 )

David Bethel · 发表于 2022-7-6 12:00:08

我过去也有过同样的问题。

我使用了一种不同的方法：

copy


[b][color=BLACK]([/color][/b]defun c:scrsize [b][color=FUCHSIA]([/color][/b]/ tdef c x y ll ur[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Save"[/color] [color=#2f4f4f]"TMP"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq tdef [b][color=NAVY]([/color][/b]tblsearch [color=#2f4f4f]"VIEW"[/color] [color=#2f4f4f]"TMP"[/color][b][color=NAVY])[/color][/b]
          c [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 10 tdef[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
          x [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 41 tdef[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
          y [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 40 tdef[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
         ll [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]car  c[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* x 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                  [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]cadr c[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* y 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
         ur [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]+ [b][color=GREEN]([/color][/b]car  c[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* x 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                  [b][color=MAROON]([/color][/b]+ [b][color=GREEN]([/color][/b]cadr c[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* y 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]list ll ur[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

原油，但acad也可以是原油-大卫

lpseifert · 发表于 2022-7-6 12:04:21

很好大卫。。。尽管你可能认为它很粗糙，但至少它给出了准确/一致的结果。我从未想过保存视图并使用tblsearch。

David Bethel · 发表于 2022-7-6 12:10:40

有时粗鲁对我有用！强迫ACAD做这项工作也是我最喜欢做的事情。

计算x的另一种方法：

copy


(* (getvar "VIEWSIZE) (/ (car (getvar "SCCRENSIZE"))
                        (cadr (getvar "SCREESIZE"))))

这个稍微好一点，因为它应该比实际尺寸小一点-大卫

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

发表回复

精选推荐