文字偏移复制，请大侠帮忙代码优化<有偿答谢>
本帖最后由 sammy 于 2023-8-1 15:23 编辑偶得1028695446大侠的一段代码，功能是【垂直于文字书写方向偏移复制该文字】，例如平行于某斜线的附注想快速增加一行，又想保持文字的纵向对齐，就可以用到它。
原始版不支持UCS，我稍微改了一下可以了。
又经过xj6019大侠的帮助，现在可以偏移任意对齐基点的文字了。
只是目前还会遇到一些问题，在文字水平和垂直或是旋转角度很小时，还是会出现偏移错位的情况。
还有就是当文字有倾斜角度时，也会出现对齐偏差。
希望有大侠能帮忙把这个程序修改完美，可支付元子酬谢。
问题已解决，感谢各位的热心帮助！！！
本帖最后由 liuhe 于 2023-8-1 09:31 编辑
必须装ET工具箱调用acet-geom-object-point-list函数
更新了一个不需要装工具箱的版本，原来是我想的太复杂，其实很简单。
本帖最后由 ssyfeng 于 2023-8-1 10:28 编辑
上个cad文件，方便测试。
看了你的代码，应该是用了command，没有关闭捕捉造成的，其实你的代码应该是没问题的。
要搞这个精准就要知道文字的最小包围盒，而不是简单的包围盒函数能够精准的，想要优化的可以去找旋转卡壳函数，求文字最小包围盒。或者用(acet-geom-object-point-list na nil)acet的函数用，这个就是最小包围盒 之前在 http://bbs.mjtd.com/thread-188259-1-1.html 贴中发过，但是那个忘记选【提问】了，故重发一个求助帖，顺带更新此帖中的代码。 已添加测试文件。 ssyfeng 发表于 2023-7-31 17:54
上个cad文件，方便测试。
您好，已上传测试文件，请帮忙看看。
xyp1964 发表于 2023-7-31 23:31
院长的程序缺底裤呀， xyp1964 发表于 2023-7-31 23:31
选择对象:; 错误: no function definition: XYP-DXF
是什么原因呢。
页:
[1]
2