AC2004, ET, "txtexp" is faulty

[Exxit]

Hi,
the command "txtexp" , Expresstools, is not working exactly . The exploded text is not at the original insert-point. The letters are wrong: h-> Arial, or S-> Simplex...
Did anyone solve this problem with the "txtexp.lsp"???
Thanks for reply,
Lothar

 

[cadshite]

You could try copying the textexp.lsp file from a previous version of express tools and swapping that with the one you currently have - that one works fine. If that doesn't work then try using normal explode to dtext first; this will remove any properties that textexp.lsp may not recognise as it was writtn before 2004's updated mtext - and then using e/tools?

 

[cadshite]

sorry that should be txtexp.lsp!

 

[Exxit]

Hi cadshite,
it's not working. The "txtexp.lsp" from ETV1-9 is still identic in ET2004...
Here it is:
;;
;;;
;;; 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. Government 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) &quot;ACAD_GROUP&quot)
(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 &quot;viewdir&quot) 0 0.00001)
(equal (cadr (getvar &quot;viewdir&quot) 0 0.00001)
(> (caddr (getvar &quot;viewdir&quot) 0)
)

(progn

(prompt &quot;\nSelect text to be EXPLODED: &quot

(Setq FLTR '((-4 . &quot;<AND&quot
(-4 . &quot;<OR&quot ; filter for mtext and text
(0 . &quot;MTEXT&quot
(0 . &quot;TEXT&quot
(-4 . &quot;OR>&quot
(-4 . &quot;<NOT&quot
(102 . &quot;{ACAD_REACTORS&quot ; and not leader text
(-4 . &quot;NOT>&quot
(-4 . &quot;AND>&quot
)
GLST (acet-txtexp-grplst) ; Get all the groups in drawing
GDICT (if GLST
(dictsearch (namedobjdict) &quot;ACAD_GROUP&quot
)
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 &quot;_.-group&quot; &quot;_r&quot; ; and remove the text item
(cdr GRP) ENT &quot;&quot;
)
)
)

(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 &quot;_.zoom&quot; &quot;_w&quot; (car ZM) (cadr ZM)) ; zoom to include text objects
)
)

(setq VIEW (acet-geom-view-points)
TMPFIL (strcat (getvar &quot;tempprefix&quot &quot;txtexp.wmf&quot
PT1 (acet-geom-midpoint (car view) (cadr view))
PT2 (list (car PT1) (cadadr VIEW))
)

(if (acet-layer-locked (getvar &quot;clayer&quot) ; if current layer is locked
(progn
(command &quot;_.layer&quot; &quot;_unl&quot; (getvar &quot;clayer&quot &quot;&quot ; unlock it
(setq LOCKED T)
)
)

(command &quot;_.mirror&quot; SS &quot;&quot; PT1 PT2 &quot;_y&quot;
&quot;_.WMFOUT&quot; TMPFIL SS &quot;&quot

(if (findfile tmpfil) ; Does WMF file exist?
(progn
(command &quot;_.ERASE&quot; SS &quot;&quot ; erase the orignal text
(setq ss (acet-wmfin TMPFIL)) ; insert the WMF file
(command &quot;_.mirror&quot; ss &quot;&quot; PT1 PT2 &quot;_y&quot
) ;progn
) ;if


(if LOCKED
(command &quot;_.layer&quot; &quot;_lock&quot; (getvar &quot;clayer&quot &quot;&quot ; relock if needed
) ;if

(if ZM (command &quot;_.zoom&quot; &quot;_p&quot) ; Restore original view if needed
(if vplocked
(acet-viewport-lock-set vpna T) ;re-lock the viewport if needed.
);if
(prompt (acet-str-format &quot;\n%1 text object(s) have been exploded to lines.&quot; CNT))
(prompt &quot;\nThe line objects have been placed on layer 0.&quot
)
)
)
(prompt &quot;\nView needs to be in plan (0 0 1).&quot
);if equal
(acet-error-restore) ; Retsore values
(princ)
)


(princ)

Thanks for reading,
Lothar