Vì em hay phải Hatch nhiều vùng rất nhỏ mà mất công. Nên em có yêu cầu này hơi kì cục như trong file Cad bên dưới như sau: em có các đối tượng giao nhau gồm Line, Pline, Spline, Circle, Rectangular...v.v…Nay em nhờ các bác viết giúp em cái Lisp với nội dung như sau: + B1: Gõ lệnh “HatchKin” + B2: Chọn các đối tượng giao nhau cần Hatch. + B3: Enter để nhận được kết quả là các Vùng Hatch riêng biệt được tạo ra ở các vùng kín được tạo thành bởi các phần giao nhau của các đối tượng được lựa chọn trên. Chú ý: Các Vùng Hatch này chứa các đối tượng Hatch riêng biệt (tức có tùy chọn Create Separate Hatches và Associative kèm theo), các đối tượng Hatch này tạo ra thuộc Layer hiện hành, Hatch Pattern Palette hiện hành, Scale, Angle của Hatch hiện hành, và có thêm cả Option Associative và Create Separate Hatches. Nói chung đối tượng Hatch hiện hành như thế nào thì vùng Hatch được tạo ra đều có các thuộc tính như vậy. 
Em xin chân thành cám ơn các bác :) http://www.cadviet.com/upfiles/3/64997_test_hatch_1.dwg