None lisp nhưng cũng vẽ automatic

[tranchan 98]

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

 

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

 

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 :)

[duy782006 1.551]

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

 

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

 

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 :)

[tranchan 98]

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.

[Snowman 92]

Đâ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

[tranchan 98]

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.

 

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

[toan2658 0]

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.

 

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!