文字偏移复制，请大侠帮忙代码优化<有偿答谢>

sammy · 发表于 2023-7-31 17:47:46

本帖最后由 sammy 于 2023-8-1 15:23 编辑

偶得1028695446大侠的一段代码，功能是【垂直于文字书写方向偏移复制该文字】，例如平行于某斜线的附注想快速增加一行，又想保持文字的纵向对齐，就可以用到它。
原始版不支持UCS，我稍微改了一下可以了。
又经过xj6019大侠的帮助，现在可以偏移任意对齐基点的文字了。

只是目前还会遇到一些问题，在文字水平和垂直或是旋转角度很小时，还是会出现偏移错位的情况。
还有就是当文字有倾斜角度时，也会出现对齐偏差。
希望有大侠能帮忙把这个程序修改完美，可支付元子酬谢。

问题已解决，感谢各位的热心帮助！！！

liuhe · 发表于 2023-8-1 09:15:24

本帖最后由 liuhe 于 2023-8-1 09:31 编辑

必须装ET工具箱调用acet-geom-object-point-list 函数

更新了一个不需要装工具箱的版本，原来是我想的太复杂，其实很简单。

ssyfeng · 发表于 2023-7-31 17:54:22

本帖最后由 ssyfeng 于 2023-8-1 10:28 编辑

上个cad文件，方便测试。
看了你的代码，应该是用了command，没有关闭捕捉造成的，其实你的代码应该是没问题的。

liuhe · 发表于 2023-7-31 21:26:22

要搞这个精准就要知道文字的最小包围盒，而不是简单的包围盒函数能够精准的，想要优化的可以去找旋转卡壳函数，求文字最小包围盒。或者用(acet-geom-object-point-list na nil) acet的函数用，这个就是最小包围盒

sammy · 发表于 2023-7-31 17:50:45

之前在 http://bbs.mjtd.com/thread-188259-1-1.html 贴中发过，但是那个忘记选【提问】了，故重发一个求助帖，顺带更新此帖中的代码。

sammy · 发表于 2023-7-31 18:20:05

已添加测试文件。

sammy · 发表于 2023-7-31 18:21:21

ssyfeng 发表于 2023-7-31 17:54
上个cad文件，方便测试。

您好，已上传测试文件，请帮忙看看。

xyp1964 · 发表于 2023-7-31 23:31:30

sammy · 发表于 2023-8-1 09:08:03

xyp1964 发表于 2023-7-31 23:31

院长的程序缺底裤呀，

hubeiwdlue · 发表于 2023-8-1 09:09:31

xyp1964 发表于 2023-7-31 23:31

选择对象: ; 错误: no function definition: XYP-DXF
是什么原因呢。

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

[提问] 文字偏移复制，请大侠帮忙代码优化<有偿答谢>

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源