根据天正比例快速填充

陈伟 · 发表于 2021-12-9 16:54:01

本帖最后由陈伟于 2023-6-27 22:22 编辑

按天正比例进行快速填充

根据明经网上的快速填充进行优化原帖地址 http://bbs.mjtd.com/forum.php?mo ... 628&fromuid=7328696
感谢 xj6019大神

首先填充图案必须齐全，如不齐全自行按CAD的填充图案修改
在原程序做了以下优化：
1、自动设置填充比例（按天正出图比例）
2、原帖为拾取选择优先修改为内部点选优先
2021年12月13日发现错误：(TGetPScale)在取得比例时如果天正比例小于1会四舍五入导致可能取得的比例为0
将(setq TZBL55 (TGetPScale)) ;取得天正比例
修改为 (setq TZBL55 (getvar "HPSCALE")) ;取得天正比例
就可以解决，12月13日及之前下载过的请更新一下

陈伟 · 发表于 2021-12-16 11:23:09

本帖最后由陈伟于 2023-6-27 22:21 编辑

获取天正比例  另一种方法

(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))

)

lsaizm1314 · 发表于 2021-12-13 10:28:44

谢谢楼主分享

dongya1235 · 发表于 2021-12-29 18:21:58

陈伟发表于 2021-12-29 18:12
探索者比例，参考 http://bbs.mjtd.com/forum.php?mo ... =%CC%BD%CB%F7%D5%DF 不用探索者，只做参考

谢谢，回去手动修改下试试

yanchao316 · 发表于 2021-12-9 18:29:59

tigcat · 发表于 2021-12-9 21:35:32

感谢楼主分享

zhengchuan · 发表于 2021-12-9 21:42:05

感谢楼主分享

thttht · 发表于 2021-12-10 20:14:15

感谢楼主分享

nijiea123 · 发表于 2021-12-10 20:45:08

可惜没有B 只能看看

趣意人生 · 发表于 2021-12-10 21:51:52

感谢楼主分享

w379106181 · 发表于 2021-12-10 22:01:21

感谢楼主分享
感谢楼主分享

czb203 · 发表于 2021-12-11 11:03:46

感谢楼主分享

账号		自动登录	找回密码
密码			注册

根据天正比例快速填充

本帖子中包含更多资源

评分

相关帖子

本帖子中包含更多资源

根据天正比例 快速填充

本帖子中包含更多资源

评分

相关帖子

本帖子中包含更多资源

根据天正比例快速填充