Gán 2 trụ cổng đối xứng nhau từ 2 điểm point có bán kính bất kì

[Nguyễn Thanhh 0]

Em chào các anh, em là dân khảo sát đang muốn vẽ 2 cái trụ cổng từ 2 điểm point cho khoảng cách bất kì
Em bí quá lên đây nhờ các anh xem giúp ạ
Ý tưởng của em như sau:
- Từ 2 điểm point và khoảng cách tới 2 trụ cổng cho trước
- Vẽ đường tròn bán kính theo khoảng cách cho trước đó
-Từ 2 đường tròn vẽ  đường tiếp tuyến giao với 2 đường tròn (2 đường tròn giao nhau bởi 2 tiếp tuyến, ở đây chỉ lấy 1 trong 2 tuỳ ý)
- Từ 2 đầu của đường tiếp tuyến gán 2 hình vuông đối xứng nhau với chiều dài cạnh là 4cm (hay còn gọi là trụ cổng hoặc là block tên "2" em để trong bản vẽ)
- Được kết quả 2 hình vuông đối xứng đó rồi, xoá các đường tròn và tiếp tuyến đã vẽ trước đó đi
Thứ tự thực hiện
- Lệnh command : 44
- click vào 2 point sau đó nhập bán kính lần lượt tương ứng với 2 point
- chọn hướng đặt 2 trụ cổng
kết quả trả về 2 trụ cổng đối xứng nhau như kết quả trong file cad ở dưới 
 Rất mong được các anh giúp đỡ ạ

 

TEST DUONG TRON.dwg

[NTHAHT 115]

- Bài toán khá hay, tuy nhiên không cần vẽ các đường tạm mà tính toán ra các điểm luôn.

- Để ứng dụng chèn được nhiều loại block (có kích thước khác nhau), cần thống nhất định nghĩa điểm chèn block cùng dạng.

- Các block trong file cad hiện tại thế này:

[NTHAHT 115]

Cái này đi theo hướng khác. 

https://youtu.be/LrkaBzgf40M

[Nguyễn Thanhh 0]

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

Cái này đi theo hướng khác. 

https://youtu.be/LrkaBzgf40M

lisp của anh em xem quét rất tiện, nhưng mục đích ban đầu em chỉ muốn pich vào point sau đó nhập thủ công thôi vì bản vẽ tổng của em còn nhiều cái phức tạp hơn thế chứ k đơn giản là mã 1m, 1.2m ấy ạ.
anh quan tâm có thểm xem qua file này  lớp ' ma diem" ạ

CAD QUOC TUAN (1).dwg

[duy782006 1596]

Ôi choa cái mã điểm thiệt là ám ảnh. Tôi đã lội cái mã điểm này trong 1 yêu cầu vẽ vòng tròn theo nó.

 

[Nguyễn Thanhh 0]

mã điểm bản vẽ của bạn ấy còn đơn giản hơn của em ấy ạ. Tiện đây nhờ anh vẽ đường tròn như vậy cho lớp ''ma diem" trong bản của em được không ạ
(em đã thử test lisp đó nhưng bản của em nhiều mã khác có vẻ phức tạp hơn) 

CAD QUOC TUAN (1).dwg

[duy782006 1596]

25 phút trước, Nguyễn Thanhh đã nói:

mã điểm bản vẽ của bạn ấy còn đơn giản hơn của em ấy ạ. Tiện đây nhờ anh vẽ đường tròn như vậy cho lớp ''ma diem" trong bản của em được không ạ
(em đã thử test lisp đó nhưng bản của em nhiều mã khác có vẻ phức tạp hơn) 

CAD QUOC TUAN (1).dwg

Mình thấy "mã điểm" của 2 bạn lộn xộn giống hệt nhau. Xem kết quả như này đúng chưa.

 

texttocircle_m.lsp

CAD QUOC TUAN (1).dwg

[Nguyễn Thanhh 0]

13 giờ trước, duy782006 đã nói:

Mình thấy "mã điểm" của 2 bạn lộn xộn giống hệt nhau. Xem kết quả như này đúng chưa.

 

texttocircle_m.lsp

CAD QUOC TUAN (1).dwg

anh có thể bổ sung thêm tiện ích sau vào lisp được không ạ
- bán kính đường tròn vượt quá 15m thì bỏ đi không vẽ 
- nếu mã điểm chỉ là số độc lập như 1,2,3,..100 thì bỏ không vẽ
- ứng dụng sang bản vẽ khác nếu những mã dạng kiểu khác không đọc được thì có thể khoanh lại và để sang 1 layer ''khong load duoc''
Em mong nhận được sự giúp đỡ của anh ạ 
 

[duy782006 1596]

1 giờ trước, Nguyễn Thanhh đã nói:

anh có thể bổ sung thêm tiện ích sau vào lisp được không ạ
- bán kính đường tròn vượt quá 15m thì bỏ đi không vẽ 
- nếu mã điểm chỉ là số độc lập như 1,2,3,..100 thì bỏ không vẽ
- ứng dụng sang bản vẽ khác nếu những mã dạng kiểu khác không đọc được thì có thể khoanh lại và để sang 1 layer ''khong load duoc''
Em mong nhận được sự giúp đỡ của anh ạ 
 

-Tạm thời thêm chức năng "bán kính đường tròn vượt quá 15m thì bỏ đi không vẽ".

-"nếu mã điểm chỉ là số độc lập như 1,2,3,..100 thì bỏ không vẽ" đang suy nghĩ cách.

-"những mã dạng kiểu khác không đọc được" cái này là do cách ra đề bạn phải ra quy luật cho nó đọc chứ không phải là không đọc được. Cứ lỗi text nào thì bạn copy nội dung text đó và đưa quan điểm mình dạy lisp đọc.

 

Lệnh TTC.

texttocircle_m.lsp

 

 

[duy782006 1596]

- Đã sửa thêm chức năng "bán kính đường tròn vượt quá 15m thì bỏ đi không vẽ".

- Nếu text chỉ chứa số (mà ko có chữ nào) thì bỏ qua.

- Lệnh vẫn là TTC.

 

texttocircle_m.lsp

[NgocCham03 1]

5 giờ trước, duy782006 đã nói:

- Đã sửa thêm chức năng "bán kính đường tròn vượt quá 15m thì bỏ đi không vẽ".

- Nếu text chỉ chứa số (mà ko có chữ nào) thì bỏ qua.

- Lệnh vẫn là TTC.

 

texttocircle_m.lsp

anh thêm giúp em mã có ký tự là 2t 3t 4t 5t thì không vẽ đường tròn
ví dụ như trong file dưới này ạ

duong tron.dwg

[duy782006 1596]

Loanh quanh sao lại đi khỏi chủ đề của topic này mất rồi. Quay lại chủ đề này trên cơ sở đã có các CIRCLE từ lisp trên.

-Lệnh TT2.

-Thao tác nhập lệnh. Nhập độ lớn cạnh hình vuông làm cột (mặc định là 4 không thay đổi thì enter, thay đổi thì nhập số mới rồi enter). Chọn hình tròn 1, chọn hình tròn 2, chỉ phía chèn cột.

-Lisp sẽ tạo sẳn cho bạn block hình vuông rồi chèn theo phía bạn chỉ. Nếu điểm bạn chỉ trùng đường thẳng nối 2 tâm đường tròn thì nó sẽ chèn cả 2 bên.

tieptuyen2circle.lsp

[nguyensang9798@gmail.com 4]

3 giờ trước, duy782006 đã nói:

Loanh quanh sao lại đi khỏi chủ đề của topic này mất rồi. Quay lại chủ đề này trên cơ sở đã có các CIRCLE từ lisp trên.

-Lệnh TT2.

-Thao tác nhập lệnh. Nhập độ lớn cạnh hình vuông làm cột (mặc định là 4 không thay đổi thì enter, thay đổi thì nhập số mới rồi enter). Chọn hình tròn 1, chọn hình tròn 2, chỉ phía chèn cột.

-Lisp sẽ tạo sẳn cho bạn block hình vuông rồi chèn theo phía bạn chỉ. Nếu điểm bạn chỉ trùng đường thẳng nối 2 tâm đường tròn thì nó sẽ chèn cả 2 bên.

tieptuyen2circle.lsp

thanks anh. lisp này dùng ok rồi ạ,còn lisp texttocricle anh thêm giúp bọn em bỏ vẽ đường tròn đối với mã 2t 3t 4t 5t. những mã này giải nghĩa là 2 tầng, 3 tầng,...cái đó để bọn em xác định chiều cao nhà, k phải là khoảng cách để vẽ bán kính .anh xem mã có ở trong file ở trên em Châm gửi anh nha

[duy782006 1596]

13 giờ trước, nguyensang9798@gmail.com đã nói:

thanks anh. lisp này dùng ok rồi ạ,còn lisp texttocricle anh thêm giúp bọn em bỏ vẽ đường tròn đối với mã 2t 3t 4t 5t. những mã này giải nghĩa là 2 tầng, 3 tầng,...cái đó để bọn em xác định chiều cao nhà, k phải là khoảng cách để vẽ bán kính .anh xem mã có ở trong file ở trên em Châm gửi anh nha

texttocircle_m.lsp

 

Tên lệnh như cũ.

[nguyensang9798@gmail.com 4]

2 giờ trước, duy782006 đã nói:

texttocircle_m.lsp

 

Tên lệnh như cũ.

Em cảm ơn anh Duy nhiều ạ, hiện em đang không ngồi máy, e sẽ test và quay lại phản hồi sau 

Chúc anh và gia đình luôn luôn mạnh khoẻ, gặp nhiều điều may mắn trong cuộc sống.

[nguyensang9798@gmail.com 4]

Vào lúc 21/6/2024 tại 09:06, duy782006 đã nói:

texttocircle_m.lsp

 

Tên lệnh như cũ.

lisp này kiểm tra chạy tâm bị lỗi anh Duy ah, anh xem lại giúp em với 

[nguyensang9798@gmail.com 4]

Vào lúc 21/6/2024 tại 09:06, duy782006 đã nói:

texttocircle_m.lsp

 

Tên lệnh như cũ.

Những mã có số trước và chữ sau bị lỗi. ví dụ 0.3.tx.co
em đã load lại những lisp trước anh viết đều chạy được bình thường
còn lisp mới nhất đã lọc được 2t,3t,4t,5t rồi nhưng phát sinh lỗi trên ạ 

ktra.dwg

[duy782006 1596]

Thôi bỏ qua đi dùng lisp cũ chịu khó coi cái nào là số tầng thì bỏ vòng tròn đó đi. mần cái đám số với chữ đau đầu quá!

[nguyensang9798@gmail.com 4]

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

Thôi bỏ qua đi dùng lisp cũ chịu khó coi cái nào là số tầng thì bỏ vòng tròn đó đi. mần cái đám số với chữ đau đầu quá!

nếu lisp vẽ cả mấy số tầng đó thì xoá nhiều lắm ạ, hy vọng được anh giúp nốt cú chót này cho em với ạ 

[duy782006 1596]

21 giờ trước, nguyensang9798@gmail.com đã nói:

nếu lisp vẽ cả mấy số tầng đó thì xoá nhiều lắm ạ, hy vọng được anh giúp nốt cú chót này cho em với ạ 

Bạn test thử xem.

Lệnh như cũ.

texttocircle_m_x.lsp

[nguyensang9798@gmail.com 4]

Vào lúc 25/6/2024 tại 13:48, duy782006 đã nói:

Bạn test thử xem.

Lệnh như cũ.

texttocircle_m_x.lsp

lisp chạy ok bác Duy ơi, bác vất vả với topic khù khoằm này của e rồi