Lisp ngoại

[tnmtpc 207]

hàng ngọai mơí đem về, chưa bóc tem! Đùa chút cho zui! Lục lạo vào các trang Lisp khác, mang về đại, chưa "khui", gửi lên đây các bạn cùng "ngâm cứu"

http://www.cadviet.com/upfiles/tblstao_table_trong_cad.zip

[Theghost 31]

hàng ngọai mơí đem về, chưa bóc tem! Đùa chút cho zui! Lục lạo vào các trang Lisp khác, mang về đại, chưa "khui", gửi lên đây các bạn cùng "ngâm cứu"

http://www.cadviet.com/upfiles/tblstao_table_trong_cad.zip

Bị lỗi hay sao bạn ạ

Command: tbls

Select object: ; error: ActiveX Server returned the error: unknown name: Rows

[ssg 1.102]

hàng ngọai mơí đem về, chưa bóc tem! Đùa chút cho zui! Lục lạo vào các trang Lisp khác, mang về đại, chưa "khui", gửi lên đây các bạn cùng "ngâm cứu"

http://www.cadviet.com/upfiles/tblstao_table_trong_cad.zip

Công dụng:

Thực hiện cộng tất cả các số có sẵn trong 1 cột của đối tượng Table (mình không nhớ rõ, nhưng hình như từ Cad2006 mới có?), ghi kết quả tại 1 điểm do người dùng chỉ định, tương tự như thực hiện hàm Sum. Tuy nhiên, kết quả chỉ là 1 đối tượng Mtext, không có mối liên kết nào với dữ liệu trong table. Khi dữ liệu trong table thay đổi, nó không biết update theo!

 

Nhận xét:

Tác giả là một "anh bạn ngoại", tập tành viết lisp cho table. Chương trình không có giá trị sử dụng vì nó thua xa hàm Sum có sẵn trong Table của Acad!

Lưu ý: Đối tượng table của Autocad tuy không tiện dụng bằng Excel, nhưng vẫn biết cách thực hiện hàm Sum với cú pháp, kết quả cũng như duy trì liên kết dữ liệu y như Excel.

 

Góp ý:

Bạn nên cẩn trọng hơn khi post các chương trình sưu tầm được lên diễn đàn. Bạn phải tự "ngâm cứu" nó trước và hiểu được nó ở mức độ khái quát. Ít nhất, bạn phải nắm được công dụng của chương trình.

Các chương trình lisp người ta post lên trên các "diễn đàn ngoại" nhiều như... sao trên trời! Bản thân mình cũng có tham gia vài "diễn đàn ngoại" và cũng đã thấy không ít "anh bạn ngoại" cũng như "chương trình ngoại" cực kỳ ngớ ngẩn!