谢谢分享，好资料，学些了

学习一下，谢谢楼主分享！

都说距离太近怎么回事？？？

怎么选不了对象后面，框不住，求解

回复：

1 为了两点不重合，程序内定其间距不小于1米，已能满足一般工程，如有特殊要求，

我可以修改程序，程序提示距离太近就是你选择的两点太近了，其间距小于1米。

2 第二个问题是不存在的，看看图层是否被锁定，栋结，坐标是否用T6以后版本标注的，是否被分解。

如再不行，截个图来看看，并把你的文件上传过来。

好东西要顶起
很实用

程序升级内容简介
1 程序内定“两点最小间距”由1米改为0.01米。
2 增加“已知一点和夹角”的坐标变换程序，不仅能变换坐标，还能变换标高。
3 使用方法调整见内部使用说明。
4 增加菜单和其它 程序（本人使用，未向外发布）。

装一下看看

命令:
命令: _appload 已成功加载 P-ZBBH.fas。
命令: ucs
当前 UCS 名称: *世界*
指定 UCS 的原点或 [面(F)/命名(NA)/对象(OB)/上一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)] <世界> : world
命令: APPLOAD
命令: 世界坐标系的第一点:
无法重复进入 LISP。
点无效。
世界坐标系的第一点: 对应新坐标系第一点: 501471976,4065894584
世界坐标系的第二点: 对应新坐标系第二点，Z值为负输出豪米，否则米，为偶数XY互换: 501482547,4065877168 选择编辑范围
选择对象: 指定对角点: 找到 78 个
选择对象: 指定对角点: 找到 78 个 (78 个重复)，总计 78 个
选择对象: ucs
当前 UCS 名称: *世界*
指定 UCS 的原点或 [面(F)/命名(NA)/对象(OB)/上一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)] <世界> : Prev
命令: APPLOAD
命令: ; 错误: quit / exit abort
命令: 命令:

回楼上：
1 请细看21楼和地板的贴子，不要设置坐标系，不用UCS命令。
2 加载成功后，如需再次使用，输命令P-ZBBH即可。
3 观察天正坐标的改变。