[Sửa Lisp] Tính tổng chiều dài các LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE

[alisp 73]

14 giờ trước, buithelanxd đã nói:

Mình có lisp này, hiện tại chỉ thông báo kết quả như hình. Nhưng muốn ghi luôn vào trong bản vẽ cad. Mong mọi người giúp đỡ. Tks!

 

tl.lsp

Ghi vào text có sẵn nhé.

tl.lsp

[buithelanxd 1]

bạn @alisp  giúp mình thêm một chút nữa đc ko?  chỉnh sửa thành cú pháp " L = ...(m)." Và có cách nào không cần chọn text không để ra kết quả quả. ví dụ sau khi chọn xong các đường thẳng chỉ cần click thêm lần nữa là ra kết quả luôn. cảm ơn bạn đã rất nhiều

[alisp 73]

1 giờ} trướ}c, buithelanxd đã nói:

bạn @alisp  giúp mình thêm một chút nữa đc ko?  chỉnh sửa thành cú pháp " L = ...(m)." Và có cách nào không cần chọn text không để ra kết quả quả. ví dụ sau khi chọn xong các đường thẳng chỉ cần click thêm lần nữa là ra kết quả luôn. cảm ơn bạn đã rất nhiều

Việc đơn giản là copy 1 text mẫu rồi sửa nội dung bạn lại không muốn, bạn lại muốn tạo text mới thì cũng dễ thôi, nhưng hoặc bạn phải chỉnh font hiện hành, chiều cao chữ hiện hành, canh lề (justify) hiện hành và đủ các thuộc tính hiện hành trước khi chạy lisp, hoặc sau khi chạy lisp thì sửa trong properties. Tôi thì nghĩ cách này phức tạp và tốn nhiều công hơn cách copy nhiều.

tl.lsp

[buithelanxd 1]

mình ko rành về lisp không ngờ phức tạp như vậy , dù sao cũng cảm ơn bạn nhé. chúc bạn sức khỏe

[pencil87 5]

đã có kết quả rồi

[betion 10]

Trong Lisp trên của bạn đó có dùng lệnh "LENGTHEN" để tính chiều dài.

Nhưng sau khi dùng lệnh đó xong thì nó yêu có một số yêu cầu khác nữa, mà không lặp qua đối tượng tiếp theo

| day rut nhua