Vụ chèn hình là “chuyện nhỏ” cũng không phải "giữ bí mật" nhưng vì muốn giải quyết rốt ráo nên chậm Update cho anh em.
Nhưng nay thấy "AKA buông súng" nên Post lên anh em sài thử!

- cột số lượng nếu <10 thì thêm số 0 vào trước ví dụ: 02
thọat nghe có vẽ có lý, nhưng t/hợp cột số...

Vụ chèn hình là “chuyện nhỏ” cũng không phải "giữ bí mật" nhưng vì muốn giải quyết rốt ráo nên chậm Update cho anh em.
Nhưng nay thấy "AKA buông súng" nên Post lên anh em sài thử!

- cột số lượng nếu <10 thì thêm số 0 vào trước ví dụ: 02
thọat nghe có vẽ có lý, nhưng t/hợp cột số lượng có giá trị hàng trăm (hàng ngàn) thì các số khác cũng phải biểu thị cùng format.
VD : 001 002 010 … với hàng ngàn còn rối mắt hơn.
Để giải quyết t/hợp này chỉ cần căn lề phải các số là hợp lý.

- Sort column  :
mặc định LISP sort cột Tên theo mẫu tự ABC tên của BLOCK
việc sort theo cột số lượng là t/hợp ít khi dùng nên bỏ qua (đôi khi vẫn sử dụng)
các t/hợp khác cần phải viết thêm hộp thoại cho USER chọn lựa → http://www.cadviet.com/upfiles/banghead.gif

Sau  02 bà rồi sẽ là cái này :http://www.cadviet.com/upfiles/2/333.jpg

Bổ sung tùy chọn : nhập ký hiệu Block
Code :

Đừng bực mình nữa mờ
Bạn sử dụng code này thử xem :
Code này là của bác phamthanhBinh đã được Tue_NV chỉnh lại cho phù hợp với yêu cầu của HoangSon.
Tuy nhiên mình vẫn thích sử dụng cách lập...

Đừng bực mình nữa mờ
Bạn sử dụng code này thử xem :
Code này là của bác phamthanhBinh đã được Tue_NV chỉnh lại cho phù hợp với yêu cầu của HoangSon.
Tuy nhiên mình vẫn thích sử dụng cách lập bảng như code của anh gia bach hơn
HoangSon thử nhé :

Trong trường hợp này, sử dụng lệnh find để mà thay thế là 1 ..... cực hình
Để nhanh chóng thì thế này nhé :
Bạn sử dụng CAD hoặc Lisp để gán cao độ các lớp dưới bằng với cao độ của lớp đỉnh.
Đây là file CAD thể hiện điều đó

>>

Trong trường hợp này, sử dụng lệnh find để mà thay thế là 1 ..... cực hình
Để nhanh chóng thì thế này nhé :
Bạn sử dụng CAD hoặc Lisp để gán cao độ các lớp dưới bằng với cao độ của lớp đỉnh.
Đây là file CAD thể hiện điều đó
http://www.cadviet.com/upfiles/2/pl_1_2.dwg
Sau đó chạy Lisp này .
Lisp này sẽ hoạt động theo đúng như điều bạn muốn. Hãy chạy thử code này và file CAD trên để kiểm chứng. Khi chạy quét hết 1 loạt text nhé.
Đây là code :

Chúc các bạn 1 ngày mới tốt lành.

Có vẻ như bạn là employee của Hài Hòa? Có bản demo nào share cho anh em dùng thử đi?

@thanhgam
Theo bản vẽ bạn post lên thì chẳng có liên quan gì đến Excel cả, chỉ cần đánh số thứ tự các đỉnh và kẻ bảng tọa độ trong CAD là OK? Nếu chỉ vậy thì bạn dùng thử trình này, lệnh là VC...

Có vẻ như bạn là employee của Hài Hòa? Có bản demo nào share cho anh em dùng thử đi?

@thanhgam
Theo bản vẽ bạn post lên thì chẳng có liên quan gì đến Excel cả, chỉ cần đánh số thứ tự các đỉnh và kẻ bảng tọa độ trong CAD là OK? Nếu chỉ vậy thì bạn dùng thử trình này, lệnh là VC (Vertex Co-ordinate). Chương trình chấp nhận mọi đối tượng: region, polyline, line, arc (trừ loại spline), miễn là giữa chúng tạo nên 1 vùng kín. Lưu ý, khi pick điểm, bạn phải cho toàn bộ vùng cần quan tâm display đầy đủ trên màn hình, tương tự như khi bạn dùng lệnh Hatch vậy.



Lẽ ra chương trình này xong từ mấy hôm trước và có tính năng hoàn chỉnh hơn kia. Nhưng chính vì yêu cầu của bạn không rõ ràng nên bị chậm và chỉ có vậy. Bạn dùng thử sẽ thấy rõ là yêu cầu bạn nêu còn rất nhiều bất cập. Bạn phải phân tích đầy đủ những bất cập đó và nêu yêu cầu bổ sung, mình sẽ hoàn thiện tiếp. Có điều là, mình sẽ không làm lại lần thứ 3 đâu!

Mặc định sẵn của AutoCAD có cách như sau:
- Bạn dùng lệnh Options
- tại tab Files chọn > Project Files Search Path > Add để thêm một tên dự án. Đặt tên dự án này là CADViet chẳng hạn.
- Nhấn Add rồi browser đến thư mục chứa các file xref.
- tại file chủ (file sẽ link đến các...

Mặc định sẵn của AutoCAD có cách như sau:
- Bạn dùng lệnh Options
- tại tab Files chọn > Project Files Search Path > Add để thêm một tên dự án. Đặt tên dự án này là CADViet chẳng hạn.
- Nhấn Add rồi browser đến thư mục chứa các file xref.
- tại file chủ (file sẽ link đến các file xref này), gõ PROJECTNAME rồi nhập CADViet vào.

Hoặc Phiphi có thể sử dụng lisp XRP (Xref RePath) của CADViet:

Sau khi chạy XRP, chương trình hỏi đường dẫn để set, bạn có thể nhập đường dẫn tuyệt đối hoặc tương đối, ví dụ có thể nhập:
Z:\PROJECTS\P-1234\xref hoặc xref

Bình thường khi vẽ các cấu kiện giống nhau ta vẽ đầy đủ chi tiết rồi copy, ai lại đi vẽ 1 loạt hình chữ nhật sau đó lại đi vẽ đường chéo cho chúng như thế.
Trường hợp bạn thấy cần thiết thì vẫn có thể làm được bằng Lisp sau với điều...

Bình thường khi vẽ các cấu kiện giống nhau ta vẽ đầy đủ chi tiết rồi copy, ai lại đi vẽ 1 loạt hình chữ nhật sau đó lại đi vẽ đường chéo cho chúng như thế.
Trường hợp bạn thấy cần thiết thì vẫn có thể làm được bằng Lisp sau với điều kiện các lỗ của bạn phải là polyline.