limfx 21 Báo cáo bài đăng Đã đăng Tháng 8 7, 2023 1 giờ} trướ}c, Doan Van Ha đã nói: Hàm offset vào trong hoặc ra ngoài tôi viết sẵn. Ai cần thì dùng. ;----- Offset + (out) / - (in). Tra ve enttity. By HA (defun Offset_dau(ent kc / obj obj1 obj2 dau) (setq obj (vlax-ename->vla-object ent) obj1 (car (vlax-invoke obj 'Offset 1E-3)) obj2 (car (vlax-invoke obj 'Offset -1E-3)) dau (if (> (vla-get-Area obj1)(vla-get-Area obj2)) + -)) (mapcar 'vla-delete (list obj1 obj2)) (vlax-vla-object->ename (car (vlax-invoke obj 'Offset (dau kc))))) Em cảm ơn Anh nhiều! Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
