XIN GIÚP ĐỠ VỀ OFFSET POLYLINE DẠNG RECTANG

[thuanledo 1]

CHÀO CÁC ANH CHỊ, TÌNH HÌNH LÀ EM CÓ MỘT CÁI POLYLINE DẠNG RECTANG HOẶC 1 ĐA GIÁC NHIỀU ĐỈNH EM MUỐN OFFSET NÓ RA 500M THÌ CODE VBA AUTOCAD NHƯ THẾ NÀO

MONG CÁC ANH CHỊ GIÚP ĐỠ

HÌNH EM GỬI ĐÍNH KÈM BÊN DƯỚI Ạ.

 

[DungNguyen685 33]

Như này à. Nhớ đâu trên diễn đàn có rồi.

[thuanledo 1]

17 phút trước, DungNguyen685 đã nói:

Như này à. Nhớ đâu trên diễn đàn có rồi.

DẠ ĐÚNG RỒI CÓ LINK CHO EM XIN NHÉ .@@@@

[gia_bach 1.531]

3 giờ trước, thuanledo đã nói:

CHÀO CÁC ANH CHỊ, TÌNH HÌNH LÀ EM CÓ MỘT CÁI POLYLINE DẠNG RECTANG HOẶC 1 ĐA GIÁC NHIỀU ĐỈNH EM MUỐN OFFSET NÓ RA 500M THÌ CODE VBA AUTOCAD NHƯ THẾ NÀO

MONG CÁC ANH CHỊ GIÚP ĐỠ

Offset 500 và -500 rồi so sánh 2 pline mới, thằng nào có diện tích (AREA) lớn hơn thì chọn, xóa thằng kia.

[tranducanh18 1]

ofs (offset vao trong de trong cay).lsp

Lisp mình sưu tầm trên diễn đàn, hi vọng ko vi phạm bản quyền. Chắc là bạn đang cần cái này. Layer offset là layer đang hiện hành nhé.

[thiep 359]

22 giờ trước, gia_bach đã nói:

Offset 500 và -500 rồi so sánh 2 pline mới, thằng nào có diện tích (AREA) lớn hơn thì chọn, xóa thằng kia.

Một cách khác không phải so sánh diện tích rồi xoá đỡ tốn thời gian. Lisp này lấy trên nền lisp OFS của @tranducanh18 gửi ở trên

(vl-load-com)
(defun GetA (lst)
    (apply '+
           (mapcar '(lambda (a b) (- (* (car b) (cadr a)) (* (car a) (cadr b))))
                   lst
                   (cons (last lst) lst)
           )
    )
)
(defun c:ofs (/ ss lay lst obj bit #d #dold)
    (setq ActDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
    (vla-StartUndoMark ActDoc)
    (acet-sysvar-set '("cmdecho" 0 "osmode" 0))
    (setq #dold (getvar "offsetdist"))
    (cond ((setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*POLYLINE,SPLINE"))))
           (if (null
                   (setq #d (getdist (strcat "\nOffsetdist <" (rtos #dold 2 2) ">")))
               )
               (setq #d #dold)
               (setvar "offsetdist" #d)
           )
           (foreach ent (acet-ss-to-list ss)
               (setq obj (vlax-ename->vla-object ent)
                     bit (GetA (acet-geom-vertex-list ent))
               )
               (if (vlax-method-applicable-p obj 'Offset)
                   (cond ((< bit 0) (vlax-invoke obj 'Offset #d))
                         ((> bit 0) (vlax-invoke obj 'Offset (- #d)))
                   )
               )
           )
          )
          (T (princ "\nNo thing to do"))
    )
    (acet-sysvar-restore)
    (vla-EndUndoMark ActDoc)
    (princ)
)

 

[alisp 72]

Chủ thớt ở mục #1 xin code VBA chứ đâu có xin lisp đâu nà!

[cuongtk2 214]

Mình không rõ về VBA lắm nhưng quy trình cũng biết, offset 2 hướng được 2 cái pline. Có thể so sánh bằng Centroid to CurveClosedPoint, Area, hay tổng khoảng cách từ 1 điểm trên pline cũ đến toàn bộ điểm trên pline mới. Cái nào lớn hơn là ngoài.

[anhcos 188]

Tôi có cái tool bé xíu, viết cho mấy mục đích nho nhỏ, có phần chọn offset trong/ngoài đó, bác có thể tải về dùng thử ở đây.

 

 

 

[tanbqtb03 9]

Vào lúc 5/6/2021 tại 22:17, anhcos đã nói:

Tôi có cái tool bé xíu, viết cho mấy mục đích nho nhỏ, có phần chọn offset trong/ngoài đó, bác có thể tải về dùng thử ở đây.

 

 

 

Link bị dead rồi ạh, nhờ a update lại link mới với ạh