Nhờ viết lisp tạo khung in bình đồ dạng tuyến

[hotanphi 0]

Xin chào diễn đàn. Em có tìm hiểu diễn đàn có các lisp vè tạo khung bình đồ nhưng chưa được như ý. Mong nhờ anh em diễn đàn viết giúp em lisp tạo khung in bên layout từ model.

1. Bên model có bình đồ dạng tuyến và có các khung polyline. Mong muốn của em là tạo lisp với dòng lệnh TVP (hoặc lệnh bất kỳ) sau đó nhấp vào các khung ployline bên model sẽ tạo các viewporst đúng tỷ lệ bên layout. Các viewporst này nằm trên cùng một layout và cách nhau một khoảng bất kỳ.

2. Bên model các khung polyline này có góc xoay bất kỳ nhưng khi tạo viewporst bên layout phải nằm ngang để áp khung tên vào không phải xoay bên viewporst nữa. Tức là 2 đầu của mặt cắt tiếp giáp phải nằm trong một khung tên cố định để dễ áp khung.

3. Khung viewporst tạo ra phải trùng với khung polyline bên model.

4. Lisp sẽ thể hiện dòng lệnh nhắc tỷ lệ, muốn tỷ lệ bao nhiêu nhập bấy nhiêu: Ví dụ Nếu muốn tỷ lệ 1/1000 thì mình nhập 1/1000 trên dòng command.

Rất mong được anh em giúp đỡ.

Mình có tìm trên diễn đàn nhưng không như ý muốn mà khong biết nhờ sửa như thế nào nên nhờ anh em ai tìm thấy link có lisp như trên nhờ chỉ giúp.

Xin cảm ơn mọi người.

Đây là file đính kèm mình cần làm (ở đây mình đã làm thủ công)

http://www.cadviet.com/upfiles/3/104866_binh_do_tuyen.dwg

[cd2k44 123]

Bạn có thể sử dụng ứng dụng này của anh Hưng

https://sites.google.com/site/doanduyhung/taoviewport

[hotanphi 0]

Xin cảm ơn bạn. Cho mình hỏi Ứng dụng này nếu khung in bên model là polyline như bản vẽ mình gửi thì ko sử dụng được đúng ko bạn.

Hơn nữa bên model do tuyến không nằm trên phương ngang hoàn toàn mà xoay một góc nhưng mình muốn qua layout thì bản vẽ sẽ nằm ngang và các khung in đều nằm ngang (mình làm thủ công thì tạo viewporst sau đó sử dụng chức năng UCS một góc để đưa khung in giới hạn giawux 02 mặt cắt về nằm ngang.

Mong các anh chị giỏi về autolisp hay VBA giúp đỡ

[Tot77 508]

Sao bạn không làm viewport hình chữ nhật mà lại là polygon, biết xoay thế nào cho nó khớp với khung in.

[thanhduan2407 272]

Ý bạn là như thế này phải không?

https://www.youtube.com/watch?v=oWMNNztIaps&feature=youtu.be

 

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

 

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

[hotanphi 0]

Sao bạn không làm viewport hình chữ nhật mà lại là polygon, biết xoay thế nào cho nó khớp với khung in.

 

 

Sao bạn không làm viewport hình chữ nhật mà lại là polygon, biết xoay thế nào cho nó khớp với khung in.

Mình tạo viewport là polyline vì đối với đường miền núi tuyến rất ngoằn nghèo hơn nữa mình muốn tạo mặt cắt giữa các bản vẽ và ghi chú cọc tiếp giáp, lý trình (theo như file mình upload ở trên. Như vậy sẽ khoa học hơn à đáp ứng yêu cầu của một số chủ đầu tư.

 Khi viewport là polyline (hìh chữ nhật có nhiều điểm nút) thì khi đó bạn kéo các điểm nút để tọa ứng với vị trí đường tiếp giáp.

Đây là hình minh họa

 

Rất mong mọi người xem xét viết giúp. Xin cảm ơn cả nhà.

[cd2k44 123]

Mình làm trên file của bạn với ứng dụng trên. Kết quả như trong file mình gửi lại bạnhttp://www.cadviet.com/upfiles/3/19194_104866_binh_do_tuyen.dwg

 

 

Mình tạo viewport là polyline vì đối với đường miền núi tuyến rất ngoằn nghèo hơn nữa mình muốn tạo mặt cắt giữa các bản vẽ và ghi chú cọc tiếp giáp, lý trình (theo như file mình upload ở trên. Như vậy sẽ khoa học hơn à đáp ứng yêu cầu của một số chủ đầu tư.
 Khi viewport là polyline (hìh chữ nhật có nhiều điểm nút) thì khi đó bạn kéo các điểm nút để tọa ứng với vị trí đường tiếp giáp.

Đây là hình minh họa

 

Rất mong mọi người xem xét viết giúp. Xin cảm ơn cả nhà.

[hotanphi 0]

Mình xin cảm ơn bạn cd2k44 đã giúp

Mình xin nói rõ hơn tí. Nếu như làm theo hình bạn gửi cho mình thì không thể hiện được như hình mình dưới đây. (Sau khi đã ẩn khung viewport)

 

 

Khi mình ẩn khung viewport thì hình sẽ hiện ra mặt cắt tiếp giáp như hình.

 

Nếu như file bạn gửi mình áp khung sau đó kéo viewport thì tên cọc tại vị trí tiếp giáp (ở đẩy là cọc 26 và cọc 43) không thể hiện được mà nó bị khuất mất còn nếu muốn hiện thì nó còn hiển thị 2 đầu của trang trước và trang sau.

 

[cd2k44 123]

Về nguyên tắc trình bày bạn vẽ. Yêu cầu của bạn đặt ra là khung VP vuông góc tim tuyến. Còn của mình thì không cẩn dảm bảo yêu cầu đó. Nên của mình chưa đáp ứng được yêu cầu của bạn. Có lẽ đành nhờ các cao thủ khác trợ giúp cho bạn.

 Còn bạn có thể làm thủ công như sau: các VP của mình là các Pline nên bạn cầm kéo các cạnh Pl VP này vuông góc tim tuyến là được. Về việc chồng lấn các VP bạn cứ thử tải ứng dụng trên về và xem video hướng dẫn là khắc phục được

[taybacincc 5]

Anh Thành Duân có lisp hay quá. Nếu được a chia sẻ cho ae mở rộng tầm mắt với ạ ?

[tientracdia 16]

 

Ý bạn là như thế này phải không?

https://www.youtube.com/watch?v=oWMNNztIaps&feature=youtu.be

 

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

 

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Lisp hay, mong được chia sẻ.

thanks

[hung_xu20032000 2]

 

Ý bạn là như thế này phải không?

https://www.youtube.com/watch?v=oWMNNztIaps&feature=youtu.be

 

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

 

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Sau khi sắp xếp khung bản vẽ trong Model thì tiến hành vẽ 1 Pline nối 2 điểm của cạnh đáy khung.

Lisp sẽ tiến hành chạy theo từng cặp đỉnh Pline cho đến hết.

Thao tác:

Gõ lệnh SXK => Kích chọn Pline vừa vẽ => nhập chiều cao khung bản vẽ hoặc kích chọn trực tiếp trên bản vẽ chiều cao của khung => Lúc này sẽ nhảy sang không gian Layout => Kích chọn điểm đặt khung => Chờ kết quả.

Cho mình xin cái lisp đi

[thanhduan2407 272]

:)

 

[trangnhung 3]

Bác hướng dẫn cụ thể đc ko, e chẳng biết làm sao cả

[sam8xd 47]