请问如何用LISP命令获得当前视口的缩放比例值?

hzh2000

        问题是怎样在不选择视口边框的情况下,只是双击进入该视口,就得到该视口,进而得到该视口的缩放比例值?

(vla-get-CustomScale object)

zxmmelly

2. (Setq cvp-flt '(list
3.     '(-4 . "<and")
4.     '(0 . "VIEWPORT")
5.     '(68 . 1)
6.     (cons 410 (getvar "ctab"))
7.     '(-4 . "and>")
8.    )
9. cvp-flt (eval cvp-flt)
10.   )(setq
11. cvp-data  (entget (ssname (ssget "X" cvp-flt) 0))
12. cvp-41   (cdr (assoc 41 cvp-data))
13. cvp-45   (cdr (assoc 45 cvp-data))
14. cvp-scale (/ cvp-45 cvp-41)
15.       )

(Setq cvp-flt '(list     '(-4 . "<and")     '(0 . "VIEWPORT")     '(68 . 1)     (cons 410 (getvar "ctab"))     '(-4 . "and>")    ) cvp-flt (eval cvp-flt)   )(setq cvp-data  (entget (ssname (ssget "X" cvp-flt) 0)) cvp-41   (cdr (assoc 41 cvp-data)) cvp-45   (cdr (assoc 45 cvp-data)) cvp-scale (/ cvp-45 cvp-41)       )

cvp-scale就是你想要的啦

hzh2000

请注意是在不选择视口边框的情况下,不过已经解决了,谢谢你的帮助.

李青松

zxmmelly 发表于 2008-10-24 01:46
cvp-scale就是你想要的啦

完整的程序是什么？ 怎么运行。

zxmmelly

cvp-flt选中当前活动视口，再entget，得出来的数据中45的值除以41的值就是啦

灬北方狼灬

楼主请教您下是怎么实现呢