sửa lisp để hỗ trợ chọn chiều cao text trước cho bảng và text

[Xuân Lộc 12]

Em có 2 cái lisp của bác LEEMAC thống kê block và thống kê text nhưng khi thống kê ra nó tạo cái bảng table bé xíu không à, em mong muốn có anh chị cô chú nào sửa giúp em nó có hỗ trợ chọn chiều cao text trước khi xuất bảng. Em xin gửi 2 lisp ở dưới ạ.

TKText.lsp

TKBlock.lsp

[Nguyen Hoanh 4670]

1 giờ trước, Xuân Lộc đã nói:

Em có 2 cái lisp của bác LEEMAC thống kê block và thống kê text nhưng khi thống kê ra nó tạo cái bảng table bé xíu không à, em mong muốn có anh chị cô chú nào sửa giúp em nó có hỗ trợ chọn chiều cao text trước khi xuất bảng. Em xin gửi 2 lisp ở dưới ạ.

TKText.lsp

TKBlock.lsp

Lisp của LEEMAC insert dữ liệu vào đối tượng dạng bảng của AutoCAD. Muốn sửa cho kích thước bảng to ra, bạn dùng lệnh TableStyle, để sửa kích thước chiều cao chữ.
Sau đó mới dùng lệnh thống kê.

[vietduc147258 89]

Sửa TableStyle có nhược điểm là một số Table tạo ra trước đó sẽ bị ảnh hưởng. Nhưng có table lại không bị ảnh hưởng. Không biết nguyên nhân do đâu. 

Bạn có thể dùng cách nữa là sau khi chèn xong thì scale cái table lên. Cách này thì đối với tkblock thì khá ổn, còn với tktext thì phải sửa chiều rộng bảng một chút

Bạn sửa dòng

(command "SCALE" "_L" "" ins (/ th 1)) ; So sau chu "th" la chieu cao chu trong TableStyle

TKBlock.lsp

[Xuân Lộc 12]

39 phút trước, vietduc147258 đã nói:

Sửa TableStyle có nhược điểm là một số Table tạo ra trước đó sẽ bị ảnh hưởng. Nhưng có table lại không bị ảnh hưởng. Không biết nguyên nhân do đâu. 

Bạn có thể dùng cách nữa là sau khi chèn xong thì scale cái table lên. Cách này thì đối với tkblock thì khá ổn, còn với tktext thì phải sửa chiều rộng bảng một chút

Bác có thể sửa cho cháu 2 cái lisp kia có thêm đoạn tuỳ chọn tỉ lệ scalc trước được không ạ.

[vietduc147258 89]

4 phút trước, Xuân Lộc đã nói:

Bác có thể sửa cho cháu 2 cái lisp kia có thêm đoạn tuỳ chọn tỉ lệ scalc trước được không ạ.

Của bạn đây

TKText.lsp

TKBlock.lsp

[Xuân Lộc 12]

53 phút trước, vietduc147258 đã nói:

Của bạn đây

TKText.lsp

TKBlock.lsp

quá tuyệt vời ạ, cháu cảm ơn

[HUY2K 15]

cho em xin phép các anh ạ, có cách nào để lisp nó tự nhận dạng được chiều cao chữ của bảng để mình sc lên ko ạ, tại có bản vẽ xài acad.dwt thì text mặc định là 0,18. bản xài acadiso.dwt thì text lại là 4.5 chưa kể 1 số bản vẽ đã bị sửa text từ trước ạ. Mong các anh có cách nào để sửa code không tại em thấy cũng tiện khi có cái bảng table này

[vietduc147258 89]

11 giờ trước, HUY2K đã nói:

cho em xin phép các anh ạ, có cách nào để lisp nó tự nhận dạng được chiều cao chữ của bảng để mình sc lên ko ạ, tại có bản vẽ xài acad.dwt thì text mặc định là 0,18. bản xài acadiso.dwt thì text lại là 4.5 chưa kể 1 số bản vẽ đã bị sửa text từ trước ạ. Mong các anh có cách nào để sửa code không tại em thấy cũng tiện khi có cái bảng table này

Thử 2 cái này.

Muốn thêm cái gợi ý chiều cao đã nhập lần trước nữa nhưng do trình độ còn hạn nên chưa làm được.

TKText.lsp

TKBlock.lsp

[HUY2K 15]

cảm ơn anh

[cuongtk2 415]

@vietduc147258Ghi vào registry rồi đọc ra thôi em.

[vietduc147258 89]

23 phút trước, cuongtk2 đã nói:

@vietduc147258Ghi vào registry rồi đọc ra thôi em.

Thank bác! Để em nghiên cứu. Trình độ mới sơ đẳng mà bác giới thiệu cái cao siêu quá.