Topic: Text to Closed lwpolylines

[ScottMC]

Didn't shop to long but know they would rather us pay for everything. Anyway.. this one makes me realize the value of region in that to do this manually is not so bad but to automate would be better/prefered for sure. In the operation, the converting the txtexp-loaded lwpolylines into a region must be done one-by-one else when converting to a lwpolyline from the region as one object doesn't work or I need a different region-2-poly converter. Still this single conversion sub operation is certainly why I'm here! For me it's just explode the text, convert them to regions, then separately union the regions of each letter, finally convert the regions to lwpolylines. My guess [bad] is to select the converted letter as a separate region would be by selecting touching objects of the converted..... Thanks guys for your help

[ronjonp]

Have you seen this: http://www.theswamp.org/index.php?topic=31435.0

The latest version can create regions.

[BIGAL]

Used it great software

[ScottMC]

Thank You Very Much Sir Gile. Such a relief on time and certainly a tool to learn from!

https://www.theswamp.org/index.php?topic=20642.msg251311#msg251311

[ronjonp]

Thank You Very Much Sir Gile. Such a relief on time and certainly a tool to learn from!

https://www.theswamp.org/index.php?topic=20642.msg251311#msg251311

There is also this which works very well: http://lee-mac.com/outlineobjects.html

[ahsattarian]

This Lisp is what u need  :





(defun c:wmft ()
  (setq ss (ssget '((0 . "*TEXT"))))
  (command "wmfopts") ;| ckeck for solid !! |;
  (setq file (strcat (getvar "dwgprefix") "wmf.wmf"))
  (setq n (sslength ss))
  (setq k -1)
  (repeat n
    (setq k (1+ k))
    (setq s (ssname ss k))
    (setq en (entget s))
    (setq pt1 (cdr (assoc 10 en)))
    (setq pt2 (polar pt1 (* pi 0.5) 1.0))
    (setq obj (vlax-ename->vla-object s))
    (setq typ (cdr (assoc 0 en)))
    (setq bw 0)
    (cond ((and (= typ "TEXT") (= (vlax-get-property obj "backward") :vlax-true)) (setq bw 1)))
    (cond ((= bw 0) (command "mirror" s "" pt1 pt2 "yes")))
    (command "zoom" "object" s "")
    (command "wmfout" file s "")
    (setq viewctr (getvar "viewctr"))
    (setq viewsize (getvar "viewsize"))
    (setq screensize (getvar "screensize"))
    (setq ratio (/ (car screensize) (cadr screensize)))
    (setq po (polar viewctr (* pi 0.5) (* viewsize 0.5)))
    (setq po (polar po (* pi 1.0) (* viewsize ratio 0.5)))
    (setvar "clayer" (vla-get-layer obj))
    (command "wmfin" file po 2.0 2.0 0.0)
    (entdel s)
  )
  (setvar "clayer" "0")
  (princ)
)

[ScottMC]

As with my A2K ET "TXTEXP" the outlines are divided and require work.. Thanks though for reminding me of the WMF/ET tools!! Using: "MERGE -Gilles Chanteau- 01/01/06" manually after a "CONVERTPOLY... as it converts to 2Dpoly..