1. Em là member đang tập tành viết lisp thôi ạ, không phải là cao thủ gì cả.
2. Nếu về mặt ý tưởng thì theo em, lấy góc đầu góc cuối, và bán kính, tâm ( các mã dxf) sau đó dùng lệnh polar là tìm ra điểm giữa ngay ạ
3. Không biết là anh muốn xuất kết quả ra như thế nào, nên em tạm thời alert nó ra vậy

1. Em là member đang tập tành viết lisp thôi ạ, không phải là cao thủ gì cả.
2. Nếu về mặt ý tưởng thì theo em, lấy góc đầu góc cuối, và bán kính, tâm ( các mã dxf) sau đó dùng lệnh polar là tìm ra điểm giữa ngay ạ
3. Không biết là anh muốn xuất kết quả ra như thế nào, nên em tạm thời alert nó ra vậy
3. Em trả lời luôn ở đây ạ, không contact qua mail nữa. Forum public mà anh

trích dẫn tomboy
chịu thua, chưa 1 lisp nào có thể tẩy được layer của bản vẽ mà thuộc tính của Block được giữ nguyên, nói chung bạn phải định nghĩa lại block của bạn bằng phương pháp thủ công trước khi bạn sử dụng lệnh dlay của bạn
bạn có chắc dùng lisp để tẩy hết các layer thừa trong bản vẽ trong khi các blocl của bản vẽ đó vẫn giữ nguyên thuộc tính được không?

>>

trích dẫn tomboy
chịu thua, chưa 1 lisp nào có thể tẩy được layer của bản vẽ mà thuộc tính của Block được giữ nguyên, nói chung bạn phải định nghĩa lại block của bạn bằng phương pháp thủ công trước khi bạn sử dụng lệnh dlay của bạn
bạn có chắc dùng lisp để tẩy hết các layer thừa trong bản vẽ trong khi các blocl của bản vẽ đó vẫn giữ nguyên thuộc tính được không?

bác ơi bác dùng thử lisp này xem




hehe em lại tạm chế được rồi
lisp clear.lsp của pro ketxu em lock những layer ko cần chuyển
sau đó chạy lisp
những layer lock sẽ không bị chuyển
kakaka
em rất cám ơn các pro đã nhiệt tình giúp thành viên amater như em
bác nào không giúp thì em lại tìm cách tạm chế
bằng cách không hiểu về lập trình nhưng em copy các dòng lisp các pro viết sẵn để chế với nhau
không thành công cũng thành nhân vậy

Em đã sửa lại cái lisp trên như sau:

Các vấn đề đã giải quyết được:

1. Đã xử lý được với các đỉnh của lines
2. Không còn vướng mắc ở các đỉnh của polyline trùng nhau (polyline đi qua 1 điểm 2 lần) vì đã có phương loại các đỉnh bị lặp
3. Cho phép chọn một lúc nhiều line và polyline (co như 1 tổ hợp đường)
4. Ghi vào file .txt dưới dạng:

>>

Em đã sửa lại cái lisp trên như sau:

Các vấn đề đã giải quyết được:

1. Đã xử lý được với các đỉnh của lines
2. Không còn vướng mắc ở các đỉnh của polyline trùng nhau (polyline đi qua 1 điểm 2 lần) vì đã có phương loại các đỉnh bị lặp
3. Cho phép chọn một lúc nhiều line và polyline (co như 1 tổ hợp đường)
4. Ghi vào file .txt dưới dạng:
http://i244.photobucket.com/albums/gg18/vinhanh_hn/1-21.jpg

Các vấn đề còn tồn tại:

1. Khi ghi dữ liệu vào file .txt không hiểu tại sao TAB sau Y không hoạt động, nghĩa là khoảng cách từ tọa độ Y đến tọa độ Z không bằng 1TAB. Ngoài ra ở các điểm C và D, tọa độ X và Y cũng không cách nhau đúng 1 TAB?

2. Chưa giải quyết cho trường hợp số đỉnh nhiều hơn tên đỉnh

Sau đây là lisp:


Mong mọi người cho ý kiến!

Đây là file kết quả của các đường lines trong file cad mà chủ topic đã upload lên:
http://www.cadviet.com/upfiles/3/result.txt