Xin lisp vẽ đường polyline đến các block

[Xin lisp vẽ đường polyline đến các block]

6 giờ trước, cuongtk2 đã nói:

https://youtu.be/q0tlHU0HKUg

Như vậy đúng không?

File ở đây: https://drive.google.com/file/d/1gLjOvX2MIIzElBXi3xZwU1A25P0RL4qu/view?usp=sharing

ui quá tuyệt vời e cảm ơn bác nhiều ạ

 

[Xin lisp vẽ đường polyline đến các block]

Bài toán của e thì phương án ntn anh ạ.

1. Polyline gốc e sẽ vẽ sẵn, là đường thẳng hết, không có cong, chỉ có gấp khúc thôi.

2. Điểm xuất phát sẽ là 1 đầu của polyline, chọn 1 trong 2 đầu ạ.

Anh xem giúp e với ạ, em cảm ơn ạ

 

[Xin lisp vẽ đường polyline đến các block]

24 phút trước, cuongtk2 đã nói:

Bạn vẽ để tính chiều dài đường ống phải không?

đúng r anh, e vẽ từng line từ 1 vị trí, đến block kia để tính chiều dài ống

[Xin lisp vẽ đường polyline đến các block]

42 phút trước, cuongtk2 đã nói:

;; thay doi layer "newlay"
(defun c:giongline1 ( / PL POS PP SS )
  (setq pl (vlax-ename->vla-object (car (entsel "\nPick polyline"))))
  (setq ss (ACET-SS-TO-LIST (ssget '(( 0 . "INSERT"))))
        )
  (foreach ent ss
    (setq pos (acet-dxf 10 (entget ent))
          pp (vlax-curve-getClosestPointTo pl pos nil)
          )
    (entmake (list (cons 0 "LINE")
                   (cons 10 pos)
                   (cons 11 pp)
                   (cons 8  "newlay")
                   )
             )
    )
  )

 

Thank bác, cơ mà cái này chưa đúng ý em lắm, em muốn vẽ 1 polyline giống như polyline này. điểm bắt đầu chọn ở 1 điểm và vẽ polyline theo đường gốc, đến vị trí block thì nối tiếp vào ấy ạ.

[Xin lisp vẽ đường polyline đến các block]

Nhờ các bác, e có bản vẽ như hình. Em muốn xin lisp như sau. chọn 1 polyline gốc màu trắng, sau đó chọn các block để nối. lisp vẽ đường polyline theo đường gốc đến từng block đã chọn theo hướng của đường mẫu e cảm ơn ạ

Drawing1.dwg