如何获取天正左下角的出图比例?
如题,如何利用lisp获取天正的出图比例,并作为变量赋值给其他函数?在晓东论坛里面看到利用晓东函数获取的方式,但是我没有装晓东的函数库,想咨询下是否有利用lisp或者vlisp的方法。
(TGetPScale) 感觉也行 我自己用了一种死方法,不是很好,就是先插入一个天正图元,获取出图比例
这种方法的弊端是写入其他程序,就会导致程序运行变慢 已解决
(getvar "HPSCALE") cqu20104225 发表于 2020-3-3 18:28
已解决
(getvar "HPSCALE")
正解啊,收藏备用了 (TGetPScale) 可以 (defun c:tt ()
(command-S ".tpscale" "" )
(princ "\n")
(setq str (getvar "lastprompt"))
(setq TZBL511 (vl-string-left-trim "当前比例<" str))
(setq TZBL77 (vl-string-right-trim ">:" TZBL511))
(setq TZBL55 (atof TZBL77))
)
获取天正比例,CAD2020用着其他版本CAD没测试 cqu20104225 发表于 2020-3-3 18:28
已解决
(getvar "HPSCALE")
zwcad中望CAD这个命令能实现
页:
[1]