Lệnh Di rồi xuất ra text theo 2 chiều!!

[namhai 17]

Chào các bác, mong các bác giúp đỡ e lisp này với. khi mình Di thì sẽ cho kết quả theo 2 chiều X, Y, e muốn xuất cả 2 kết quả đấy ra text, ý tưởng của e như sau mong mọi người giúp đỡ :

- Lệnh DI để cho Khoảng cách X, Y

- Chọn text để ghi kết quả X

- Chọn text để ghi kết quả Y

[Tue_NV 3915]

Chào các bác, mong các bác giúp đỡ e lisp này với. khi mình Di thì sẽ cho kết quả theo 2 chiều X, Y, e muốn xuất cả 2 kết quả đấy ra text, ý tưởng của e như sau mong mọi người giúp đỡ :

- Lệnh DI để cho Khoảng cách X, Y

- Chọn text để ghi kết quả X

- Chọn text để ghi kết quả Y

Bạn sử dụng Code này xem sao :

(defun c:xt2c()
(setq p1 (getpoint "\n chon diem thu 1 :"))
(setq p2 (getpoint p1 "\n chon diem thu 2 :"))
(setq di (distance p1 p2))
(setq ang (angle p1 p2))
(setq y (rtos (abs (* di (sin ang))) 2 3))
(setq x (rtos (abs (* di (cos ang))) 2 3))
(setq tex (entget(car (entsel "\n Chon text de xuat khoang cach X :"))))
(setq tex (entmod(subst (cons 1 x) (assoc 1 tex) tex)))
(setq tey (entget(car (entsel "\n Chon text de xuat khoang cach Y :"))))
(setq tey (entmod(subst (cons 1 y) (assoc 1 tey) tey)))
(princ)
)

[namhai 17]

Bạn sử dụng Code này xem sao :

(defun c:xt2c()
(setq p1 (getpoint "\n chon diem thu 1 :"))
(setq p2 (getpoint p1 "\n chon diem thu 2 :"))
(setq di (distance p1 p2))
(setq ang (angle p1 p2))
(setq y (rtos (abs (* di (sin ang))) 2 3))
(setq x (rtos (abs (* di (cos ang))) 2 3))
(setq tex (entget(car (entsel "\n Chon text de xuat khoang cach X :"))))
(setq tex (entmod(subst (cons 1 x) (assoc 1 tex) tex)))
(setq tey (entget(car (entsel "\n Chon text de xuat khoang cach Y :"))))
(setq tey (entmod(subst (cons 1 y) (assoc 1 tey) tey)))
(princ)
)

Lisp rất tuyệt, đúng như điều e muốn rồi, cảm ơn bác Tue_NV nhiều nha!Happy weekend :bigsmile: