xin trợ giúp về offset, chamfer, fitllet

[hmt 10]

DEAR ALL !

 Hiện e có 1 vấn đề muốn nhờ viết hộ e 1 lisp , đó là lisp về ofset 2 bên và lisp chamfer  và fillet gói gọn trong 1 lisp.

e có mọ được 1 lisp ofset 2 bên là lisp này của bác KangKung :

http://www.cadviet.com/upfiles/4/48377_lg12_lg13_2.lsp

Nhưng lisp này lại chỉ offset cố định với 1 khoảng cách chốt trong lisp là đường 12m và đường 13m. Nhờ a điều chỉnh lại lisp theo hướng sau ạ:

- gõ lệnh OFTIM thì lisp hỏi

    + bề rộng mặt đường B=b hiểu là 1/2 mặt đường tính từ tim ra đến mép bó vỉa (nhập tay vào)

    + bề rộng hè C=c (nhập tay vào) và lisp lưu giá trị này để k phải nhập lại nếu cần vẽ đoạn khác có kick thước giống vậy.

lisp tự động offset đường (line,polyline,spline...) đã vẽ sẵn sang 2 bên và tạo luôn 2 layer mới là :"GT_mepduong","GT_mephe" ,

Trong đó :- Đường có layer "GT_mepduong" cách layer "GT_timduong" 1 khoảng B=b. 

                - Đường có layer "GT_mephe" cách layer "GT_mepduong" 1 khoảng cách là C=c

Gõ lệnh "Vatgoc" lisp sẽ hỏi :

     + Chiều dài vát góc D=d(nhập tay giá trị vát góc và lisp ghi nhớ giá trị này khi không cần thay đổi)

Khi nhập xong chiều dài vát góc D lisp cho phép quét 1 lúc nhiều đối tượng là ((line,polyline,spline...) có trên bản vẽ nhưng chỉ vát góc đối với layer"GT_mephe" và có thể vát góc tại tất cả vị trí nút giao thông mà mình quét cùng 1 lúc

Tương tự cho fillet khi gõ lệnh" vattron" thì lisp hỏi :

     + bán kính cung tròn:R=r? (nhập tay) sau đó cũng cho phép quét được toàn bộ đối tượng trên bản vẽ và chỉ Fillet những layer"GT_mepduong"

Bản vẽ mẫu:

http://www.cadviet.com/upfiles/4/48377_vd2_2.dwg

Thanks mọi người :D

 

[hmt 10]

k biết có ai đã nghiên cứu hộ chưa nhỉ ? ....

[hmt 10]

:) vẫn chưa có ai giúp mình :( hic 

[hmt 10]

:) chủ đề lâu rồi , chưa ai giúp mình vụ này nhỉ :)

[anti lazy 28]

Bạn đã là thành viên gần 6 năm rồi, nếu chịu khó học thì chậm lắm cũng chỉ khoảng 2 tuần thì viết được các yêu cầu đầu.

Riêng 2 yêu cầu sau phức tạp hơn, nếu bạn sửa 2 phần đầu và đưa code lên may ra có người góp ý thuật toán.

Nếu muốn giúp hoàn toàn mà bạn không chịu viết tí nào thì e là chờ thêm 6 tháng cũng không biết có ai giúp không.

Cách khác nhanh hơn là dùng phần mềm USD, với yêu cầu này thì chắc khoảng $20 là có người viết mặc dù số USD đó có thể không đủ công viết.

[hmt 10]

Bạn đã là thành viên gần 6 năm rồi, nếu chịu khó học thì chậm lắm cũng chỉ khoảng 2 tuần thì viết được các yêu cầu đầu.

Riêng 2 yêu cầu sau phức tạp hơn, nếu bạn sửa 2 phần đầu và đưa code lên may ra có người góp ý thuật toán.

Nếu muốn giúp hoàn toàn mà bạn không chịu viết tí nào thì e là chờ thêm 6 tháng cũng không biết có ai giúp không.

Cách khác nhanh hơn là dùng phần mềm USD, với yêu cầu này thì chắc khoảng $20 là có người viết mặc dù số USD đó có thể không đủ công viết.

6 năm 1 chặng đường nhưng nhiều hướng đi bác ạ.