如何分解出块中的文字,其它都不会

品茗新秀 · 发表于 2014-12-29 02:03

本帖最后由品茗新秀于 2015-1-1 23:31 编辑

如何分解出块中的文字,其它都不变这样块中的文字和块互不关联

原块

分解块文字和块不关联了

vectra · 发表于 2014-12-29 02:03

本帖最后由 vectra 于 2015-1-28 20:53 编辑

(defun c:tt (/ dxf ent txt)
(setq ent (car (entsel)))
(while
(and (setq ent (entnext ent))
(setq dxf (entget ent))
(/= "SEQEND" (cdr (assoc 0 dxf)))
(= "ATTRIB" (cdr (assoc 0 dxf)))
)
(setq txt (subst '(0 . "TEXT") '(0 . "ATTRIB") dxf)
txt (vl-remove-if '(lambda (e) (member (car e) '(-1 330 5 2 70 73 74 280))) txt)
)
(entmake txt)
(setq dxf (subst '(1 . "") (assoc 1 dxf) dxf))
(entmod dxf)
)
)

ll_j · 发表于 2014-12-29 09:15

这似乎是“组”（group），试试系统变量pickstyle。

品茗新秀 · 发表于 2014-12-29 09:28

本帖最后由品茗新秀于 2014-12-29 09:32 编辑

ll_j 发表于 2014-12-29 09:15
这似乎是“组”（group），试试系统变量pickstyle。

不是组,看了一下组码,组码中没有组,

我搞了几天, 真的找不到头绪,太痛苦了,看上去,组码中不含名称,看样子,通过组码是行不通的,用戝人的块炸,可以炸开,可以下面的窗图标也炸碎了,只想文字和块分离,其它不变

品茗新秀 · 发表于 2014-12-29 09:36

ll_j 发表于 2014-12-29 09:15
这似乎是“组”（group），试试系统变量pickstyle。

看了一下,没找到相关的帖子,应该有十分的难度,不知哪位高手指点一二.

Gu_xl · 发表于 2014-12-29 10:27

品茗新秀发表于 2014-12-29 09:36
看了一下,没找到相关的帖子,应该有十分的难度,不知哪位高手指点一二.

那是块属性文字!

品茗新秀 · 发表于 2014-12-29 10:52

Gu_xl 发表于 2014-12-29 10:27
那是块属性文字!

是块属性文字,真的想不出如何把文字分离出来

xyp1964 · 发表于 2014-12-29 20:47

;; 实体出块

品茗新秀 · 发表于 2014-12-30 00:17

xyp1964 发表于 2014-12-29 20:47
;; 实体出块

不是把文字炸没了,如果炸没了,直接用CAD炸开即可,而是要块中文字图元分离出来,与块不关联

品茗新秀 · 发表于 2014-12-30 00:19

xyp1964 发表于 2014-12-29 20:47
;; 实体出块

我看了好多,网上基本没有相关,要么炸开后,直线图元和文字图元,现在要拆成块及文字图元,这个可能要难倒高手们了

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

[提问] 如何分解出块中的文字,其它都不会