Nhờ giúp đỡ lisp vẽ đường Pline vuông góc khi chọn 2 điểm bất kỳ

[vuongdhbkdn 0]

Công việc của em cần nối 1 đường pline giữa 2 điểm bất kỳ mà đường pline này là đường pline vuông góc có 2 cạnh theo 2 trục X-Y của hệ trục tọa độ đang hiện hữu ( Khi đổi trục bằng lệnh ucs thì vẽ pline cũng sẽ là đường vuông góc theo trục ucs mới ). Em cần nối rất nhiều điểm như vậy với nhau nên muốn thao tác công việc được nhanh hơn.

Nhờ các bác giúp đỡ ạ ! Em cảm ơn !

[Doan Van Ha 3208]

19 phút trước, vuongdhbkdn đã nói:

Công việc của em cần nối 1 đường pline giữa 2 điểm bất kỳ mà đường pline này là đường pline vuông góc có 2 cạnh theo 2 trục X-Y của hệ trục tọa độ đang hiện hữu ( Khi đổi trục bằng lệnh ucs thì vẽ pline cũng sẽ là đường vuông góc theo trục ucs mới ). Em cần nối rất nhiều điểm như vậy với nhau nên muốn thao tác công việc được nhanh hơn.

Nhờ các bác giúp đỡ ạ ! Em cảm ơn !

Khó hiểu quá. Có hình minh họa sẽ rõ hơn.

[vuongdhbkdn 0]

Chào bác . Ý của em là em muốn vẽ đường PL màu xanh kia mà chỉ cần chọn 2 điểm A-B. Không cần phải qua bất kỳ thao tác nào khác nữa.

[Doan Van Ha 3208]

10 phút trước, vuongdhbkdn đã nói:

Chào bác . Ý của em là em muốn vẽ đường PL màu xanh kia mà chỉ cần chọn 2 điểm A-B. Không cần phải qua bất kỳ thao tác nào khác nữa.

Có 2 điểm: top-right và bottom-left?

[vuongdhbkdn 0]

15 phút trước, Doan Van Ha đã nói:

Có 2 điểm: top-right và bottom-left?

2 điểm có thể là bất kỳ bác à. Nhưng đường màu xanh 2 cạnh tương ứng sẽ theo trục X và Y. Hướng do mình pick chọn

[Doan Van Ha 3208]

10 phút trước, vuongdhbkdn đã nói:

2 điểm có thể là bất kỳ bác à. Nhưng đường màu xanh 2 cạnh tương ứng sẽ theo trục X và Y

Chán!

[vuongdhbkdn 0]

1 phút trước, Doan Van Ha đã nói:

Chán!

Thật sự xin lỗi. Do chưa hiểu ý bác . 

[Doan Van Ha 3208]

Theo hình vẽ thì:

(defun C:HA( / a b)
 (setq a (getpoint "\nPick diem A: ") b (getpoint a "\nPick diem B: "))
 (command "pline" "_non" a "_non" (list (car b) (cadr a)) "_non" b "")
 (princ)) 

[vuongdhbkdn 0]

13 phút trước, Doan Van Ha đã nói:

Theo hình vẽ thì:

(defun C:HA( / a b)
 (setq a (getpoint "\nPick diem A: ") b (getpoint a "\nPick diem B: "))
 (command "pline" "_non" a "_non" (list (car b) (cadr a)) "_non" b "")
 (princ)) 

 

Cảm ơn bác ! Đã đúng ý của em !

[duy782006 1592]

Mình đoán hôm sau sẽ nhờ chỉ phía vẽ nửa cho mà xem. Hoặc bạn ấy phải nhớ thứ tự pick của 2 điểm.

[NTHAHT 105]

54 phút trước, duy782006 đã nói:

Mình đoán hôm sau sẽ nhờ chỉ phía vẽ nửa cho mà xem. Hoặc bạn ấy phải nhớ thứ tự pick của 2 điểm.

= phía vẽ 1/2? là sao nhẩy?

[Doan Van Ha 3208]

11 phút trước, NTHAHT đã nói:

= phía vẽ 1/2? là sao nhẩy?

Hehe, người miền Trung thường phân biệt dấu "ngã" và "hỏi" hay sai í mà. Cũng như miền Bắc "chờ" "trờ" hay "lờ" nờ". Hoặc miền Nam v.v...

[ketxu 2999]

Vào lúc 18/7/2023 tại 17:24, NTHAHT đã nói:

= phía vẽ 1/2? là sao nhẩy?

Ý là sao nó lại đi sang ngang rồi xuống mà sao k xuống rồi sang :) Như vậy thì khi đó yêu cầu của bạn sẽ phát sinh việc "phía vẽ nữa"