cao độ Lisp tính cao độ trắc ngang

[Duong Nhat Duy 423]

Gửi đến các bạn 1 lisp tính cao độ trên trắc ngang. Tuy không phải là 1 vấn đề mới mẻ và thực tế cũng có rất nhiều lisp về đề bài này rồi, nhưng mình vẫn muốn viết nó, với mục tiêu là dễ sử dụng, tính thẩm mỹ cao và có thể tùy biến các thông số.

 

Công dụng

- Tính cao độ pick điểm trên trắc ngang từ 1 điểm cơ sở (cao độ điểm cơ sở có thể nhập tay hoặc pick chọn Text/Block Att)

- Có thể cập nhật lại cao độ khi cao độ điểm cơ sở thay đổi

- Có thể tùy chỉnh tỉ lệ đứng, ứng dụng để tính cao độ trên trắc dọc

- Có thể tùy chỉnh cao chữ, kích thước mũi tên, ...

 

Tên lệnh

   TCS - Thiết lập thông số (không bắt buộc, có thể bỏ qua)

   TCD - Tính cao độ

   CNCD - Cập nhật cao độ

 

TCD - Tính cao độ

Tính cao độ pick điểm từ 1 điểm cơ sở (cao độ điểm cơ sở có thể nhập tay hoặc pick chọn Text/Block Att)

 

CNCD - Cập nhật cao độ

Cập nhật cao độ từ 1 điểm cơ sở (cách nhập điểm cơ sở tương tự lệnh TCD).

Đối tượng cập nhật có thể là Block Att hoặc cụm đối tượng Text, Pline được tạo ra từ lệnh TCD như trên.

 

Link download

https://drive.google.com/drive/u/1/folders/1IW78bQJ7kDaovc2obdweBkV_ParNiNa7

 

Chúc các bạn thành công :)))

[Xuân Lộc 14]

này có thể chỉnh sửa như nào để đánh được cos cao độ bên dân dụng ạ

[Duong Nhat Duy 423]

6 phút trước, Xuân Lộc đã nói:

này có thể chỉnh sửa như nào để đánh được cos cao độ bên dân dụng ạ

Bạn cho xin vài ví dụ minh họa nhé chứ mình không làm dân dụng nên chưa hình dung ra.

[Xuân Lộc 14]

5 giờ trước, Duong Nhat Duy đã nói:

Bạn cho xin vài ví dụ minh họa nhé chứ mình không làm dân dụng nên chưa hình dung ra.

em gửi anh bản cad ạ

Drawing1.dwg

[quangcda 9]

Của Xuân Lộc thì tạo field trong attribute tiện hơn! 

[Duong Nhat Duy 423]

18 giờ trước, Xuân Lộc đã nói:

em gửi anh bản cad ạ

Drawing1.dwg

 

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

Của Xuân Lộc thì tạo field trong attribute tiện hơn! 

Mình đã thêm option chọn Block Att trong lệnh TCD và option thêm dấu + trong lệnh TCS rồi, bạn cập nhật lại trong link ggdrive nhé !

[Xuân Lộc 14]

9 giờ trước, Duong Nhat Duy đã nói:

 

Mình đã thêm option chọn Block Att trong lệnh TCD và option thêm dấu + trong lệnh TCS rồi, bạn cập nhật lại trong link ggdrive nhé !

em test thử thì lisp chạy ngon ở mẫu 1 có 1 tag att. mẫu 2 có 2 tag em muốn nó đánh được 2 tag và giữ được nội dung phía trước là FFL= và SFL= ạ. riêng cái 0.000 phải có dấu cộng trừ vì nó theo qcvn ạ

[Duong Nhat Duy 423]

12 giờ trước, Xuân Lộc đã nói:

em test thử thì lisp chạy ngon ở mẫu 1 có 1 tag att. mẫu 2 có 2 tag em muốn nó đánh được 2 tag và giữ được nội dung phía trước là FFL= và SFL= ạ. riêng cái 0.000 phải có dấu cộng trừ vì nó theo qcvn ạ

Cái này mình chịu nhé, nó quá cụ thể cho chuyên ngành rồi !

[Xuân Lộc 14]

34 phút trước, Duong Nhat Duy đã nói:

Cái này mình chịu nhé, nó quá cụ thể cho chuyên ngành rồi !

này có thì tiện, ko có cũng ko sao ạ, làm quen cũng có nhiều thủ thuật để nó nhanh

[Xuân Lộc 14]

Vào lúc 11/12/2024 tại 07:38, quangcda đã nói:

Của Xuân Lộc thì tạo field trong attribute tiện hơn! 

tạo field nhưng mà mk hay tạo block để nó nhảy dữ liệu, sửa 1 cái nhảy nhiều cái lên có field trong block toàn lỗi á

[Duong Nhat Duy 423]

7 phút trước, Xuân Lộc đã nói:

tạo field nhưng mà mk hay tạo block để nó nhảy dữ liệu, sửa 1 cái nhảy nhiều cái lên có field trong block toàn lỗi á

Cái đề bài của bạn muốn tạo field thì tạo được nhưng nó cần link với 1 thằng đối tượng gốc nào đó (trên trục ngang +0.00). Và toàn bộ quá trình vẽ ko đc xóa thằng gốc đó.

[Zoi 36]

@3duy :

sao mình pick điểm không thẳng hàng với cái block gốc nhỉ ? vị trí _per nó tự bay sang chỗ khác, code tính startpoint của Duy lấy điểm mốc tại đâu ?.

Với nữa là có thể thêm %%p vào text nếu pick tại 0.00 nữa càng đẹp.

[Zoi 36]

Với hỏi 1 chút:

1. Khi đánh cao độ như này, có chục cái cao độ được tính với cao độ gốc 10.00, giờ bên địa hình thay đổi, gốc đổi thành 11.00, liệu có thể thêm option để pick mốc cũ, và quét block cao độ để update toàn bộ các block cao độ đó được cập nhật theo giá trị mới mà không phải chạy TCD lại từ đầu không ?.

2. 1 trường hợp nữa là mốc thì vẫn vậy, nhưng có một số chi tiết thay đổi, VD  cao độ cống, nâng lên hạ xuống chút. Cần đánh lại cao độ này, vẫn tính từ mốc cũ. Liệu có thể thêm option để quét các block cao độ thay đổi và update lại không ?.

 

[Duong Nhat Duy 423]

14 phút trước, Zoi đã nói:

@3duy :

sao mình pick điểm không thẳng hàng với cái block gốc nhỉ ? vị trí _per nó tự bay sang chỗ khác, code tính startpoint của Duy lấy điểm mốc tại đâu ?.

Với nữa là có thể thêm %%p vào text nếu pick tại 0.00 nữa càng đẹp.

Trước khi chọn block hay nhập cao độ có dòng lệnh hỏi nhập startpoint đó bạn, bạn bắt điểm đúng cái đầu mũi tên là được.

Về cái thêm %%p bạn có thể tự sửa trong lisp nhé, cái này hơi cá nhân mình không thêm vào được, có thể người cần người không cần.

 

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

Với hỏi 1 chút:

1. Khi đánh cao độ như này, có chục cái cao độ được tính với cao độ gốc 10.00, giờ bên địa hình thay đổi, gốc đổi thành 11.00, liệu có thể thêm option để pick mốc cũ, và quét block cao độ để update toàn bộ các block cao độ đó được cập nhật theo giá trị mới mà không phải chạy TCD lại từ đầu không ?.

2. 1 trường hợp nữa là mốc thì vẫn vậy, nhưng có một số chi tiết thay đổi, VD cao độ cống, nâng lên hạ xuống chút. Cần đánh lại cao độ này, vẫn tính từ mốc cũ. Liệu có thể thêm option để quét các block cao độ thay đổi và update lại không ?.

1 và 2 tương đương nhau, đều là chọn tất cả block cần cập nhật và chọn lại điểm cơ sở. Cái này mình sẽ nghiên cứu bổ sung sau bạn nhé !

[Zoi 36]

1 giờ trước, Duong Nhat Duy đã nói:

1 và 2 tương đương nhau, đều là chọn tất cả block cần cập nhật và chọn lại điểm cơ sở. Cái này mình sẽ nghiên cứu bổ sung sau bạn nhé !

Thanks Duy đã quan tâm. Mình nghĩ tới cái này bởi khi mở rộng khả năng pick Att là có thể ứng dụng đánh cao độ cho nhà cao tầng chẳng hạn. Có thể copy array block cao độ trước. Và TCD chọn mốc + quét blocks update. Trường hợp các tầng thay đổi hoặc code 0.00 đổi thành code khác cũng update rất nhanh và tiện lợi.

[Duong Nhat Duy 423]

Vào lúc 3/1/2025 tại 16:53, Zoi đã nói:

Thanks Duy đã quan tâm. Mình nghĩ tới cái này bởi khi mở rộng khả năng pick Att là có thể ứng dụng đánh cao độ cho nhà cao tầng chẳng hạn. Có thể copy array block cao độ trước. Và TCD chọn mốc + quét blocks update. Trường hợp các tầng thay đổi hoặc code 0.00 đổi thành code khác cũng update rất nhanh và tiện lợi.

Mình đã thêm lệnh CNCD, dùng tương tự lệnh TCD, cụ thể bạn xem lại hướng dẫn bên trên nhé !

[Zoi 36]

Vào lúc 3/1/2025 tại 16:59, Duong Nhat Duy đã nói:

Mình đã thêm lệnh CNCD nhé, dùng tương tự lệnh TCD nhưng ở bước sau, thay vì chọn điểm có thể chọn hàng loạt block (hoặc text rời, nhưng phải là text kết quả của lệnh TCD trước đó). Bạn down lại trong link gg, tạm thời chưa có hướng dẫn nhé !

Cám ơn Duy, lisp rất ok. 

Tuy nhiên có 1 câu hỏi nữa. Mình dời trục tọa độ sang vị trí khác (không còn là World UCS nữa). Xong chạy CNCD, thì thấy cao độ update khác, hình như là lisp căn cứ vào mốc UCS để tính cao độ đúng không ?. 

Và như vậy thì việc pick mốc ban đầu chỉ làm việc tốt với WCS.

[Duong Nhat Duy 423]

4 giờ trước, Zoi đã nói:

Cám ơn Duy, lisp rất ok. 

Tuy nhiên có 1 câu hỏi nữa. Mình dời trục tọa độ sang vị trí khác (không còn là World UCS nữa). Xong chạy CNCD, thì thấy cao độ update khác, hình như là lisp căn cứ vào mốc UCS để tính cao độ đúng không ?. 

Và như vậy thì việc pick mốc ban đầu chỉ làm việc tốt với WCS.

Cái này trước do mình sơ suất chưa tính đến chuyện UCS thôi. Mình đã fix lại rồi, bạn down lại trong link nhé !

[Zoi 36]

Chuẩn r bạn. Thanks nhiều.