Topic: MLEADERS

[gwong]

I want to make the following Lisp file underline the top line using lisp code is this possible? 

MLEADER Code

(defun C:crd ()
(setq pntlist (getpoint "\n Pick Point: "))
(setq px (rtos (car pntlist))
py (rtos(cadr pntlist))

)
(setq coordstr (strcat "N " py "\nE " px))
(Setq P2 (Getpoint pntlist "Pick Leader End:"))
(If(<=(Car P2)(Car pntlist))
(Setq B(* -0.1 (getvar "dimscale")))
(Setq B (* 0.1 (getvar "dimscale")))
)
(Setq P3 (List (+ (Car P2) B) (Cadr P2)))
(Command "mleader" pntlist p3 "y" coordstr "")
(princ)
)

[ronjonp]

Replace this line:

(setq coordstr (strcat "N " py "\nE " px))

With this:

(setq coordstr (strcat "{\\L N " py "}\nE " px))

*modified...had an extra "N"

[gwong]

Could you make the MLEADER use the property Under Top Line?

[ronjonp]

Something like this?

Code: [Select]

(defun c:crd (/ b coordstr p2 p3 pntlist px py ent)
  (setq pntlist (getpoint "\n Pick Point: "))
  (setq px (rtos (car pntlist))
py (rtos (cadr pntlist))
  )
  (setq coordstr (strcat "{\\LN " py "}\nE " px))
  (Setq P2 (Getpoint pntlist "Pick Leader End:"))
  (If (<= (Car P2) (Car pntlist))
    (Setq B (* -0.1 (getvar "dimscale")))
    (Setq B (* 0.1 (getvar "dimscale")))
  )
  (Setq P3 (List (+ (Car P2) B) (Cadr P2)))
  (Command "_.mleader" pntlist p3 coordstr)
  (setq ent (vlax-ename->vla-object (entlast)))
  (vla-put-TextRightAttachmentType ent 3)
  (vla-put-TextLeftAttachmentType ent 3)
  (princ)
)

[gwong]

I looks like what I want but for some reason when I run the lisp it doesn't work properly and errors out.  It runs through the whole lisp but when it gets to the property overrides that I want it quits.

Thanks

[ronjonp]

Try adding (vl-load-com) to the beginning of the routine.

[gwong]

That worked thanks for the help it is very much appreciated.

[ronjonp]

Not a problem

[gwong]

Would this be the code if I wanted the Leader a different Color?

(vla-put-LeaderLineColor ent "1")

[ronjonp]

Using Mike's function here: http://www.theswamp.org/index.php?topic=22661.msg273227#msg273227

This should do it:

(vla-put-LeaderLineColor ent (maketcolor 1))