Topic: SOLVED! How can we find line's start and end point Z coordinates

[scorpion76]

I write code like this but i guess i have a little error
I want to calculate start and end point of line's Z coordinate.

Code: [Select]

(defun c:bol( / lne z1 z2 )
(setq lne (entsel "\nSelect Line..:"))

 (setq z1 (cdr (assoc 10 lne))) ;start point z value
 (setq z2 (cdr (assoc 11 lne))) ;end point z value

 (princ z1)

 )


[Crank]

Code: [Select]

(setq lne (entget (car (entsel "\nSelect Line..:"))))

Code: [Select]

(setq z1 (cadddr (assoc 10 lne))) ;start point z valueor

Code: [Select]

(setq z1 (last (assoc 10 lne)))) ;start point z value

[scorpion76]

Thanks Mr Crank for your reply, i write like this;

Code: [Select]

(defun c:bol( / lne z1 z2 z3 z4 strt end1)
;(setq lne (entsel "\nSelect Line..:"))

  (setq lne (entget (car (entsel "\nSelect Line..:"))))

  (setq z1 (cdr (assoc 10 lne)))

  (setq z2 (cdr (assoc 11 lne)))

  (setq strt (assoc 10 lne))
  (setq end1 (assoc 11 lne))

  (setq z3 (cddr z1)) ;start point z value
  (setq z4 (cddr z2)) ;end point z value

(command "text" "j" "tl" strt "1" "0" z3) ;
(command "text" "j" "tl" end1 "1" "0" z4) ;
)
I want to write at the start point , z coordinate and location of end point, z coordinat too.

[scorpion76]

SOLVED...

Code: [Select]

(defun c:bol( / lne z1 z2 z3 z4 )


  (setq lne (entget (car (entsel "\nSelect Line..:"))))

  (setq z1 (cdr (assoc 10 lne)))

  (setq z2 (cdr (assoc 11 lne)))


  (setq z3 (caddr z1)) ;start point z value CDDR DEGIL CADDR
  (setq z4 (caddr z2)) ;end point z value CDDR DEGIL CADDR

(command "text" "j" "tl" z1 "1" "0" (rtos z3 2 2))
(command "text" "j" "tl" z2 "1" "0" (rtos z4 2 2))


 
(princ) ; PROGRAMIN DUZGUN SONLANMASI ICIN GEREKLI BITIS
)

[ronjonp]

Some minor comments:

Code - Auto/Visual Lisp: [Select]

1. (defun c:bol (/ lne z1 z2 z3 z4)
2.   ;; Check that the pick is  valid and we actually have a line
3.   ;; Entget will $h!+ the bed if you pass it nothing
4.   (if (and (setq lne (car (entsel "\nSelect Line..:"))) (= "LINE" (cdr (assoc 0 (entget lne)))))
5.     (progn (setq z1 (cdr (assoc 10 (entget lne))))
6.            (setq z2 (cdr (assoc 11 (entget lne))))
7.            (setq z3 (caddr z1))         ;start point z value CDDR DEGIL CADDR
8.            (setq z4 (caddr z2))         ;end point z value CDDR DEGIL CADDR
9.            (command "text" "j" "tl" z1 "1" "0" (rtos z3 2 2))
10.            (command "text" "j" "tl" z2 "1" "0" (rtos z4 2 2))
11.     )
12.   )
13.   (princ)                               ; PROGRAMIN DUZGUN SONLANMASI ICIN GEREKLI BITIS
14. )