nối điểm lại theo kiểu polyline

[MEDIC_HAT 0]

Em có một bài như sau.

em có một file text bao gồm 2 cột như thế này

1 2

2 3

3 4

......

bây h em muốn hoi có cách nào viết được một lisp nối điểm lại theo kiểu polyline mà không cần load sang excel ko ạ.

Một vấn đề rộng hơn là. Có thể load được dữ liệu từ file text theo kiểu 2 cột để vẽ ko ạ. Em muốn dùng để vẽ cả hình chữ nhật, hình tròn...... Nếu được mong các huynh chỉ giáo.

[Nguyen Hoanh 4670]

Em có một bài như sau.

em có một file text bao gồm 2 cột như thế này

1 2

2 3

3 4

......

bây h em muốn hoi có cách nào viết được một lisp nối điểm lại theo kiểu polyline mà không cần load sang excel ko ạ.

Một vấn đề rộng hơn là. Có thể load được dữ liệu từ file text theo kiểu 2 cột để vẽ ko ạ. Em muốn dùng để vẽ cả hình chữ nhật, hình tròn...... Nếu được mong các huynh chỉ giáo.

Nếu chỉ là nối polyline, bạn không cần lisp.

 

Cách làm như sau:

1. Bạn find and replace dấu cách bằng dấu phẩy (,) để dữ liệu có định dạng

1,2

2,3

3,4

.......

2. Bạn copy toàn bộ nội dung text này vào clipboard

3. Bạn vào AutoCAD, gõ lệnh Pline, rồi paste toàn bộ nội dung text này vào dòng command.

4. Nhấn enter rồi Zoom > E, bạn sẽ nhìn thấy những gì bạn cần.

[Thaistreetz 539]

Nếu chỉ là nối polyline, bạn không cần lisp.

 

Cách làm như sau:

1. Bạn find and replace dấu cách bằng dấu phẩy (,) để dữ liệu có định dạng

1,2

2,3

3,4

.......

2. Bạn copy toàn bộ nội dung text này vào clipboard

3. Bạn vào AutoCAD, gõ lệnh Pline, rồi paste toàn bộ nội dung text này vào dòng command.

4. Nhấn enter rồi Zoom > E, bạn sẽ nhìn thấy những gì bạn cần.

Thú thật là em phải nhìn lời giải của Bác Hoành mới biết được bạn ấy đang yêu cầu cái gì. hóa ra số liệu kia là tọa độ điểm. :s_big:

[MEDIC_HAT 0]

Cảm ơn bác hoành nhiều. Nhưng không thể viết lisp được ạ. vì đó chỉ là một phần trong bài tập của em thôi. Nguyên bản bài tập của em như sau:

Cho số liệu trong file excel. Tính toán.( Cái này em làm được rồi).

Xuất ra file text.

Sử dụng autolisp để vẽ trong cad.

Xuất bản vẽ sang word.

Yêu cầu tự động hoá quá trình tính toán trong excel, và sử dụng autolisp để vẽ. :s_big:

[MEDIC_HAT 0]

không ai giúp em sao. huhu. em sắp phải nộp rồi mà ko ai giúp em sao. Bác hoành giúp em đi.

[TRUNGNGAMY 91]

Cảm ơn bác hoành nhiều. Nhưng không thể viết lisp được ạ. vì đó chỉ là một phần trong bài tập của em thôi. Nguyên bản bài tập của em như sau:

Cho số liệu trong file excel. Tính toán.( Cái này em làm được rồi).

Xuất ra file text.

Sử dụng autolisp để vẽ trong cad.

Xuất bản vẽ sang word.

Yêu cầu tự động hoá quá trình tính toán trong excel, và sử dụng autolisp để vẽ. :s_big:

Mình làm một ví dụ điển hình giúp bạn. Dữ liệu tọa độ là một file text, x và y cách nhau khoảng trắng

(defun c:vetd( / tfile f st td)
 (setq tfile (getfiled "Ten file" "" "txt" 6))
 (if tfile (progn
(setq f (open tfile "r"))
(command "_.pline")
(while (setq st (read-line f))
  (setq td (eval (read (strcat "'(" st ")"))))
  (command td)
)
(close f)
(command "")
 ))
)