陈伟 发表于 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

感谢楼主分享
页: [1] 2 3
查看完整版本: 根据天正比例 快速填充