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

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

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

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

原块



分解块文字和块不关联了

























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

本帖最后由 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:35

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

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

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

ll_j 发表于 2014-12-29 09:15 static/image/common/back.gif
这似乎是“组”（group），试试系统变量pickstyle。
不是组,看了一下组码,组码中没有组,

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

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

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

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

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

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

那是块属性文字!

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

Gu_xl 发表于 2014-12-29 10:27 static/image/common/back.gif
那是块属性文字!

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

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

;; 实体出块

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

xyp1964 发表于 2014-12-29 20:47 static/image/common/back.gif
;; 实体出块

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

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

xyp1964 发表于 2014-12-29 20:47 static/image/common/back.gif
;; 实体出块

我看了好多,网上基本没有相关,要么炸开后,直线图元和文字图元,现在要拆成块及文字图元,这个可能要难倒高手们了
页: [1] 2 3 4
查看完整版本: 如何分解出块中的文字,其它都不会