xyp1964 发表于 2015-8-14 20:26:51

【e派】关于文本炸碎取外轮廓线步骤的探讨

关于文本炸碎取外轮廓线步骤的探讨：
1、设置镜像显示文字变量 (SetVar "MIRRTEXT" 1)
2、选文本s1

3、镜像文本s1并删除原文本，得到s2

4、取s2中心点pt
5、输出wfm文件 (command "wmfout" "TEXTWMF" s2 "" "erase" s2 "")
6、输入wmf文件放大2倍后实体为s3 (command "wmfin" "TEXTWMF" "non" pt "2" "" "")

7、以s3中心p5移动s3到pt点并原地镜像

8、炸碎s3获得选择集ss0 (command "Explode" s1 "")

9、所有新直线均调整为角度小于180
10、过滤所有重合的直线并全部删除

11、连接所有直线 (command "pedit" ss0 "" "j" 0)

12、恢复镜像显示文字变量 (SetVar "MIRRTEXT" 0)

以上步骤能否再优化，待探讨……

xiaotao 发表于 2015-8-15 07:43:19

老迈做得很好，燕秀工具箱带的也不错！

xyp1964 发表于 2023-12-3 11:32:19

平时也用得少，速度不是问题，核心是准确性！

tanjurun 发表于 2016-10-22 08:49:21

这东西有点用喔

xyp1964 发表于 2015-8-14 20:27:31

本帖最后由 xyp1964 于 2015-8-16 12:05 编辑


;; 代码均为伪源码，待优化
改免币下载供研究

200853006 发表于 2015-8-14 20:29:33

支持院长！

wngxb 发表于 2015-8-14 20:36:29

个人觉得这个对院长来说属于小菜，难的是点太多如何去掉的问题，多数导入max后面就非常不好操作，在CAD中也是非常影响速度的。

spiderman 发表于 2015-8-14 23:01:15

特来拜读，院长实力，相信无人不服。但之前屡有新人提问，院长仅以一图片示之，并未帮助提问者解决实质问题，委实不明院长之真实用意，一时有感而发，可能措词有些激烈，若有冒犯，还望院长海涵。若院长能在闲暇之余，均能以此种方式，提携我等新人，实乃天下所有LISP初学者之福音。泽被苍生，功德无量！

zzyong00 发表于 2015-8-14 23:17:18

这个方法新颖！

bookish 发表于 2015-8-14 23:49:15

大家说话能不拽文吗

tangjunasd58 发表于 2015-8-15 00:45:24

这个论坛有相关的源码

edata 发表于 2015-8-15 11:50:21

凑个热闹，思路是llsheng_73提到的折返线处理，用的老方法，region加union。

页: [1] 2 3 4
查看完整版本: 【e派】关于文本炸碎取外轮廓线步骤的探讨