批量框选文字怎样求得包围文字的图元(框)，请高手提供思路和所使用的关键函数

longzh0542 · 发表于 2016-5-4 19:37

在钣金行业，把大面的图放好样后有时要折分、统计和画展开已便得到单个便于生产的图形。要得到单个图形便要反复的剪切，移动....图一多的时候会很麻烦枯燥。有没有一个LISP程序先框选，再根椐文字编号的大小单独的折分出来。如果有的话烦请好心人分享，如果没有那么请大师们提供一下思路和所使用的关键函数，我会一点lisp自己慢慢写。先谢过了附件是样板文件和所要达到的目的。

longzh0542 · 发表于 2016-5-5 17:10

大神都在忙没空么，还是这个功能太小众了大神们不懒的出手....呼叫大神们帮忙...

USER2128 · 发表于 2016-5-6 19:03

;;; 给你主要的代码，其余自行扩充：
(setvar "cmdecho" 1)
(command "_.boundary" "_a" "_i" "_n" "_n" "" "_a" "_o" "_p" "" "_non" pause "")
(command "_.move" (entlast) "" pause pause)

longzh0542 · 发表于 2016-5-6 19:15

USER2128 发表于 2016-5-6 19:03
;;; 给你主要的代码，其余自行扩充：
(setvar "cmdecho" 1)
(command "_.boundary" "_a" "_i" "_n" "_n" ...

谢谢，试了下这个命令，是这个需要的，

琴剑江山_10184 · 发表于 2016-5-6 19:34

本帖最后由琴剑江山_10184 于 2016-5-6 19:36 编辑

是不是这样的效果啊

longzh0542 · 发表于 2016-5-6 19:39

琴剑江山_10184 发表于 2016-5-6 19:34
是不是这样的效果啊

是的，非常是的，

，高大上的

longzh0542 · 发表于 2016-5-6 19:41

琴剑江山_10184 发表于 2016-5-6 19:34
是不是这样的效果啊

大师可以分享不，我很期待

琴剑江山_10184 · 发表于 2016-5-6 19:44

longzh0542 发表于 2016-5-6 19:41
大师可以分享不，我很期待

我再改进下啊，星期一给你吧

longzh0542 · 发表于 2016-5-6 20:36

琴剑江山_10184 发表于 2016-5-6 19:44
我再改进下啊，星期一给你吧

最好原来的文字不要弄没了，每个拆开的图以最长边放水平那就更完美了...，好的，经常出差没有太多的时间，要我自己弄的话得要很久了，谢谢了江山兄。

琴剑江山_10184 · 发表于 2016-5-9 08:29

longzh0542 发表于 2016-5-6 20:36
最好原来的文字不要弄没了，每个拆开的图以最长边放水平那就更完美了...，好的，经常出差没有太多的时间， ...

你还要其它要求呢，自己慢慢改吧

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

[已解答] 批量框选文字怎样求得包围文字的图元(框)，请高手提供思路和所使用的关键函数

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源