Nhờ các bác giúp đỡ viết lisp xuất cao độ Z của 1 điểm

[tronganh210494@gmail.com 0]

E muốn nhờ các bác viết 1 lisp chấm point và xuất ra cao độ z của point đó ( tại vị trí point ). Cảm ơn các bác nhiều.

[Doan Van Ha 3.201]

6 phút trước, tronganh210494@gmail.com đã nói:

E muốn viết 1 lisp chấm point và xuất ra cao độ z của point đó ( tại vị trí point ). Cảm ơn các bác nhiều.

Thì cứ viết đi, sợ gì nào?

[duy782006 1.551]

10 phút trước, tronganh210494@gmail.com đã nói:

E muốn viết 1 lisp chấm point và xuất ra cao độ z của point đó ( tại vị trí point ). Cảm ơn các bác nhiều.

Cố lên. Không cần cảm ơn đâu.

[tronganh210494@gmail.com 0]

6 giờ trước, Doan Van Ha đã nói:

Thì cứ viết đi, sợ gì nào?

Sr bác e viết thiếu. E muốn nhờ các bác viết giúp e chứ e ko biết viết

[duy782006 1.551]

(defun c:ld ()
(setq dd (getpoint "Chon diem !"))
(entmake (list (cons 0 "TEXT")(cons 10 dd)(cons 11 dd)(cons 40 2)(cons 50 0)(cons 72 0)(cons 1 (rtos (caddr dd) 2 3))(cons 7 (getvar "TEXTSTYLE"))(cons 8 (getvar "CLAYER"))(cons 62 256))) 
(entmake (list (cons 0 "POINT")(cons 10 dd)(cons 8 (getvar "CLAYER"))(cons 62 256))) 
(princ)
)