Giúp đỡ về lisp nối các đoạn thẳng, đường thẳng với nhau

[Lâm Vũ 0]

Em chào các bác ạ. Chả là em có Down được 1 lisp nối các line, poline với nhau. Nhưng em đang gặp vấn đề là có 3 đường thằng khác nhau nhưng em chỉ muốn nối 2 thằng đầu với nhau thôi nhưng khi dùng lisp thì quét chọn 2 cái đầu thì nó lại nối cả 3 đường đấy với nhau. Hoặc chỉ cần chọn vào 1 đường thẳng bất kỳ thì cũng nó cũng nối cả 3 ạ. Giờ em muốn chọn vào thằng nào thì thằng đấy nối lại thôi ạ, bằng 2 hình thức quét hoặc chọn từng đối tượng. Em xin cám ơn ạ. Chúc các bác thật nhiều sức khỏe.

11. Noi Line thanh Pline - NN.LSP

Sua Lisp NN.dwg

[conghoa 122]

http://www.lee-mac.com/lisp/PolyToolsV1-0.lsp

 

Bạn dùng cái này nhé, lệnh Pj sẽ đáp ứng yêu cầu của bạn.

[Lâm Vũ 0]

6 phút trước, conghoa đã nói:

http://www.lee-mac.com/lisp/PolyToolsV1-0.lsp

 

Bạn dùng cái này nhé, lệnh Pj sẽ đáp ứng yêu cầu của bạn.

Cái này chỉ áp dụng được với Line, polyline, arc thôi bác ạ, đường kia của e là 2d polyline thì lisp lại không dùng được. 

[conghoa 122]

14 phút trước, Lâm Vũ đã nói:

Cái này chỉ áp dụng được với Line, polyline, arc thôi bác ạ, đường kia của e là 2d polyline thì lisp lại không dùng được. 

Sau khi dùng lisp của bạn thì đường được nối cũng chuyển về polyline nên trước khi dùng lisp Pj bạn dùng lệnh Convert để chuyển toàn bộ 2D Polyline thành polyline :D 

[Lâm Vũ 0]

23 phút trước, conghoa đã nói:

Sau khi dùng lisp của bạn thì đường được nối cũng chuyển về polyline nên trước khi dùng lisp Pj bạn dùng lệnh Convert để chuyển toàn bộ 2D Polyline thành polyline :D 

Cám ơn bác. Nhưng lisp bên trên của em down được thì nó không mất công chuyển 1 lần nữa, mà dùng được luôn. Em chuyển nhiều mà làm như vậy thì hơi lâu.

[huunhantvxdts 195]

5 giờ trước, Lâm Vũ đã nói:

Em chào các bác ạ. Chả là em có Down được 1 lisp nối các line, poline với nhau. Nhưng em đang gặp vấn đề là có 3 đường thằng khác nhau nhưng em chỉ muốn nối 2 thằng đầu với nhau thôi nhưng khi dùng lisp thì quét chọn 2 cái đầu thì nó lại nối cả 3 đường đấy với nhau. Hoặc chỉ cần chọn vào 1 đường thẳng bất kỳ thì cũng nó cũng nối cả 3 ạ. Giờ em muốn chọn vào thằng nào thì thằng đấy nối lại thôi ạ, bằng 2 hình thức quét hoặc chọn từng đối tượng. Em xin cám ơn ạ. Chúc các bác thật nhiều sức khỏe.

11. Noi Line thanh Pline - NN.LSP

Sua Lisp NN.dwg

Đây bạn nhé, cái này lấy của bạn ketxu sửa lại tí cho nó nhận 2d polyline

(defun C:noi ( / c l o )
;Ketxu 9-2012
;Join objects
    (if (setq s (ssget "_:L" '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
        (progn
            (setq o (mapcar 'getvar (setq l '("peditaccept" "cmdecho"))))
            (mapcar 'setvar l '(1 0))            
            (command "_.pedit" "_M" s "" "_J" "" "")
            (mapcar 'setvar l o)
        )
    )
    (princ)
)

 

[Lâm Vũ 0]

11 giờ trước, huunhantvxdts đã nói:

Đây bạn nhé, cái này lấy của bạn ketxu sửa lại tí cho nó nhận 2d polyline

(defun C:noi ( / c l o )
;Ketxu 9-2012
;Join objects
    (if (setq s (ssget "_:L" '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
        (progn
            (setq o (mapcar 'getvar (setq l '("peditaccept" "cmdecho"))))
            (mapcar 'setvar l '(1 0))            
            (command "_.pedit" "_M" s "" "_J" "" "")
            (mapcar 'setvar l o)
        )
    )
    (princ)
)

 

Đúng ý em rồi ạ. Cám ơn bác ạ. Chúc bác thật nhiều sức khỏe!