Leaderboard

cadffm created a version d, it was posted in a thread on Autodesk Forum, OP posted a link to it in their other thread. HERE stripmtext-v5-0 Lisp Routine - Autodesk Community - AutoCAD

There is a version 5.0d around, further down the page where you linked in your other post, it seems to address the issue. v5.0d ??cadffm?? ;;;; Revised regular expression for Height format - ;;;; e.g. for format like this: H0.400000 Also, John Uhden has an Unformat LISP he mentions in the same thread, that might do what you need. Please post your amended code if you don't mind, others may find it helpful.

I used Lee Mac's Unformat String, this one works. It does need some workaround when I use it on dimensions to not remove diameter symbols but that was an easy fix.

HI Steven P.I fix the problem. I add in the beginning ((and (not POINT)) (alert (strcat "The block POINT does not exist in this drawing.")) ) Thanks

@SLW210 Your comments above and the header reminded me of theSwamp "Show You Stuff" section: http://www.theswamp.org/index.php?topic=31584.0 @ElAmigo did you try downloading version 5.0c? See the link above and try it - perhaps they fixed this issue?

I accounted for if the user only picks one entity also, and so two statements are needed instead of one... also, I have to set the variable values at start and end. A minor update: (defun c:pj (/ varlist oldvars ss1) (setq varlist (list "cmdecho" "peditaccept") oldvars (mapcar 'getvar varlist) ) ;_ end setq (mapcar 'setvar varlist (list 0 1)) (setq ss1 (ssget '((0 . "LINE")))) (if (> (sslength ss1) 1) (progn (vl-cmdf "_pedit" "_M" ss1 "" "J" "0" "") (princ (strcat "\n" (itoa (sslength ss1)) " Lines Converted. ")) ) ;_ end progn (progn (vl-cmdf "_pedit" ss1 "") (princ (strcat "\n" (itoa (sslength ss1)) " Line Converted. ")) ) ;_ end progn ) ;_ end if (mapcar 'setvar varlist oldvars) (princ) ) ;_ end defun Forgot to localise some variables and added a filter list.