hzh2000 发表于 2008-10-17 14:33:00

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

<div class="t_msgfont" id="postmessage_50756"><br/><font size="4">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 问题是怎样在不选择视口边框的情况下,只是双击进入该视口,就得到该视口,进而得到该视口的缩放比例值?</font></div><div class="t_msgfont"><font size="4">(vla-get-CustomScale <font color="#ee3d11">object)</font></font></div>

zxmmelly 发表于 2008-10-24 01:46:00

(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 发表于 2008-10-24 10:08:00

<p>请注意是<font size="4">在不选择视口边框的情况下,不过</font>已经解决了,谢谢你的帮助.</p>

李青松 发表于 2014-11-27 10:01:37

zxmmelly 发表于 2008-10-24 01:46 static/image/common/back.gif
cvp-scale就是你想要的啦

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

zxmmelly 发表于 2015-2-7 01:00:24

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

灬北方狼灬 发表于 2022-4-29 15:22:47

楼主请教您下是怎么实现呢
页: [1]
查看完整版本: 请问如何用LISP命令获得当前视口的缩放比例值?