Community
That's a matter of finding the Enters/hard-returns/new-lines in the Mtext's text content, which are \\P elements. Keep the first one, and strip out everything through the last one. Lightly tested:
(defun C:FLL (/ mtss n mtdata content start)
; = keep First and Last Lines only of selected mtext
(if (setq mtss (ssget ":L" '((0 . "MTEXT"))))
(repeat (setq n (sslength mtss))
(setq
mtdata (entget (ssname mtss (setq n (1- n))))
content (cdr (assoc 1 mtdata))
start (substr content 1 (+ (vl-string-search "\\P" content) 2))
; first line including Enter at end
); setq
(while (wcmatch content "*\\P*"); still any more Enters?
(setq content (substr content (+ (vl-string-search "\\P" content) 3)))
; remove up through first remaining Enter; end up with only portion after last Enter
); while
(entmod ; update
(subst
(cons 1 (strcat start content)); new text content
(assoc 1 mtdata); original text content
mtdata
); subst
); entmod
); repeat
); if
); defun
Kent Cooper, AIA 
@Anonymous wrote:
....
Can I change the first line to remove to be the third or the forth not the second .... Finally can it work on 2014 version? ....
It shouldn't be too hard to get it to do that if it's always and only the 3rd and 4th lines you want removed. But if they could sometimes be like the example in your first Post, or other numbers of lines, then the routine would need to look for an Enter followed by either a W or an E. But could the N or S line ever be above the W or E line? Could any other line before the ones you want removed ever start with one of those letters? If so, would the lines you want removed always, but no other lines above them ever, start with one of those followed by a space? That would help, but it's certainly more complicated than just finding the end of the first line.
This is why, for future reference, the more real-life and specific you can be in examples and descriptions of what you're after, the better and quicker solutions you'll get.
This kind of thing shouldn't be affected by the version, though I wouldn't guarantee it. I'll want to try it later where I have a newer version than I do here.
Kent Cooper, AIA
@Anonymous wrote:
....
I want to remove the 4th and 5th lines only whatever the letters in it would be, ....
In the bottom Mtext object in the image, the northing/easting lines are the 3rd & 4th, rather than the 4th & 5th [no "DWG#" line]. Is that a mistake, or does that possibility need to be accounted for? If it really would always be the 4th & 5th you want removed, that would be a lot easier than if it might be different lines that would need to be found based on their content.
Kent Cooper, AIA
@Anonymous wrote:
....it not amistake .... if there is a way to remove any line from mtext contains the following:-
"E XXXXX" or "N XXXXX" or "S XXXXX" or "W XXXXX"
....
Not as complicated as I was expecting.... The following should remove any such lines [starting with one of those four capital letters followed by a space], and doesn't care where they occur in the Mtext or in what order or whether they're adjacent lines, as long as there aren't more than one starting with the same letter in the same Mtext object [which doesn't seem likely, given the kind of information they represent]. No bells and whistles yet, and lightly tested, but it seems to work:
(defun C:NER (/ mtss n mtdata content start mid end)
; = Northing/Easting Removal of lines from selected Mtext
(if (setq mtss (ssget ":L" '((0 . "MTEXT"))))
(repeat (setq n (sslength mtss))
(setq
mtdata (entget (ssname mtss (setq n (1- n))))
content (cdr (assoc 1 mtdata))
); setq
(foreach dir '("E" "N" "S" "W")
(setq teststr (strcat "\\P" dir " "))
; Enter followed by compass direction letter + space
(if (wcmatch content (strcat "*" teststr "*")); contains a line for that direction
(progn ; then
(setq
pos (vl-string-search teststr content)
start (substr content 1 (+ pos 2))
; content through Enter at end of preceding line
mid (substr content (+ pos 3))
; middleman content this line through end
end (substr mid (+ (vl-string-search "\\P" mid) 3))
; content after this line
); setq
(entmod ; update
(subst
(cons 1 (setq content (strcat start end))); new text content
(assoc 1 mtdata); original text content
mtdata
); subst
); entmod
); progn
); if
); foreach
); repeat
); if
); defun
Kent Cooper, AIA
The following code is based on Kent's code. I made a few changes so that it will look at every line and if it begins with an N, E, W or S followed by a space and five numeric digits, that line will be excluded and then the whole thing will eventually be re-written.
(defun C:FLL ();/ mtss n mtdata content start)
; = keep First and Last Lines only of selected mtext
(if (setq mtss (ssget ":L" '((0 . "MTEXT"))))
(repeat (setq n (sslength mtss))
(setq
mtdata (entget (ssname mtss (setq n (1- n))))
content (cdr (assoc 1 mtdata))
start (substr content 1 (+ (vl-string-search "\\P" content) 2))
; first line including Enter at end
); setq
(while (wcmatch content "*\\P*"); still any more Enters?
(setq content (substr content (+ (vl-string-search "\\P" content) 3)))
(setq cline nil)
(if (vl-string-search "\\P" content)(setq cline(substr content 1 (+ (vl-string-search "\\P" content) 2)))(setq cline content))
;(if cline
(if (not(wcmatch cline "*[NEWS] #####*\\P"))
(setq start (strcat start cline))
)
;(setq start content)
;)
); while
(entmod ; update
(subst
(cons 1 start); new text content
(assoc 1 mtdata); original text content
mtdata
); subst
); entmod
); repeat
); if
); defun
Don Ireland
Engineering Design Technician
If a reply solves your issue, please remember to click on "Accept as Solution". This will help other users looking to solve a similar issue. Thank you.
Please do not send a PM asking for assistance. That's what the forums are for. This allows everyone to benefit from the question asked and the answers given.
It worked for me in both 2004 and 2015 versions. I have found that in copying/pasting code from this website, it sometimes "arrives" in Notepad with an oddball character somewhere, or extraneous blank lines. Here it is put into a .lsp file that works for me. Save that somewhere and use APPLOAD to load it.
Kent Cooper, AIA
@Anonymous wrote:
.... if the text has no space i.e "NXXXXX" what part of the code should be changed? and into what?
....
That should be easy enough to account for by taking the space out of doni49's test:
(if (not(wcmatch cline "*[NEWS]#####*\\P"))
Or if they might sometimes have the space, but not always, check for either:
(if (not (or
(wcmatch cline "*[NEWS] #####*\\P")
(wcmatch cline "*[NEWS]#####*\\P")
))
But I have to ask: Would it always and only be five digits? That doesn't seem likely, unless that's some kind of a standard and it's always padded out to five digits with leading zeros when needed.
Kent Cooper, AIA
Are those MLEADER objects? If so, this function doesn't see any mtext objects to process.
That would produce the nil.
If a reply solves your issue, please remember to click on "Accept as Solution". This will help other users looking to solve a similar issue. Thank you.
Please do not send a PM asking for assistance. That's what the forums are for. This allows everyone to benefit from the question asked and the answers given.
That would produce the nil.
Don Ireland
Engineering Design Technician
If a reply solves your issue, please remember to click on "Accept as Solution". This will help other users looking to solve a similar issue. Thank you.
Please do not send a PM asking for assistance. That's what the forums are for. This allows everyone to benefit from the question asked and the answers given.
@Anonymous wrote:
thanks for your reply and yes it is MLEADER objects ... and even after i explode the all the leader the answer is "nil" ....
I'm at my place with too old a version to have Mleaders, but if all these are true:
1) they contain their textual content in the same way [DXF code 1 entry], and
2) Exploding them doesn't merely separate them into a Leader arrow and Mtext but also Explodes the Mtext into separate plain-Text objects [which would explain your nil return after Exploding], and
3) their entity type name [DXF code 0 entry] is "MLEADER"
then this change ought to work: Change
(if (setq mtss (ssget ":L" '((0 . "MTEXT"))))
to
(if (setq mtss (ssget ":L" '((0 . "MTEXT,MLEADER"))))
If "MLEADER" isn't the right entity type name, substitute whatever that is ["MULTILEADER" perhaps?].
Kent Cooper, AIA
Forums Links
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
