Topic: Text explode

[77077]

Hi guys
I want explode text to curve .
I know ET tools can do this (txtexp) ,but the effect is poor.


I use lisp can do this too, but effect is poor too.

Code - Auto/Visual Lisp: [Select]

1.  
2. (defun c:xt (/ bz ss n lvs lss lvp lvl lul ent luu)
3. (prompt "\nchoose text to explode")
4. (while (setq ss (ssget ":S" '((0 . "*text"))))
5. (setvar "cmdecho" 0) (command "undo" "be") (setvar "mirrtext" 1)
6. (command "zoom" "e")
7. (setq bz (getvar "osmode")) (setvar "osmode" 0)
8. (setq lvs (getvar "viewsize") lss (getvar "screensize") lvp (getvar "viewctr")
9.       lvl (list (list (- (car lvp) (* 0.5 (* lvs (/ (car lss) (cadr lss))))) (- (cadr lvp) (* 0.5 lvs)))
10.                    (list (+ (car lvp) (* 0.5 (* lvs (/ (car lss) (cadr lss))))) (+ (cadr lvp) (* 0.5 lvs))))
11.           lul (list (caar lvl) (cadadr lvl)) n 0)
12. (repeat (sslength ss)
13.   (setq ent (ssname ss n))
14.   (setq luu (strcat (getenv "Temp") "\\textb.wmf"))
15.   (command "mirror" ent "" lvp "@0,1" "y"
16.   "wmfout" luu ent "" "erase" ent ""
17.   "wmfin" luu lul "2" "" ""
18.   "mirror" (entlast) "" lvp "@0,1" "y"
19.   "explode" (entlast) "erase" (ssget "p") "r" "w"
20.   (polar (car lvl) (* 0.25 pi) (max (abs (/ lvs (cadr lss))) (abs (/ (* lvs (/ (car lss) (cadr lss))) (car lss)))))
21.   (cadr lvl) "") ;;end_command
22.   (setq n (+ n 1))
23. )
24. (command "zoom" "p")
25. (setvar "mirrtext" 0) (setvar "osmode" bz) (command "undo" "e")
26. (vl-file-delete luu)
27. )
28. (princ)
29. )
30.  

This is perfect , who can help optimized code ? Thanks!!!


==================================================================
==================================================================
==================================================================

[David Bethel]

If you use .shx fonts,   search for XSHP.LSP from Upper Canada Software.  -David

[77077]

If you use .shx fonts,   search for XSHP.LSP from Upper Canada Software.  -David

Thanks David.  I download it ,test , But  don't succeed .  need .shp file , ? I Convert *.shx to .shp ,  err...... oh ! bad methods.

[Lee Mac]

You could try this by SEANT 

[77077]

You could try this by SEANT 

Thanks lee, I'll take a look.

[David Bethel]

Looks like something has broken XHSP.LSP in newer releases of Autolisp.   Sorry.

[hmspe]

The issue in xshp.lsp appears to be in

Code - Auto/Visual Lisp: [Select]

1. (lambda()))))))                         ;15 = Illegal cmd.

Change this to

Code - Auto/Visual Lisp: [Select]

1. (lambda() (setq temp temp)))))))                                ;15 = Illegal cmd.

and the code appears to work.  From a very brief test it appears that the SHP file has to have been created from the SHX file before you run XSHP.LSP.

It looks to me like the text originally posted was truetype, nor SHX.