Nhờ giúp đỡ

[lenhatanh 2]

Mình có một đoạn code vẽ đường thẳng qua hai điểm sẽ được nhập trên màn hình:  

 

(defun C:Ve (/ d1 d2)

   (command "line" (setq d1 (getpoint "\nStart point... : ")))

   (command (setq d2 (getpoint "\nEnd point... : ")))

   (command "")

)

 

Mình muốn khi thực hiện lênh c:ve sẽ làm được như sau:

 - Sau khi pick điểm d1 trêm màn hình sẽ xuất hiện dây chun quay quanh điểm d1 như lệnh "line" hoặc Pline" của CAD để chọn tiếp điểm d2..

 - Có thể chọn "ortho" ON hoặc OFF để có thể chọn điểm d2 thẳng hàng (đứng hoặc ngang) so với điểm d1.

Nhờ các bạn chỉ giúp cách viết lại đoạn code trên nhé, xin cảm ơn trước.

 

[Doan Van Ha 3.201]

1). Bạn post bài nhiều rồi mà còn vi phạm nội quy với 1 tiêu đề gọn lỏn "Nhờ giúp đỡ". Tiêu đề kiểu này rất khiến người đọc thiếu thiện cảm.

2). Sửa:

(command (setq d2 (getpoint "\nEnd point... : ")))

Thành:

(command (setq d2 (getpoint d1 "\nEnd point... : ")))

3). Giờ thì ORTHO vô tư.

[lenhatanh 2]

Cám ơn bạn đã nhắc nhở và sửa giúp code, mình sẽ rút kinh nghiệm cho những lần sau.