Nhờ viết LISP tạo hình chữ nhật từ LINE

[TranAnhTuong 6]

Nhờ mọi người viết dùm em 1 LISP tạo hình chữ nhật từ Line có trước. Chiều dài hình chữ nhật bằng với chiều dài line, chiều rộng hình chữ nhật nhập thông số ah!

Dưới đây là ảnh minh hoạ:

[Doan Van Ha 3.201]

Lệnh Rec có đủ tùy chọn để làm được.

[TranAnhTuong 6]

2 giờ trước, Doan Van Ha đã nói:

Lệnh Rec có đủ tùy chọn để làm được.

em cần bung 1 line có sẵn thành hình chữ nhật ah!

[Doan Nguyen Van 491]

Vừa xong, TranAnhTuong đã nói:

em cần bung 1 line có sẵn thành hình chữ nhật ah!

Có yêu cầu góc không bạn, bình thường thì quét rectang đến cuối đường line, kéo lên nhập chiều dài vẫn được mà

 

[TranAnhTuong 6]

Dạ không anh! em thao tác với rất nhiều đường line lớn nhỏ khác nhau. nên cần dùng lisp để mọi việc nhanh chóng. Nó tương tự như lệnh offset 2 bên nhưng ở đây là mình sẽ nhập chiều rộng của hình chữ nhật!

[TranAnhTuong 6]

27 phút trước, Doan Nguyen Van đã nói:

Có yêu cầu góc không bạn, bình thường thì quét rectang đến cuối đường line, kéo lên nhập chiều dài vẫn được mà

 

Thao tác như video này ah!

https://photos.app.goo.gl/SH71UuLmcSubALv78

[Doan Nguyen Van 491]

1 phút trước, TranAnhTuong đã nói:

Thao tác như video này ah!

https://photos.app.goo.gl/SH71UuLmcSubALv78

Inbox mình nhé: zalo: 0976379894

[thiep 365]

4 phút trước, TranAnhTuong đã nói:

Thao tác như video này ah!

https://photos.app.goo.gl/SH71UuLmcSubALv78

Giống như lệnh offset sang 2 bên của line, polyline..., nhưng nối 2 đầu và xoá đường gốc. Phải không?

[cuongtk2 356]

Nó đây

l2rec.LSP

[TranAnhTuong 6]

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

Nó đây

l2rec.LSP

đúng cái em đang cần rồi ah! Nhưng lisp này không chọn được nhiều đối tượng được 1 lúc ah! Mong anh em giúp đỡ!

[TranAnhTuong 6]

1 giờ trước, thiep đã nói:

Giống như lệnh offset sang 2 bên của line, polyline..., nhưng nối 2 đầu và xoá đường gốc. Phải không?

Đúng rồi ah!

[quocmanh04tt 635]

Mình cũng tham gia tý:

(defun c:tt  (/ a d e p s _lwpoly)
  (defun _lwpoly  (l)
    (entmake (append (list (cons 0 "LWPOLYLINE")
                           (cons 100 "AcDbEntity")
                           (cons 100 "AcDbPolyline")
                           (cons 90 (length l))
                           (cons 70 1))
                     (mapcar '(lambda (p) (cons 10 (trans p 1 0))) l))))
  (setq d (cond (#othedglin2rec#)
                (100)))
  (initget 2)
  (setq d (cond ((getdist (strcat "\nChieu dai canh khac <" (rtos d 2 2) ">: ")))
                (d)))
  (setq #othedglin2rec# d)
  (while (setq s (ssget '((0 . "LINE"))))
    (while (and (setq e (ssname s 0)) (ssdel e s))
      (setq p (mapcar '(lambda (x) (cdr (assoc x (entget e)))) '(10 11))
            a (apply 'angle p))
      (entdel e)
      (_lwpoly (mapcar '(lambda (x y) (polar x (+ a (* y pi)) (* 0.5 d)))
                       (append p (reverse p))
                       (list 0.5 0.5 1.5 1.5)))))
  (princ))

 

[thiep 365]

16 phút trước, TranAnhTuong đã nói:

Đúng rồi ah!

Bạn xem ở topic này, lisp doubleoffset viết chung cho tất cả các đối tượng đường, LINE, LWPOLYLINE, SPLINE, ARC, CIRCLE, cùng 1 lúc chọn nhiều đường để doubleoffset, xoá hay không xoá đối tượng gốc, có hộp thoại.

https://www.cadviet.com/forum/topic/179621-nhờ-giúp-đỡ-về-lisp-offset-double/?do=findComment&comment=444609

[DungNguyen685 40]

Học hỏi được ít kiến thức.