Topic: How to use mtext contents to change mleader contents?

[Dommy2Hotty]

Been working on this for a minute today, can't figure out how to use assoc code 1 from mtext for assoc code 304 for mleaders.  Anyone know?

Code: [Select]

(defun C:MTxt2Mleader ()
  (setq ent (entget (car (entsel "\nSelect SOURCE text: "))))
  (setq info (assoc 1 ent))
  (setvar "cmdecho" 0)
  (while
    (setq ent2 (entget (car (entsel "\nSelect MLEADER object: "))))
    (SETQ mlinfo (assoc 304 ent2))
    (setq ent2 (subst (assoc 304 INFO) (assoc 304 ent2) ent2))
    (entmod ent2)
    (setvar "cmdecho" 1)
    );end while
);end of defun

Returns:
; error: bad association list: (1 . "SAMPLE TEXT")

[ronjonp]

Mleaders are much easier to manipulate via ActiveX...here's a small example:

Code: [Select]

(defun c:test(/ mleader txt)
  (if (and (setq txt (car (entsel "\nSelect text: ")))
   (setq mleader (car (entsel "\nSelect mleader: ")))
   (setq mleader (vlax-ename->vla-object mleader))
   (setq txt (vlax-ename->vla-object txt))
      )
    (progn (vla-put-textstring mleader (vla-get-textstring txt))
   (vla-update mleader)
    )
  )
)


[gile]

Hi,

replace:
(subst (assoc 304 INFO) (assoc 304 ent2) ent2)
by
(subst (cons 304 INFO) (assoc 304 ent2) ent2)

[Dommy2Hotty]

Mleaders are much easier to manipulate via ActiveX...here's a small example:

Code: [Select]

(defun c:test(/ mleader txt)
  (if (and (setq txt (car (entsel "\nSelect text: ")))
   (setq mleader (car (entsel "\nSelect mleader: ")))
   (setq mleader (vlax-ename->vla-object mleader))
   (setq txt (vlax-ename->vla-object txt))
      )
    (progn (vla-put-textstring mleader (vla-get-textstring txt))
   (vla-update mleader)
    )
  )
)


Worked like a charm! Thank you!

[Dommy2Hotty]

Hi,

replace:
(subst (assoc 304 INFO) (assoc 304 ent2) ent2)
by
(subst (cons 304 INFO) (assoc 304 ent2) ent2)

Still got an error, think I tried that one earlier, but brains fried now...need to do this more often...

[Lee Mac]

Just for completeness Dommy:

Code: [Select]

(defun C:MTxt2Mleader (/ ent text ent2)
  (if (setq ent (car (entsel "\nSelect SOURCE text: ")))
    (progn
      (setq text (cdr (assoc 1 (entget ent))))
      (while (setq ent2 (car (entsel "\nSelect MLEADER object: ")))
        (entmod
          (subst
            (cons 304 text)
              (assoc 304 (entget ent2)) (entget ent2))))))
  (princ))

PS: You don't need to set CMDECHO to 0, as you are not calling (command... anywhere 

[ronjonp]

Mleaders are much easier to manipulate via ActiveX...here's a small example:

Code: [Select]

(defun c:test(/ mleader txt)
  (if (and (setq txt (car (entsel "\nSelect text: ")))
   (setq mleader (car (entsel "\nSelect mleader: ")))
   (setq mleader (vlax-ename->vla-object mleader))
   (setq txt (vlax-ename->vla-object txt))
      )
    (progn (vla-put-textstring mleader (vla-get-textstring txt))
   (vla-update mleader)
    )
  )
)


Worked like a charm! Thank you!