[求助]：比较急,再问刚才问题.TXTEXP打断文字问题

zhengguoyun

用EXPRESS中的打断文字(TXTEXP)命令后原来层上的文字打断后到了0层,但是颜色没有改变,斑竹及各位快帮我呀,有原代码(见前贴)

snoopychen

:)其实我不大明白这个程序会用的很多么，打断字体为多义线感觉没有什么用啊，除非是为了
自己作字体，觉得花了时间改程序还不如逐个处理一下就算了:p

这个程序应该是可以修改的，它里面主要应用了批量修改，wmfout之后wmfin，假如修改为逐个词处理，每个词得到其层，在wmfout再wmfin之后修改为刚才的层，应该就可以了

marcoyuwen

自己动手编写程序，将选定的文本图元按层分组，分开处理，分别调用WMFOUT和WMFIN，将打碎的多段线放回原图层。这样记住原文本图元的所在层比较简单直观。
我不知道说清了没有，如有问题继续交流吧！！！

zhengguoyun

问题就在WMFIN这个函数里，在EXPRESS里包装过了，如果直接用的话，在文字周围有一个边框，去不掉的，请帮忙，并且层的问题也没解决。这对我很重要呀，请帮我

;;;批量炸碎文字变成线
(Defun c:test004 ()
  (CMDLA0)
  (SetVar "MIRRTEXT" 1)
  (setq layer (getvar "clayer"))
  (setvar "osmode" 0)
  (PrinC "\n选择要分解的文字 : ")
  (setq        ss (ssget '((0 . "TEXT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (xyp-get-MinMaxPoint s1 1)
          pt2 (xyp-get-MinMaxPoint s1 9)
          pt  (xyp-get-MidPoint pt1 pt2)
          pt3 (polar pt (* pi 0.5) 100)
    )
    (setvar "clayer" (cdr (assoc 8 (entget s1))))
    (Command "mirror" s1 "" pt pt3 "y")
    (command "zoom" "w" pt1 pt2)
    (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")
    (command "wmfin" "TEXTWMF" pt "2" "" "")
    (setq s1 (EntLast))
    (command "mirror" s1 "" pt pt3 "y")
    (setq pt0 (xyp-get-MidPoint
                (xyp-get-MinMaxPoint s1 1)
                (xyp-get-MinMaxPoint s1 9)
              )
    )
    (command "move" s1 "" pt0 pt)
    (command "explode" s1 "")
  )
  (setvar "clayer" layer)
  (setvar "MIRRTEXT" 0)
  (CMDLA1)
)

xyp1964

;;;批量炸碎文字变成线
;;;zswz(炸碎文字)

aeo

最初由 zhengguoyun 发布
[B]问题就在WMFIN这个函数里，在EXPRESS里包装过了，如果直接用的话，在文字周围有一个边框，去不掉的，请帮忙，并且层的问题也没解决。这对我很重要呀，请帮我

;;;批量炸碎文字变成线
(Defun c:test004 ()
  (CMD... [/B]

炸开后是一个个多义线
把有面积的收集起来 ---ss
对ss里的每个多义线处理--最主要是有重复的线
(回头的,比如 A-B-C-B-D-A,要去掉一个点C)
进行布尔交