Lisp nối Line thành Pline ?

[conghoa 123]

Bạn đã thử thật chưa?

 

[HAIR 0]

cám ơn bạn conghoa n. Đúng là phải thay đổi cách nhìn một việc theo cách cũ.

[HAIR 0]

Thật ra trường hợp của mình khá phức tạp. Theo cách của bạn conghoa vẫn không được vì còn có nhiều đường khác nữa. Bạn xem giúp mình:

http://www.cadviet.com/upfiles/4/137702_drawing1_1.dwg

[conghoa 123]

lisp ẩn hiện đối tương bạn vào http://www.cadviet.com/forum/topic/279-da-xong-lisp-hide-show-object/ 

tên lệnh bạn tự chỉnh sửa cho hợp

 

[HAIR 0]

Cảm ơn bác conghoa

[phamthe 1]

Cái này tương đối dễ

Command : _.PSELECT

Bạn chọn tất cả các đối tượng LINE, POLYLINE, LWPOLYLINE, ARC cần chuyển về 1 mặt phẳng

Nếu quá nhiều dối ttượng khác nhau thì sủ dụng bộ lọc

Trên hộp thoại chuyển toàn bộ hệ tọa độ Z của đối tượng về 0

Sau đó sủ dụng lệnh lisp này xem thử (nếu điểm đầu cà cuối của 2 đối tượng trùng nhau)

 

(defun c:nh (/)
(setvar "cmdecho" 0)
(setq a (car (entsel "\nChon duong can nhom : ")))
(setq ss (ssget "x" (list (assoc 8 (entget a)))))
(if ss
(progn
(setq name (cdr (assoc 0 (entget a))))
(cond
((= name "LINE") (command "pedit" a "" "j" ss "" ""))
((= name "ARC") (command "pedit" a "" "j" ss "" ""))
((= name "POLYLINE") (command "pedit" a "j" ss "" ""))
((= name "LWPOLYLINE") (command "pedit" a "j" ss "" ""))
)
)
)
)

nhờ các bác giúp em cho thêm vòng lặp để nối xong layer này thì chọn tiếp layer khác để nối, khi nào xong thì enter để kết thúc. cảm ơn các bác!

[Lê Sỹ Vũ 0]

Chào các anh! Hiện tại em có 1 cái bình đồ với các đường đồng mức bị đứt đoạn, em đã sử dụng một số lisp mà các anh cho nhưng do khối lượng đường đồng mức quá nhiều nên load không được. Vậy các anh cho em hỏi có cách gì để nối các đường đồng mức thành pl hiệu quả không ạ? (Các đường đồng mức không có cao độ ạ)