VẼ HAI ĐƯỜNG THẲNG E VÀ F QUA BỐN ĐIỂM A, B, C, D

[HOABAN_QD 7]

Nhờ ACE diễn đàn CadViet giúp đỡ

Có bốn điểm A, B, C, D thuộc bốn góc của hình chữ nhật, sau khi nhập lệnh lisp và bung cửa sổ chọn bốn đểm này và enter thì vẽ được hai đường thẳng Line E và F

(Đường thằng E vẽ lùi về phía bên trái một đoạn 50mm, và mỗi đầu mút của nó ngắn lại 25mm, tương tự như vậy cho đường thẳng F, nhưng F vẽ về phía bên phải)

Cảm ơn ACE !

VE HAI DUONG THANG E VA F QUA 4 DIEM POINT A B C D.dwg

[cuongtk2 356]

Vẽ đường thẳng offset theo 3 điểm, ngắn lại 25, offset 50

 

(DEFUN c:test  ( / A1 A2 P1 P1A P2 P2A P3)
  (DEFUN LM:Clockwise-p  (p1 p2 p3)
    ((LAMBDA (n) (< (CAR (TRANS p2 0 n)) (CAR (TRANS p1 0 n)))) (MAPCAR '- p1 p3))
    )
  (SETQ p1 (GETPOINT "\nDiem dau:")
        p2 (GETPOINT "\nDiem cuoi: " p1)
        p3 (GETPOINT "\nHuong offset" p2)
        a1 (ANGLE p1 p2)
        )
  (IF (LM:Clockwise-p p1 p2 p3)

    (SETQ a2 (+ a1 (* PI 1.5)))
    (SETQ a2 (+ a1 (* PI 0.5)))
    )
  (SETQ p1a (POLAR p1 a2 50)
        p2a (POLAR p2 a2 50)
        p1a (POLAR p1a a1 25)
        p2a (POLAR p2a a1 -25))
  (ENTMAKEX (LIST
              (CONS 0 "LINE")
              (CONS 10 p1a)
              (CONS 11 p2a)
              )
            )
  )
 

[HOABAN_QD 7]

 

Trước là cảm ơn bạn cuongtk2 đã chia sẽ, nhưng mình lặp lại ý của mình chút, ý là bung cửa sổ chọn cùng một lúc 4 điểm point luôn, ở đây là đang đi clikc chọn 2 điểm và chọn hướng để offset rồi, các bạn giúp mình nhé, thanks!

[Doan Nguyen Van 491]

23 giờ trước, HOABAN_QD đã nói:

Nhờ ACE diễn đàn CadViet giúp đỡ

Có bốn điểm A, B, C, D thuộc bốn góc của hình chữ nhật, sau khi nhập lệnh lisp và bung cửa sổ chọn bốn đểm này và enter thì vẽ được hai đường thẳng Line E và F

(Đường thằng E vẽ lùi về phía bên trái một đoạn 50mm, và mỗi đầu mút của nó ngắn lại 25mm, tương tự như vậy cho đường thẳng F, nhưng F vẽ về phía bên phải)

Cảm ơn ACE !

VE HAI DUONG THANG E VA F QUA 4 DIEM POINT A B C D.dwg

Thế này đúng không nhỉ ?

[HOABAN_QD 7]

Gần đúng, bung cửa sổ chọn, nhưng không phải chọn đúng vào hai cái điểm đó

[Doan Van Ha 3.201]

12 phút trước, HOABAN_QD đã nói:

Gần đúng, bung cửa sổ chọn, nhưng không phải chọn đúng vào hai cái điểm đó

Câu này gần giống thầy phán trò, chứ không phải người nhờ nói với người giúp. Sửa lại nghe êm tai hơn chút đi.

[HOABAN_QD 7]

 

Cảm ơn bạn Doan Nguyen Van, bạn có thể share mình file lisp đó được không, nếu được mình cảm ơn bạn rất nhiều!

[Doan Nguyen Van 491]

1 giờ trước, HOABAN_QD đã nói:

Gần đúng, bung cửa sổ chọn, nhưng không phải chọn đúng vào hai cái điểm đó

2 điểm này chỉ là mẫu, bạn chọn 2 điểm đối xứng bất kì đều được.

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

 

Cảm ơn bạn Doan Nguyen Van, bạn có thể share mình file lisp đó được không, nếu được mình cảm ơn bạn rất nhiều!

Mình có thể share, nhưng cần bạn trả phí.

[Doan Nguyen Van 491]

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

Câu này gần giống thầy phán trò, chứ không phải người nhờ nói với người giúp. Sửa lại nghe êm tai hơn chút đi.

Cháu đọc cũng tưởng cháu đang nhờ bạn ấy giải bài toán cho vậy :D 

[quocmanh04tt 635]

[cuongtk2 356]

1 phút trước, quocmanh04tt đã nói:

Khi xoay vẽ như thế chưa chắc đúng đâu QuocManh

[Horse_xd 2]

Bạn cuongtk2 thành công rồi, hai cái hình phía dưới là hay quá trời rồi, bạn có thể share cho mình được không bạn, cảm ơn bạn nhiều nhiều!

[DungNguyen685 40]

Vào lúc 21/5/2021 tại 14:50, Doan Van Ha đã nói:

 

[Doan Nguyen Van 491]