明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1298|回复: 8

[讨论] 如何获取天正左下角的出图比例?

[复制链接]
发表于 2020-3-3 17:29 | 显示全部楼层 |阅读模式
2明经币
如题,如何利用lisp获取天正的出图比例,并作为变量赋值给其他函数?
在晓东论坛里面看到利用晓东函数获取的方式,但是我没有装晓东的函数库,想咨询下是否有利用lisp或者vlisp的方法。

附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

(TGetPScale) 感觉也行
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2020-3-3 17:29 | 显示全部楼层
(TGetPScale) 感觉也行
回复

使用道具 举报

 楼主| 发表于 2020-3-3 17:36 | 显示全部楼层
我自己用了一种死方法,不是很好,就是先插入一个天正图元,获取出图比例
这种方法的弊端是写入其他程序,就会导致程序运行变慢
回复

使用道具 举报

 楼主| 发表于 2020-3-3 18:28 | 显示全部楼层
已解决
(getvar "HPSCALE")

点评

填充的比例,填充比例改了,就获取不了了  发表于 2021-12-16 12:52
回复

使用道具 举报

发表于 2020-12-22 23:18 | 显示全部楼层
cqu20104225 发表于 2020-3-3 18:28
已解决
(getvar "HPSCALE")

正解啊,收藏备用了
回复

使用道具 举报

发表于 2021-8-22 16:15 | 显示全部楼层
(TGetPScale) 可以

点评

不能保留小数  发表于 2021-12-16 12:52
回复

使用道具 举报

发表于 2021-12-16 12:53 | 显示全部楼层
(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没测试
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-15 07:08 , Processed in 0.329749 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表