如何获取CAD左下角的比例值？

lxw320

LSP中怎样获取CAD左下角的比例值？ 找了很久都没有办法

lxw320

我终于找到间接的方法了。

2. (defun c:2 ()
   
3.    (setq bilichi (getvar "hpscale"))
   
4.    (princ (strcat "当前的比例为1：" (rtos bilichi 2 0)))
   
5.    (princ)
   
6. ) ;_ end defun
   

(defun c:2 ()<br />    (setq bilichi (getvar "hpscale"))<br />    (princ (strcat "当前的比例为1：" (rtos bilichi 2 0)))<br />    (princ)<br /> ) ;_ end defun<br />

tryhi

2. (setq bilichi (getvar "userr1"))
   
3. (princ (strcat "当前的比例为1："(rtos bilichi 2 2)))

(setq bilichi (getvar "userr1"))<br /> (princ (strcat "当前的比例为1："(rtos bilichi 2 2)))

lxw320

tryhi 发表于 2015-10-17 17:57

感谢你的热心，不过这方法不行。  我自己研究出来了

冰之绝恋

楼上好样的

dingtiedt

lxw320 发表于 2015-10-17 19:36
我终于找到间接的方法了。

"hpscale"，是填充比例

儒门小客

lxw320 发表于 2015-10-17 19:36
我终于找到间接的方法了。

(setq bilichi (getvar "hpscale"))    非常好用，感谢

bskidtf

这个不靠谱，有时候会被别的程序修改，你获取得就不对了，你可以获取这个文字来得到比例，我写过