CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] ARKANCE | CONTACT - CZ | SK | EN | DE
Over 1.096.000 registered users (EN+CZ). AutoCAD tips, Inventor tips, Revit tips. Try the new precise Engineering calculator and the updated Barcode generator. New AutoCAD 2026 commands and variables.
RSS channel - CAD tips RSS tips
RSS discussions

Discussion Discussion forum

?
CAD discussions, advices, exchange of experience

CAD Forum - Homepage CAD discussion forum - ask any CAD-related questions here, share your CAD knowledge on AutoCAD, Inventor, Revit and other Autodesk software with your peers from all over the world. To start a new topic, choose an appropriate forum.

Please abide by the rules of this forum.
This is a peer-to-peer forum. The forum doesn't replace the official direct technical support provided by ARKANCE for its customers.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Topic Closedmultiline text to multileader conversion
 Post Reply Post Reply
Author
  Topic Search Topic Search  Topic Options Topic Options
Betinka View Drop Down
Newbie
Newbie


Joined: 29.Jan.2009
Location: Poland
Using: ACAD2012
Status: Offline
Points: 9 		Direct Link To This Post Topic: multiline text to multileader conversion
    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?
ACAD 2012 full English
Poland, Warsaw
Back to Top

Related CAD tips:


 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down



This page was generated in 0,065 seconds.
CADforum
CADforum
Tips and tricks, support, utilities, help, discussions on AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill and other Autodesk software (community support by ARKANCE). See About CADforum.
Copyright © 2025 | Advertise with us | Online privacy
ARKANCE - Autodesk Platinum Partner & Training Center & Services Partner
CONTACT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist