（已解决）文字变成线条究竟是什么原理呢

1121443108qaz · 发表于 2018-1-13 17:15:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 1121443108qaz 于 2018-3-26 13:18 编辑

我搜索论坛看了些大佬的，说是输出wmf，再调进来分解。可是我输出wmf文件后，再调进来，打破一次后还是文字无法再次打破。如果使用txtexp又达不到我的要求，在批量处理文字时，txtexp变形严重，应该圆滑的地方不圆滑。所以到底原理是怎样的,哪位大佬再给我演示演示。我输入wmf文件后显示是块参照，打破后显示属性是文字，然后就不能再打破了。为什么输出wmf，再插入进来就可以变成线条呢，这又是什么原理，有大佬懂的吗？

1121443108qaz · 发表于 2018-1-13 17:20:58

插入wmf后大小是原大小0.5倍，然后是块参照

Lisphk · 发表于 2018-1-13 17:38:36

去看下论坛的源代码，需要设置一个系统变量的

紧箍咒 · 发表于 2018-1-13 21:03:08

同求助

1121443108qaz · 发表于 2018-1-13 23:45:14

Lisphk 发表于 2018-1-13 17:38

我搜索关键词 “文字线”没找到啊，你说的源代码指的是txtexp吗？那个我看了，没看出什么特别的系统变量来，大佬费心再看看txtexp？

marting · 发表于 2018-1-13 23:56:27

1121443108qaz 发表于 2018-1-13 23:45

插入比例要 2.0，然后插入基点要是绘图区的屏幕左上角坐标，这样才能原位置插入。因为制作WMF的时候，基点是按绘图区域屏幕左上角坐标为0，0点的。

marting · 发表于 2018-1-14 00:05:15

1121443108qaz 发表于 2018-1-13 23:45

你试TTF字体是不行的，SHX 字体的，回来才会变成线。

qqqincccken · 发表于 2018-1-14 00:15:38

這個情況工也想知道怎麽解決謝謝

1121443108qaz · 发表于 2018-1-14 00:15:50

marting 发表于 2018-1-14 00:05

谢谢回复，可是我就需要ttf这种格式的能变成线才好，ttf格式的用txtexp也能炸，批量处理时变形特别严重，我看txtexp代码也没看明白奥妙在哪。ttf格式的要怎么炸成线呢？你知道原理吗？

marting · 发表于 2018-1-14 01:14:53

1121443108qaz 发表于 2018-1-14 00:15

怎么个变形法？截取个大图，贴上来看看。另外，附上DWG图。

738460643 · 发表于 2018-1-15 12:59:16

楼主牛逼，先暖后看

1121443108qaz · 发表于 2018-1-15 15:35:01

marting 发表于 2018-1-14 01:14

大佬你看下，我用黑体，2018和2004版本都试了，结果变形严重，而且会跳层，为什么txtexp对ttf文字能处理，我不用程序就没法复现呢？

marting · 发表于 2018-1-15 15:45:02

1121443108qaz 发表于 2018-1-15 15:35

下面是TXTEXP.LSP源码，它没什么特别的，就是用WMFOUT,WMFIN处理的TTF

;;
;;;
;;; By Dominic Panholzer
;;;
;;; TXTEXP.LSP
;;;
;;; Your use of this software is governed by the terms and conditions of the
;;; License Agreement you accepted prior to installation of this software.
;;; Please note that pursuant to the License Agreement for this software,
;;; "[c]opying of this computer program or its documentation except as
;;; permitted by this License is copyright infringement under the laws of
;;; your country. If you copy this computer program without permission of
;;; Autodesk, you are violating the law."
;;;
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;; UNINTERRUPTED OR ERROR FREE.
;;;
;;; Use, duplication, or disclosure by the U.S. ** is subject to
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable.
;;;
;;; ----------------------------------------------------------------
;;;
;;; External Functions:
;;;
;;; ACET-ERROR-INIT --> ACETUTIL.FAS Intializes bonus error routine
;;; ACET-ERROR-RESTORE --> ACETUTIL.FAS Restores old error routine
;;; ACET-GEOM-ZOOM-FOR-SELECT --> ACETUTIL.FAS Zoom boundry to include points given
;;; ACET-LAYER-LOCKED --> ACETUTIL.FAS Checks to see if layer is locked
;;; ACET-GEOM-PIXEL-UNIT --> ACETUTIL.FAS Size of pixel in drawing units
;;; ACET-GEOM-TEXTBOX --> ACETUTIL.FAS Returns the textbox for any text
;;; ACET-GEOM-MIDPOINT --> ACETUTIL.FAS Returns midpoint between two points
;;; ACET-GEOM-VIEW-POINTS --> ACETUTIL.FAS Returns corner points of screen or viewport
;;; ACET-STR-FORMAT --> ACETUTIL.ARX String builder
;;; ACET-WMFIN --> ACETUTIL.FAS Brings in WMF file
;;;
(defun c:txtexp (/ grplst getgname blknm FLTR GLST GDICT SS VIEW UPLFT TMPFIL TBX
TMPFIL CNT PT1 PT2 ENT TXT TXTYP PTLST ZM LOCKED GNAM vpna vplocked)
(acet-error-init
(list
(list "cmdecho" 0
"highlight" 1
"osmode" 0
"Mirrtext" 1
"limcheck" 0
)
T
)
)
; --------------------- GROUP LIST FUNCTION ----------------------
; This function will return a list of all the group names in the
; drawing and their entity names in the form:
; ((<ename1> . <name1>) ... (<enamex> . <namex>))
; ----------------------------------------------------------------
(defun acet-txtexp-grplst (/ GRP ITM NAM ENT GLST)
(setq GRP (dictsearch (namedobjdict) "ACAD_GROUP"))
(while (setq ITM (car GRP)) ; While edata item is available
(if (= (car ITM) 3) ; if the item is a group name
(setq NAM (cdr ITM) ; get the name
GRP (cdr GRP) ; shorten the edata
ITM (car GRP) ; get the next item
ENT (cdr ITM) ; which is the ename
GRP (cdr GRP) ; shorten the edata
GLST ; store the ename and name
(if GLST
(append GLST (list (cons ENT NAM)))
(list (cons ENT NAM))
)
)
(setq GRP (cdr GRP)) ; else shorten the edata
)
)
GLST ; return the list
)
; ------------------- GET GROUP NAME FUNCTION --------------------
; This function returns a list of all the group names in GLST
; where ENT is a member. The list has the same form as GLST
; ----------------------------------------------------------------
(defun acet-txtexp-getgname (ENT GLST / GRP GDATA NAM NLST)
(if (and GLST (listp GLST))
(progn
(foreach GRP GLST
(setq GDATA (entget (car GRP)))
(foreach ITM GDATA ; step through the edata
(if (and
(= (car ITM) 340) ; if the item is a entity name
(eq (setq NAM (cdr ITM)) ENT) ; and the ename being looked for
)
(setq NLST ; store the ename and name
(if NLST
(append NLST (list (cons (car GRP) (cdr GRP))))
(list (cons (car GRP) (cdr GRP)))
)
)
)
)
)
)
)
NLST
)
; ----------------------------------------------------------------
; MAIN PROGRAM
; ----------------------------------------------------------------
(if (and ; Are we in plan view?
(equal (car (getvar "viewdir")) 0 0.00001)
(equal (cadr (getvar "viewdir")) 0 0.00001)
(> (caddr (getvar "viewdir")) 0)
)
(progn
(prompt "\nSelect text to be EXPLODED: ")
(Setq FLTR '((-4 . "<AND")
(-4 . "<OR") ; filter for mtext and text
(0 . "MTEXT")
(0 . "TEXT")
(-4 . "OR>")
(-4 . "<NOT")
(102 . "{ACAD_REACTORS") ; and not leader text
(-4 . "NOT>")
(-4 . "AND>")
)
GLST (acet-txtexp-grplst) ; Get all the groups in drawing
GDICT (if GLST
(dictsearch (namedobjdict) "ACAD_GROUP")
)
SS (ssget FLTR)
CNT 0
)
;; filter out the locked layers
(if SS
(setq SS (car (bns_ss_mod SS 1 T)))
) ;if
;; if we have anything left
(if SS
(progn
(setq CNT 0) ; Reset counter
(while (setq ENT (ssname SS CNT)) ; step through each object in set
(and
GLST ; if groups are present in the drawing
(setq GNAM (acet-txtexp-getgname ENT GLST)) ; and the text item is in one or more
(foreach GRP GNAM ; step through those groups
(command "_.-group" "_r" ; and remove the text item
(cdr GRP) ENT ""
)
)
)
(setq TBX (acet-geom-textbox (entget ENT) 0)) ; get textbox points
(setq TBX (mapcar '(lambda (x)
(trans x 1 0) ; convert the points to WCS
)
TBX
)
)
(setq PTLST (append PTLST TBX)) ; Build list of bounding box
; points for text items selected
(setq CNT (1+ CNT)) ; get the next text item
); while
(setq PTLST (mapcar '(lambda (x)
(trans x 0 1) ; convert all the points
) ; to the current ucs
PTLST
)
)
(if (setq ZM (acet-geom-zoom-for-select PTLST)) ; If current view does not contain
(progn ; all bounding box points
(setq ZM
(list
(list (- (caar ZM) (acet-geom-pixel-unit)) ; increase zoom area by
(- (cadar ZM) (acet-geom-pixel-unit)) ; one pixel width to
(caddar ZM) ; sure nothing will be lost
)
(list (+ (caadr ZM) (acet-geom-pixel-unit))
(+ (cadadr ZM) (acet-geom-pixel-unit))
(caddr (cadr zm))
)
)
)
(if (setq vpna (acet-currentviewport-ename))
(setq vplocked (acet-viewport-lock-set vpna nil))
);if
(command "_.zoom" "_w" (car ZM) (cadr ZM)) ; zoom to include text objects
)
)
(setq VIEW (acet-geom-view-points)
TMPFIL (strcat (getvar "tempprefix") "txtexp.wmf")
PT1 (acet-geom-midpoint (car view) (cadr view))
PT2 (list (car PT1) (cadadr VIEW))
)
(if (acet-layer-locked (getvar "clayer")) ; if current layer is locked
(progn
(command "_.layer" "_unl" (getvar "clayer") "") ; unlock it
(setq LOCKED T)
)
)
(command "_.mirror" SS "" PT1 PT2 "_y"
"_.WMFOUT" TMPFIL SS "")
(if (findfile tmpfil) ; Does WMF file exist?
(progn
(command "_.ERASE" SS "") ; erase the orignal text
(setq ss (acet-wmfin TMPFIL)) ; insert the WMF file
(command "_.mirror" ss "" PT1 PT2 "_y")
) ;progn
) ;if
(if LOCKED
(command "_.layer" "_lock" (getvar "clayer") "") ; relock if needed
) ;if
(if ZM (command "_.zoom" "_p")) ; Restore original view if needed
(if vplocked
(acet-viewport-lock-set vpna T) ;re-lock the viewport if needed.
);if
(prompt (acet-str-format "\n%1 text object(s) have been exploded to lines." CNT))
(prompt "\nThe line objects have been placed on layer 0.")
)
)
)
(prompt "\nView needs to be in plan (0 0 1).")
);if equal
(acet-error-restore) ; Retsore values
(princ)
)
(princ)

;; 
;;; 
;;;    By Dominic Panholzer 
;;; 
;;;    TXTEXP.LSP 
;;;    Copyright ?1999 by Autodesk, Inc. 
;;; 
;;;    Your use of this software is governed by the terms and conditions of the 
;;;    License Agreement you accepted prior to installation of this software. 
;;;    Please note that pursuant to the License Agreement for this software, 
;;;    "[c]opying of this computer program or its documentation except as 
;;;    permitted by this License is copyright infringement under the laws of 
;;;    your country.  If you copy this computer program without permission of 
;;;    Autodesk, you are violating the law." 
;;; 
;;;    AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. 
;;;    AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF 
;;;    MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC. 
;;;    DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE 
;;;    UNINTERRUPTED OR ERROR FREE. 
;;; 
;;;    Use, duplication, or disclosure by the U.S. ** is subject to 
;;;    restrictions set forth in FAR 52.227-19 (Commercial Computer 
;;;    Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 
;;;    (Rights in Technical Data and Computer Software), as applicable. 
;;; 
;;;  ---------------------------------------------------------------- 
;;; 
;;;  External Functions: 
;;; 
;;;     ACET-ERROR-INIT           --> ACETUTIL.FAS   Intializes bonus error routine 
;;;     ACET-ERROR-RESTORE        --> ACETUTIL.FAS   Restores old error routine 
;;;     ACET-GEOM-ZOOM-FOR-SELECT --> ACETUTIL.FAS   Zoom boundry to include points given 
;;;     ACET-LAYER-LOCKED         --> ACETUTIL.FAS   Checks to see if layer is locked 
;;;     ACET-GEOM-PIXEL-UNIT      --> ACETUTIL.FAS   Size of pixel in drawing units 
;;;     ACET-GEOM-TEXTBOX         --> ACETUTIL.FAS   Returns the textbox for any text 
;;;     ACET-GEOM-MIDPOINT        --> ACETUTIL.FAS   Returns midpoint between two points 
;;;     ACET-GEOM-VIEW-POINTS     --> ACETUTIL.FAS   Returns corner points of screen or viewport 
;;;     ACET-STR-FORMAT           --> ACETUTIL.ARX   String builder 
;;;     ACET-WMFIN                --> ACETUTIL.FAS   Brings in WMF file 
;;; 
 
(defun c:txtexp (/ grplst getgname blknm FLTR GLST GDICT SS VIEW UPLFT TMPFIL TBX 
                   TMPFIL CNT PT1 PT2 ENT TXT TXTYP PTLST ZM LOCKED GNAM vpna vplocked) 
  (acet-error-init 
        (list 
         (list   "cmdecho" 0 
                 "highlight" 1 
                 "osmode" 0 
                 "Mirrtext" 1 
                 "limcheck" 0 
         ) 
         T 
        ) 
  ) 
 
; --------------------- GROUP LIST FUNCTION ---------------------- 
;   This function will return a list of all the group names in the 
;   drawing and their entity names in the form: 
;   ((<ename1> . <name1>) ... (<enamex> . <namex>)) 
; ---------------------------------------------------------------- 
 
  (defun acet-txtexp-grplst (/ GRP ITM NAM ENT GLST) 
 
    (setq GRP  (dictsearch (namedobjdict) "ACAD_GROUP")) 
    (while (setq ITM (car GRP))       ; While edata item is available 
      (if (= (car ITM) 3)             ; if the item is a group name 
        (setq NAM (cdr ITM)           ; get the name 
              GRP (cdr GRP)           ; shorten the edata 
              ITM (car GRP)           ; get the next item 
              ENT (cdr ITM)           ; which is the ename 
              GRP (cdr GRP)           ; shorten the edata 
              GLST                    ; store the ename and name 
                  (if GLST 
                    (append GLST (list (cons ENT NAM))) 
                    (list (cons ENT NAM)) 
                  ) 
        ) 
        (setq GRP (cdr GRP))          ; else shorten the edata 
      ) 
    ) 
    GLST                              ; return the list 
  ) 
 
; ------------------- GET GROUP NAME FUNCTION -------------------- 
;   This function returns a list of all the group names in GLST 
;   where ENT is a member. The list has the same form as GLST 
; ---------------------------------------------------------------- 
 
  (defun acet-txtexp-getgname (ENT GLST / GRP GDATA NAM NLST) 
    (if (and GLST (listp GLST)) 
      (progn 
        (foreach GRP GLST 
          (setq GDATA (entget (car GRP))) 
          (foreach ITM GDATA                   ; step through the edata 
            (if (and 
                  (= (car ITM) 340)            ; if the item is a entity name 
                  (eq (setq NAM (cdr ITM)) ENT) ; and the ename being looked for 
                ) 
              (setq NLST                       ; store the ename and name 
                      (if NLST 
                        (append NLST (list (cons (car GRP) (cdr GRP)))) 
                        (list (cons (car GRP) (cdr GRP))) 
                      ) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
    NLST 
  ) 
 
; ---------------------------------------------------------------- 
;                          MAIN PROGRAM 
; ---------------------------------------------------------------- 
 
  (if (and                                                ; Are we in plan view? 
        (equal (car (getvar "viewdir")) 0 0.00001) 
        (equal (cadr (getvar "viewdir")) 0 0.00001) 
        (> (caddr (getvar "viewdir")) 0) 
      ) 
 
    (progn 
 
      (prompt "\nSelect text to be EXPLODED: ") 
 
      (Setq FLTR    '((-4 . "<AND") 
                        (-4 . "<OR")                      ; filter for mtext and text 
                          (0 . "MTEXT") 
                          (0 . "TEXT") 
                        (-4 . "OR>") 
                        (-4 . "<NOT") 
                          (102 . "{ACAD_REACTORS")        ; and not leader text 
                        (-4 . "NOT>") 
                      (-4 . "AND>") 
                     ) 
            GLST     (acet-txtexp-grplst)                             ; Get all the groups in drawing 
            GDICT    (if GLST 
                       (dictsearch (namedobjdict) "ACAD_GROUP") 
                     ) 
            SS       (ssget  FLTR) 
            CNT      0 
      ) 
      ;; filter out the locked layers 
      (if SS 
        (setq SS (car (bns_ss_mod SS 1 T))) 
      ) ;if 
 
      ;; if we have anything left 
      (if SS 
        (progn 
          (setq CNT 0)                                 ; Reset counter 
          (while (setq ENT (ssname SS CNT))            ; step through each object in set 
 
            (and 
              GLST                                     ; if groups are present in the drawing 
              (setq GNAM (acet-txtexp-getgname ENT GLST))          ; and the text item is in one or more 
              (foreach GRP GNAM                        ; step through those groups 
                (command "_.-group" "_r"               ; and remove the text item 
                  (cdr GRP) ENT "" 
                ) 
              ) 
            ) 
 
            (setq TBX (acet-geom-textbox (entget ENT) 0))   ; get textbox points 
 
            (setq TBX (mapcar '(lambda (x) 
                                 (trans x 1 0)         ; convert the points to WCS 
                               ) 
                        TBX 
                      ) 
            ) 
 
            (setq PTLST (append PTLST TBX))            ; Build list of bounding box 
                                                       ; points for text items selected 
 
            (setq CNT (1+ CNT))                        ; get the next text item 
          ); while 
 
          (setq PTLST (mapcar '(lambda (x) 
                                 (trans x 0 1)         ; convert all the points 
                               )                       ; to the current ucs 
                      PTLST 
                    ) 
          ) 
 
          (if (setq ZM (acet-geom-zoom-for-select PTLST))          ; If current view does not contain 
            (progn                                     ; all bounding box points 
              (setq ZM 
                (list 
                  (list (- (caar ZM) (acet-geom-pixel-unit))     ; increase zoom area by 
                        (- (cadar ZM) (acet-geom-pixel-unit))    ; one pixel width to 
                        (caddar ZM)                    ; sure nothing will be lost 
                  ) 
                  (list (+ (caadr ZM) (acet-geom-pixel-unit)) 
                        (+ (cadadr ZM) (acet-geom-pixel-unit)) 
                        (caddr (cadr zm)) 
                  ) 
                ) 
              ) 
              (if (setq vpna (acet-currentviewport-ename)) 
                  (setq vplocked (acet-viewport-lock-set vpna nil)) 
              );if 
              (command "_.zoom" "_w" (car ZM) (cadr ZM))  ; zoom to include text objects 
            ) 
          ) 
 
          (setq VIEW     (acet-geom-view-points) 
                TMPFIL   (strcat (getvar "tempprefix") "txtexp.wmf") 
                PT1      (acet-geom-midpoint (car view) (cadr view)) 
                PT2      (list (car PT1) (cadadr VIEW)) 
          ) 
 
          (if (acet-layer-locked (getvar "clayer"))       ; if current layer is locked 
            (progn 
              (command "_.layer" "_unl" (getvar "clayer") "")  ; unlock it 
              (setq LOCKED T) 
            ) 
          ) 
 
          (command "_.mirror" SS "" PT1 PT2 "_y" 
                   "_.WMFOUT" TMPFIL SS "") 
 
          (if (findfile tmpfil)                           ; Does WMF file exist? 
            (progn 
              (command "_.ERASE" SS "")                   ; erase the orignal text 
              (setq ss (acet-wmfin TMPFIL))               ; insert the WMF file 
              (command "_.mirror" ss "" PT1 PT2 "_y") 
            ) ;progn 
          ) ;if 
 
 
          (if LOCKED 
            (command "_.layer" "_lock" (getvar "clayer") "") ; relock if needed 
          ) ;if 
 
          (if ZM (command "_.zoom" "_p"))              ; Restore original view if needed 
          (if vplocked 
              (acet-viewport-lock-set vpna T) ;re-lock the viewport if needed. 
          );if 
          (prompt (acet-str-format "\n%1 text object(s) have been exploded to lines."  CNT)) 
          (prompt "\nThe line objects have been placed on layer 0.") 
        ) 
      ) 
    ) 
    (prompt "\nView needs to be in plan (0 0 1).") 
  );if equal 
  (acet-error-restore)                                  ; Retsore values 
  (princ) 
) 
 
 
(princ)

1121443108qaz · 发表于 2018-1-15 16:02:47

marting 发表于 2018-1-15 15:45

可是我手工操作为什么就是不行,shx确实调进来打破就可以了，ttf就不行

1121443108qaz · 发表于 2018-1-15 16:14:33

发现是mirrtext 没有变成1的原因。正确的操作是先mirrtext改为1，把原文字mi一次，再wmfout,wmfin，这时再mi一次，再打破。就可以变成线框了。至于为什么要先mirrtext改为1就不懂了

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

[已解决] （已解决）文字变成线条究竟是什么原理呢

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。