NHỜ VIẾT LISP

[Vũ Hưng 1310 0]

Chào các bác. tình hình là em cần 1 lisp nỗi nhanh các đoan thẳng  trong Cad mà loai hoay mãi không làm được.

Nhờ các cao nhân giúp đỡ ạ. Yêu cầu của em là: Chọn các đoạn thẳng sau đó nối chúng lại tại 1 điểm giao nhau ạ

 

[limfx 19]

Bạn dùng lệnh FILLET với R =0 thôi, ko cần lisp đâu

[Vũ Hưng 1310 0]

Vâng nhưng em muốn nó thực làm đồng loạt ấy ạ. ví dụ bản vẽ có rất nhiều đường như thế fillet phải chọn từng đoạn ạ

 

[Vũ Hưng 1310 0]

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

Bạn dùng lệnh FILLET với R =0 thôi, ko cần lisp đâu

Ví dụ thế này ạ, Em muốn nối chúng lại bằng 1 lần quét chọn. BV của em nó nhiều lắm ạ

 

[limfx 19]

Nét line or pline

[cuongtk2 336]

Đọc cái này

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/polyline-join-tolerance/td-p/828992

[Vũ Hưng 1310 0]

16 giờ trước, limfx đã nói:

Nét line or pline

Cả line và Pline ạ

[tannguyen291 128]

Bạn dùng thử cái này nhé. viết nhanh chất lượng thấp nhưng hiệu quả khá tốt.

B1 thứ nhất chọn các đường dọc

B2 chọn các đường ngang

Lệnh FA và chỉ dùng với line thôi nhé. bạn x hết các đường pline ra.

 

(defun c:FA (/ ss1 ss2 ent p1 p2 lstxl lstpt1 lstpt2)

  (setq

    ss1 (acet-ss-to-list (ssget '((0 . "LINE"))))

    ss2 (acet-ss-to-list (ssget '((0 . "LINE"))))

  )

  (foreach item ss1

    (setq

      ent (entget item)

      p1 (cdr (assoc 10 ent))

      p2 (cdr (assoc 11 ent))

      lstpt1 (append lstpt1 (list p1 p2))

    )

    (vl-cmdf "XLINE" p1 p2 "")

    (setq lstxl (cons (entlast) lstxl))

  )

  (foreach item ss2

    (setq

      ent (entget item)

      lstpt2 (cons (cdr (assoc 10 ent)) lstpt2)

      lstpt2 (cons (cdr (assoc 11 ent)) lstpt2)

    )

  )

  (apply 'vl-cmdf (append '("extend") lstxl '("") lstpt2 '("")))

  (mapcar 'entdel lstxl)

  (apply 'vl-cmdf (append '("extend") ss2 '("") lstpt1 '("")))

  (princ)

)

 

[cuongtk2 336]

Lệnh nó như vậy thôi.

Command: PE PEDIT
Select polyline or [Multiple]: m
Select objects: Specify opposite corner: 4 found
Select objects:
Convert Lines, Arcs and Splines to polylines [Yes/No]? <Y> y
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Reverse/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>:  Specify second point: Pick 2 điểm hoặc gõ số
3 segments added to polyline
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Reverse/Undo]:

[Vũ Hưng 1310 0]

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

Bạn dùng thử cái này nhé. viết nhanh chất lượng thấp nhưng hiệu quả khá tốt.

B1 thứ nhất chọn các đường dọc

B2 chọn các đường ngang

Lệnh FA và chỉ dùng với line thôi nhé. bạn x hết các đường pline ra.

 

(defun c:FA (/ ss1 ss2 ent p1 p2 lstxl lstpt1 lstpt2)

  (setq

    ss1 (acet-ss-to-list (ssget '((0 . "LINE"))))

    ss2 (acet-ss-to-list (ssget '((0 . "LINE"))))

  )

  (foreach item ss1

    (setq

      ent (entget item)

      p1 (cdr (assoc 10 ent))

      p2 (cdr (assoc 11 ent))

      lstpt1 (append lstpt1 (list p1 p2))

    )

    (vl-cmdf "XLINE" p1 p2 "")

    (setq lstxl (cons (entlast) lstxl))

  )

  (foreach item ss2

    (setq

      ent (entget item)

      lstpt2 (cons (cdr (assoc 10 ent)) lstpt2)

      lstpt2 (cons (cdr (assoc 11 ent)) lstpt2)

    )

  )

  (apply 'vl-cmdf (append '("extend") lstxl '("") lstpt2 '("")))

  (mapcar 'entdel lstxl)

  (apply 'vl-cmdf (append '("extend") ss2 '("") lstpt1 '("")))

  (princ)

)

 

Em cảm ơn. để em thử xem ạ. Dùng lệnh của Bác cuongtk2 thì em cũng biết nhưng nó tác ngách quá mà nhiều khi không được như ý muốn

[ketxu 2.984]

Rõ ràng bài toán này nếu chỉ là ngang và dọc thế kia thì có thể quét chọn một loạt được và k quá khó để code. Còn trường hợp tổng quát thì e là không được, dễ râu ông nọ nối đít ông kia lắm :)