lisp tính góc theo chiều kim đồng hồ

[hoangkieu 3]

các a c viết giúp em líp với yêu cầu như sau: ta có 1 đường pline có nhiều góc hợp thành (ảnh minh họa bên dưới). em cần khi đánh lệnh, kích vào pline, chọn điểm đầu, chọn điểm cuối thì lisp sẽ tính cho em từng góc theo chiều kim đồng hồ, theo thứ tự từ điểm đầu đến điểm cuối sau đó xuất sang excel. vd như trên hình vẽ thì điểm 1 là điểm đầu, n là điểm cuối thì em cần các góc 2,3,4,...n-1 theo chiều kim đồng hồ hướng từ 1đến n, hoặc từ n đến 1 tùy vào ta chọn điểm đầu điểm cuối từ lúc ban đầu.

 

http://www.cadviet.com/upfiles/3/131903_cad.rar

[hoangkieu 3]

up lên đi, có ai giúp mình với ko

[Tot77 508]

Bạn nói ngắn gọn quá ai mà hiểu được mà giúp.

[hoangkieu 3]

có anh chị nào ghé ngang giúp em với

 

[hoangkieu 3]

mình cũng đang cần lisp có nội dung như thế này. nếu có cao thủ nào viết giúp thì cho xin thêm 1 tý nũa là có thể tính luôn các cạnh theo thứ tự như trên rồi xuất ra cùng 1 bản excel luôn thi hay wa.hjhjhj

[gia_bach 1.553]

các a c viết giúp em líp với yêu cầu như sau: ta có 1 đường pline có nhiều góc hợp thành (ảnh minh họa bên dưới). em cần khi đánh lệnh, kích vào pline, chọn điểm đầu, chọn điểm cuối thì lisp sẽ tính cho em từng góc theo chiều kim đồng hồ, theo thứ tự từ điểm đầu đến điểm cuối sau đó xuất sang excel. vd như trên hình vẽ thì điểm 1 là điểm đầu, n là điểm cuối thì em cần các góc 2,3,4,...n-1 theo chiều kim đồng hồ hướng từ 1đến n, hoặc từ n đến 1 tùy vào ta chọn điểm đầu điểm cuối từ lúc ban đầu.

http://www.cadviet.com/upfiles/3/131903_cad.rar

Chạy thử Lisp này xem sao : http://www.cadviet.com/upfiles/3/15454_angleclockwisepolyline.zip

[hoangkieu 3]

cam on anh gia_bach da quan tam, anh cho em hoi ty, em douwload ve nhung em load len cad ko dc, anh co cach nao giup em voi

[whatcholingon 45]

Chạy thử Lisp này xem sao : http://www.cadviet.com/upfiles/3/15454_angleclockwisepolyline.zip

Lisp chạy tốt. nếu có thể xuất các góc ra bảng trên cad, hay ra file text nữa thì tuyệt.

Thanks!

[ahuy_ts 1]

sao em load cad không hiểu nhỉ, có bác nào chỉ em với

 

[ahuy_ts 1]

em load dc nhưng khi đánh lệnh ATP em kick vào đường pline thì ko hiển thị gì hết, vậy là sao có cao thủ nào chỉ em, hoặc có thể viết lại giúp em với, em đang rất cần lisp này. xin cảm ơn

 

[whatcholingon 45]

bạn load lisp xong, gõ lênh ATP  rồi pick vào đường LWPOLYLINE.

nếu là đường POLYLINE thì không được nhé.

để chuyển đường POLYNINE thành LWPOLYLINE thì bạn làm như sau:

cách 1: gõ lệnh PLINETYPE để là 1.

sau đó EXPLODE đường PL đó ra, rồi dùng lệnh PE nối lại.

cách 2: tìm trên diễn đàn LSP chuyển POLYLINE sang LWPOLYLINE.

Chúc bạn thành công.

[hoangkieu 3]

thank a nhiều nhiều

[ahuy_ts 1]

anh gia_bach có thể giúp em viết thêm cho xuất ra excel ko anh. thank anh

[Tue_NV 3.912]

bạn load lisp xong, gõ lênh ATP  rồi pick vào đường LWPOLYLINE.

nếu là đường POLYLINE thì không được nhé.

để chuyển đường POLYNINE thành LWPOLYLINE thì bạn làm như sau:

cách 1: gõ lệnh PLINETYPE để là 1.

sau đó EXPLODE đường PL đó ra, rồi dùng lệnh PE nối lại.

cách 2: tìm trên diễn đàn LSP chuyển POLYLINE sang LWPOLYLINE.

Chúc bạn thành công.

 

Sao ban không sử dụng lệnh CONVERT ?

[gia_bach 1.553]

Update thêm tùy chọn xuất file CSV : http://www.cadviet.com/upfiles/3/15454_angleclockwisepolyline_1.zip

- kích thước lấy theo DimStyle hiện hành

- ch/cao Text lấy theo biến hệ thống TextSize

- định dạng chiều dài và số đo góc theo Format-> Units... :

 

[whatcholingon 45]

Update thêm tùy chọn xuất file CSV : http://www.cadviet.com/upfiles/3/15454_angleclockwisepolyline_1.zip

- kích thước lấy theo DimStyle hiện hành

- ch/cao Text lấy theo biến hệ thống TextSize

- định dạng chiều dài và số đo góc theo Format-> Units... :

Khi xuất ra file CSV thì cạnh và góc nó dính liền nhau, bạn gia bach có thể bổ sung thêm cạnh và góc được ngăn cách bằng dấu cách or dấu Tab được không ạ,

Thanks!

[Doan Van Ha 3.202]

Khi xuất ra file CSV thì cạnh và góc nó dính liền nhau, bạn gia bach có thể bổ sung thêm cạnh và góc được ngăn cách bằng dấu cách or dấu Tab được không ạ,

Thanks!

Có lẽ do định dạng dấu thập phân là dấy phẩy?

[whatcholingon 45]

Có lẽ do định dạng dấu thập phân là dấy phẩy?

Khi mình mở trên notebad thì vẫn dính liền nhau. Không có dấu phẩy ngăn cách bạn ạ.

[Doan Van Ha 3.202]

Khi mình mở trên notebad thì vẫn dính liền nhau. Không có dấu phẩy ngăn cách bạn ạ.

Dòm code thì hình như là thiếu dấu phẩy rồi. Chắc phải chờ sửa thôi.

[gia_bach 1.553]

Khi xuất ra file CSV thì cạnh và góc nó dính liền nhau, bạn gia bach có thể bổ sung thêm cạnh và góc được ngăn cách bằng dấu cách or dấu Tab được không ạ,

Thanks!

File CSV đang dùng kí tự Tab để ngăn cách hai giá trị.

[Doan Van Ha 3.202]

File CSV đang dùng kí tự Tab để ngăn cách hai giá trị.

CSV thì ngăn cách bằng dấu phẩy chứ nhỉ? Tôi test cũng thấy nó liền nhau, không có khoảng hở nào trơn.

[Tue_NV 3.912]

CSV thì ngăn cách bằng dấu phẩy chứ nhỉ? Tôi test cũng thấy nó liền nhau, không có khoảng hở nào trơn.

 

Bác có thể dùng chức năng Text To Columns của Excel để chia cột ngăn cách bằng TAB

[whatcholingon 45]

Bác có thể dùng chức năng Text To Columns của Excel để chia cột ngăn cách bằng TAB

cách này hay thật. trước kia khi gặp phải trường hợp như vậy mình cứ phải mở file trên notebad để copy rồi dán lại qua excel.

Thanks! (từ giờ tiết kiệm được vài giây rồi)

[gia_bach 1.553]

CSV thì ngăn cách bằng dấu phẩy chứ nhỉ? Tôi test cũng thấy nó liền nhau, không có khoảng hở nào trơn.

Bác dùng Lisp đoc file CSV là thấy kí tự "\t" mà.

 

Tùy thuộc qui định của mỗi quốc gia, có thể sử dụng dấu phấy-chấm phẩy-tab-khoảng trắng, ... để làm kí tự ngăn cách.

 

Vào Control Panel-> Regional Settings -> (tùy hệ điều hành) thay đổi List Separator cho phù hợp.

[Doan Van Ha 3.202]

Vâng, đã thấy. Thank 2 bác.