Hỏi cách lấy dữ liệu của đường polyline

[haimed 2]

Các bác cho mình hỏi cách lấy dữ liệu của đường polyline với: 1 đường polyline có rất nhiều đỉnh, nếu muốn lấy tọa độ của 1 đỉnh nào đó thì làm thế nào vì các đỉnh của polyline đều đc gán giá trị ...(10 x y) ...(10 x1 y1)

[Nguyen Hoanh 4.663]

Các bác cho mình hỏi cách lấy dữ liệu của đường polyline với: 1 đường polyline có rất nhiều đỉnh, nếu muốn lấy tọa độ của 1 đỉnh nào đó thì làm thế nào vì các đỉnh của polyline đều đc gán giá trị ...(10 x y) ...(10 x1 y1)

Đầu tiên bạn lọc để lấy list các đỉnh. Sau đó bạn dùng hàm nth để lấy phần tử thứ i của list.

 

Đoạn code sau đây sẽ lọc ra các đỉnh và gán biến dinh1 cho tọa độ đỉnh đầu tiên:

 (setq tt (entget (car (entsel "\nPick pline: ")))) ;; Lấy thông tin đối tượng
 (setq tt (vl-remove-if '(lambda (x) (/= 10 (car x))) tt)) ;; Loại các phần tử list không mang dữ liệu đỉnh
 (setq dinh1 (cdr (nth 0 tt))) ;; gán biến dinh1 cho tọa độ đầu tiên

[haimed 2]

Thank pac Hoanh, autolisp thật khó sử dụng nếu ko biết hết các hàm của nó

[Nguyen Hoanh 4.663]

Thank pac Hoanh, autolisp thật khó sử dụng nếu ko biết hết các hàm của nó

Ngôn ngữ nói chung là vậy, bất kể là ngôn ngữ lập trình hay tiếng Anh, tiếng Pháp. Bạn khó mà dùng được khi bạn không giàu từ vựng.

[ndtnv 481]

Tổng quát hơn trong trường hợp Polyline không nằm trong mặt phẳng xoy thì dùng hàm vlax-curve-getPointAtParam

(defun getVert (e / i L) 
(setq i -1 L nil)
(repeat (fix (1+ (vlax-curve-getEndParam e) ))
	(setq  i (1+ i) L (append L (list (vlax-curve-getPointAtParam e i))))
)
)
Test:
(getvert (car (entsel "\nHay chon duong polyline ")))

Trường hợp đường polyline là closed thì hàm trên sẽ cho đỉnh cuối trùng với đỉnh đầu

[haimed 2]

Tổng quát hơn trong trường hợp Polyline không nằm trong mặt phẳng xoy thì dùng hàm vlax-curve-getPointAtParam

(defun getVert (e / i L) 
(setq i -1 L nil)
(repeat (fix (1+ (vlax-curve-getEndParam e) ))
	(setq  i (1+ i) L (append L (list (vlax-curve-getPointAtParam e i))))
)
)
Test:
(getvert (car (entsel "\nHay chon duong polyline ")))

Trường hợp đường polyline là closed thì hàm trên sẽ cho đỉnh cuối trùng với đỉnh đầu

 

ndtnv cho mình hỏi toàn bị báo lỗi: no function definition: VLAX-CURVE-GETENDPARAM , sao nó lại ko nhận hàm VLAX-CURVE-GETENDPARAM

[ssg 1.102]

ndtnv cho mình hỏi toàn bị báo lỗi: no function definition: VLAX-CURVE-GETENDPARAM , sao nó lại ko nhận hàm VLAX-CURVE-GETENDPARAM

Trước khi dùng các functions dạng VLAX..., bạn phải gọi (vl-load-com), và chỉ cần 1 lần trong bản vẽ đang mở.

[haimed 2]

Thanks ssg, mình noob wa, cám ơn các bạn đã chỉ giáo