Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
tranchan

None lisp nhưng cũng vẽ automatic

Các bài được khuyến nghị

Cách này cũng na ná như script nhưng không hoàn toàn vậy. Từ một bài tình cờ đọc được trên Cadviet... nên tôi thử làm theo hưóng này.

Trươc hết lấy một ví dụ:

Vẽ một loạt hình chữ nhật theo cung parabol (vd sưu tầm đc) , để thực hiện chép đoạn text sau vào dòng commandline

 
rec 0,0 1,0.5
rec 0.1,0.01 1.1,0.51
rec 0.2,0.04 1.2,0.54
rec 0.3,0.09 1.3,0.59
rec 0.4,0.16 1.4,0.66
rec 0.5,0.25 1.5,0.75
rec 0.6,0.36 1.6,0.86
rec 0.7,0.49 1.7,0.99
rec 0.8,0.64 1.8,1.14
rec 0.9,0.81 1.9,1.31
rec 1,1 2,1.5
rec 1.1,1.21 2.1,1.71
rec 1.2,1.44 2.2,1.94
rec 1.3,1.69 2.3,2.19
rec 1.4,1.96 2.4,2.46
rec 1.5,2.25 2.5,2.75
rec 1.6,2.56 2.6,3.06
rec 1.7,2.89 2.7,3.39
rec 1.8,3.24 2.8,3.74
rec 1.9,3.61 2.9,4.11
rec 2,4 3,4.5


kết quả hiện trên màn hình

para.jpg

 

Tiếp tục với một ví dụ khác, vẽ dàn cong nhịp L=18m độ vồng h=2.5m, khoảng chia bụng dàn mỗi khoảng 3m

 line 0,0 18000,0 
arc 0,0 9000,2500 18000,0
line 3000,0 3000,1433.3935 6000,0 6000,2240.1862 9000,0 9000,2500
line 9000,0 12000,2240.1862 12000,0 15000,1436.0459 15000,0

kết quả xuất hiện

vom.jpg

 

AE thấy thế nào , phát biểu cảm tưởng coi. Không dùng lisp mà cũng đâu fải nông dân đâu, nói thế thôi chứ cũng chưa đc như lisp đâu, vì nếu lập trình thì cho fép vẽ khi nhịp thay đổi đc còn đây thì ko.... nhưng ai ngó qua chưa biêt mình làm gì mà ra như vậy thì cũng thấy..... choáng rồi :)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Cách này cũng na ná như script nhưng không hoàn toàn vậy. Từ một bài tình cờ đọc được trên Cadviet... nên tôi thử làm theo hưóng này.

Trươc hết lấy một ví dụ:

Vẽ một loạt hình chữ nhật theo cung parabol (vd sưu tầm đc) , để thực hiện chép đoạn text sau vào dòng commandline

 
rec 0,0 1,0.5
rec 0.1,0.01 1.1,0.51
rec 0.2,0.04 1.2,0.54
rec 0.3,0.09 1.3,0.59
rec 0.4,0.16 1.4,0.66
rec 0.5,0.25 1.5,0.75
rec 0.6,0.36 1.6,0.86
rec 0.7,0.49 1.7,0.99
rec 0.8,0.64 1.8,1.14
rec 0.9,0.81 1.9,1.31
rec 1,1 2,1.5
rec 1.1,1.21 2.1,1.71
rec 1.2,1.44 2.2,1.94
rec 1.3,1.69 2.3,2.19
rec 1.4,1.96 2.4,2.46
rec 1.5,2.25 2.5,2.75
rec 1.6,2.56 2.6,3.06
rec 1.7,2.89 2.7,3.39
rec 1.8,3.24 2.8,3.74
rec 1.9,3.61 2.9,4.11
rec 2,4 3,4.5

kết quả hiện trên màn hình

para.jpg

 

Tiếp tục với một ví dụ khác, vẽ dàn cong nhịp L=18m độ vồng h=2.5m, khoảng chia bụng dàn mỗi khoảng 3m

 line 0,0 18000,0 
arc 0,0 9000,2500 18000,0
line 3000,0 3000,1433.3935 6000,0 6000,2240.1862 9000,0 9000,2500
line 9000,0 12000,2240.1862 12000,0 15000,1436.0459 15000,0

kết quả xuất hiện

vom.jpg

 

AE thấy thế nào , phát biểu cảm tưởng coi. Không dùng lisp mà cũng đâu fải nông dân đâu, nói thế thôi chứ cũng chưa đc như lisp đâu, vì nếu lập trình thì cho fép vẽ khi nhịp thay đổi đc còn đây thì ko.... nhưng ai ngó qua chưa biêt mình làm gì mà ra như vậy thì cũng thấy..... choáng rồi :)

Cách này để chơi thì được nhưng nói về hiệu quả thì thua cả lệnh WBLOCK và INSERT nửa. Vì để có mấy dòng này thì là phải tính toán hoặc đo từ hình có sẳn ==========>>>>>>>>> mệt :)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Cách này để chơi thì được nhưng nói về hiệu quả thì thua cả lệnh WBLOCK và INSERT nửa....

 

Còn quá sớm để kết luận ... nó chưa tự động thì cần làm sao cho tự động và hoàn thiện hơn. Hơn nưa, khi xem trên STadd pro dùng để dựng các mẫu dàn thì bên trong code cũng chỉ chứa toàn toạ đô.. trở lại vd trên

với VD 1 mà pick từng điểm chỉ có ngã nón xin chào...

VD 2 là tôi thực hiện với số điểm ít hơn và cũng ở mức độ thực tập nên cũng như duy782006 nói..

 

Xin bật mí nhé Vd1 (tất nhiên như tôi nói là not mine ) là tác đã giả đã làm 1 file excel tính toán và kết quả là bảng toạ độ như vậy đó... Vậy nên sao không thể không thực hiện một cách tự động đc để áp dụng cho truờng hơp có thay đổi dữ liệu đầu vào.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Đây là cách mà dân Xây Dựng có vẻ rất thích dùng. Kết hợp Lisp với Excel (ko phải là trao đổi dữ liệu mà là trao đổi ...lệnh lisp từ ...excel sang lisp. Tôi cũng có xem qua một bảng excel tính toán cao độ hố ga, kết hợp với tính toán khoảng cách, toạ độ rồi ghép thành lệnh lisp vẽ trắc dọc đường ống. Cách này có vẻ rất hiệu quả với những trường hợp cần tính toán nhiều, hay phải thay đổi số liệu. Tôi xin up lên để mọi người tham khảo

FileExcel-Lisp

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Thực ra , ko fức tạp như ví dụ của Snowman vì đây chỉ cần Toán + CAD basic . Mà toán thì excel làm rồi chỉ là đưa ra hướng đi mà thôi.... và chuyển lại thành lệnh chứ ko fải là cấu trúc lisp. Nên tôi thiết nghĩ ai làm cũng được.

dan.jpg

 

Nếu ai quan tâm thì tôi sẽ post file excel tính toán toạ độ lên.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Thực ra , ko fức tạp như ví dụ của Snowman vì đây chỉ cần Toán + CAD basic . Mà toán thì excel làm rồi chỉ là đưa ra hướng đi mà thôi.... và chuyển lại thành lệnh chứ ko fải là cấu trúc lisp. Nên tôi thiết nghĩ ai làm cũng được.

dan.jpg

 

Nếu ai quan tâm thì tôi sẽ post file excel tính toán toạ độ lên.

 

Anh tranchan cho mình file Excel đó đi, mình đang làm thoát nước nên cần lắm! cảm ơn và chúc anh vui khoe!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×