CAD Forum discussion (EN) : multiline text to multileader conversion https://www.cadforum.cz/forum_en/ Sat, 16 May 2026 08:20:46 +0000 Thu, 01 Sep 2011 08:47:51 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=6517 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[multiline text to multileader conversion : Hi,I&#039;m trying to find routine...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=6517&PID=16883&title=multiline-text-to-multileader-conversion#16883 Author: Betinka
Subject: 6517
Posted: 01.Sep.2011 at 08:47

Hi,
I'm trying to find routine that will change my MTEXT to MLEADER. I have found sth common on autodesk discussion group:

;  MTXT.LSP    Match Text   updated to use mleaders
;;  Match Text, pick text with desired text value, then
;;              pick text to be changed.
;=================================================
========
(defun C:MTXT ( / edata edata1 etype etype1 EL CVALUE EN BN)
   (setq EL (entget (car (nentsel "\nPick Text (From)...")))
	 etype (cdr (assoc 0 EL)))
   (setq EN (car (nentsel "\nPick Text (To)....."))
	 edata1 (entget EN)
	 etype1 (cdr (assoc 0 edata1)))

  (cond ((and (= etype "MULTILEADER") (= etype1 "MULTILEADER")) (setq CVALUE (cdr (assoc 304 EL))
								      BN (entget EN)
								      BN (subst (cons 304 CVALUE) (assoc 304 BN) BN));setq
	 							(entmod BN)
	 							(entupd EN))
	((and (= etype "MULTILEADER") (or (= etype1 "TEXT") (= etype1 "MTEXT"))) (setq CVALUE (cdr (assoc 304 EL))
								      BN (entget EN)
								      BN (subst (cons 1 CVALUE) (assoc 1 BN) BN));setq
	 							(entmod BN)
	 							(entupd EN))
	((and (or (= etype "TEXT") (= etype "MTEXT")) (= etype1 "MULTILEADER")) (setq CVALUE (cdr (assoc 1 EL))
								      BN (entget EN)
								      BN (subst (cons 304 CVALUE) (assoc 304 BN) BN));setq
	 							(entmod BN)
	 							(entupd EN))
	((and (or (= etype "TEXT") (= etype "MTEXT")) (or (= etype1 "TEXT") (= etype1 "MTEXT"))) (setq CVALUE (cdr (assoc 1 EL))
								      BN (entget EN)
								      BN (subst (cons 1 CVALUE) (assoc 1 BN) BN));setq
	 							(entmod BN)
	 							(entupd EN))
	);cond
  )


What this routine do is:
1. you have to select MTEXT to collect text
2 you have to select MLEADER to paste text.
and that's it

But what I really want is that after selecting MTEXT leader line will immediadetly "grow" from the MTEXT and I will just have to place leader line in proper position. So I want to substitute MTEXT with MLEADER "in place".

Does anybody can help?
]]> Thu, 01 Sep 2011 08:47:51 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=6517&PID=16883&title=multiline-text-to-multileader-conversion#16883