Leader Lisp Routine that puts in the Elevation

[denton]

Does anyone have a lisp routine that will put in a leader line and print out the elevation (Z coordinate) as EL 100.00?

[Coolmo]

Z coordinate of what? The node or point that the leader is pointing to or would the user type an elevation?

[peter]

Maybe?

Peter Jamtgaard

(defun C:LEAD100 ()
 (vl-cmdf "leader" pause pause "" "100.00" "")
)

[RobertB]

Peter, I think Denton wants the Z-coord of the object the leader points to.

Denton, what version of AutoCAD?

[denton]

Thanks but I got what I needed from a different forum thank you anyway.

[steve.perkio]

I asked for Denton' help with this issue, and basically got a No Thank you, I'm not going to help you reply. See the attached pdf.

Thanks Denton.

Originally Posted by denton

Thanks but I got what I needed from a different forum thank you anyway.

[denton]

Originally Posted by steve.perkio

I asked for Denton' help with this issue, and basically got a No Thank you, I'm not going to help you reply. See the attached pdf.

Thanks Denton.

I'm sorry if I misunderstood you, I was not being rude, what help did you want on this? This post was so long ago I'm a little foggy on it. Do you want the routine?

[tedg]

Originally Posted by denton

I'm sorry if I misunderstood you, I was not being rude, what help did you want on this? This post was so long ago I'm a little foggy on it. Do you want the routine?

I think "steve.perkio" was asking if you had received an answer or resolution to your question, and if so could you point him in the right direction and/or share what you got.

That's my take on it anyway...

[denton]

Could be, but he seemed upset which was not my intention. Here's the routine for what it's worth. It some functions I use locally for looking up and restoring variables that should be commented out (initerr) and (reset):

;;; LISP: Elead.lsp
;;;
;;; Version 1.0   	D.D. Denton 6/3/04
;;;			Western Area Power Administration
;;;			email: denton@wapa.gov  720-962-7360
;;;
;;; Purpose:		Leader line that automatically labels elevations.
;;;			
;;;
;;;----------------------------------------------------------------------
(defun elead (/ point ldrent oldecho lastent txtent coord2)
  (initerr)
  (vl-load-com)
  (command "ucs" "w")
	(defun laycheck ( / laychk)
	(setq curlayer (getvar "clayer"))
	(setq laychk (cdr (assoc 2 (tblsearch "layer" "dimen"))))
	(if (= laychk nil) (command "layer" "m" "dimen" "c" 6 "" ""))
  	(command "layer" "s" "dimen" "")
	) 

  (setvar "cmdecho" 0)
  (laycheck)
  (check_dim "dim-arrow-leader")
  (command "ortho" "off")
  (command "osnap" "end")
  (setvar "luprec" 2)
  (setvar "lunits" 2)
  (while (setq point (getpoint "\nSelect point to label: "))
    (setq oldecho (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (setq lastent (entlast))
    (command "_.leader" point)
    (princ "\nNext leader point: ")
    (command pause)
    (princ "\nNext leader point: ")
    (command pause (strcat "EL " (rtos (caddr point)))	               
	     "")
    (setq txtent (vlax-ename->vla-object (entlast)))
    (setq ldrent (vlax-ename->vla-object (entnext lastent)))
    (setq coord2 (vlax-safearray->list
     (vlax-variant-value
       (vla-get-coordinate ldrent 1))))
    (if (< (/ pi 2) (angle coord2 (getvar "lastpoint")) (* pi 1.5))
      (vla-put-attachmentpoint txtent acAttachmentPointMiddleRight)
      (vla-put-attachmentpoint txtent acAttachmentPointMiddleLeft)
      )
    (vla-put-insertionpoint txtent (vlax-3d-point (getvar "lastpoint")))
    (vla-put-VerticalTextPosition ldrent acVertCentered)    
    (setvar "cmdecho" oldecho)
    )
  (princ)
  (command "ucs" "v")
    (reset)
  )
(defun c:elead () (elead))

Moderator Note:

Please use [ CODE ] tags...