NHỜ VIẾT LISP

[NHỜ VIẾT LISP]

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

[NHỜ VIẾT LISP]

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

Nét line or pline

Cả line và Pline ạ

[NHỜ VIẾT LISP]

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 ạ

 

[NHỜ VIẾT LISP]

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 ạ

 

[NHỜ VIẾT LISP]

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 ạ