Hỏi lisp để chuyển đơn vị diện tích từ mét vuông sang héc ta ?

[thuong_mdc80 6]

Chào các A/c.

Tôi có các bản vẽ mà diện tích được tính bằng mét vuông (m2). Nhờ các Bác viết hộ 1 lisp thỏa mãn các yêu cầu sau:

- Cho phép chuyển đơn vị từ mét vuông (m2) sang đơn vị héc ta (ha, 1m2= 0.0001ha);

- Cho phép chọn từng vùng hoặc toàn bộ bản vẽ đang mở;

- Cho phép chọn số chữ số thập phân sau đơn vị héc ta (VD: diện tích là 12345 (m2) sau khi chuyển có dạng: 1.2 (ha), hoặc 1.23 (ha) hoặc 1.234 (ha) tùy theo người chọn 1 hoặc 2 hoặc 3 chữ số thập phân lẻ).

Xin chân thành cảm ơn.

[phamthanhbinh 3.146]

Chào các A/c.

Tôi có các bản vẽ mà diện tích được tính bằng mét vuông (m2). Nhờ các Bác viết hộ 1 lisp thỏa mãn các yêu cầu sau:

- Cho phép chuyển đơn vị từ mét vuông (m2) sang đơn vị héc ta (ha, 1m2= 0.0001ha);

- Cho phép chọn từng vùng hoặc toàn bộ bản vẽ đang mở;

- Cho phép chọn số chữ số thập phân sau đơn vị héc ta (VD: diện tích là 12345 (m2) sau khi chuyển có dạng: 1.2 (ha), hoặc 1.23 (ha) hoặc 1.234 (ha) tùy theo người chọn 1 hoặc 2 hoặc 3 chữ số thập phân lẻ).

Xin chân thành cảm ơn.

 

Bạn thuong_mdc80 thân mến,

Bạn có thể nói rõ cái đơn vị mà bạn sử dụng để vẽ được không??? m hay mm??? Bởi vì Cad sẽ tính diện tích vùng bạn chọn theo đơn vị bạn sử dụng để vẽ. Đó là chưa kể đến cái tỷ lệ bạn dùng nữa.

Để có được chính xác kết quả bạn cần cho biết cụ thể bạn nhé.

[bachngoctung 11]

Chào các A/c.

Tôi có các bản vẽ mà diện tích được tính bằng mét vuông (m2). Nhờ các Bác viết hộ 1 lisp thỏa mãn các yêu cầu sau:

- Cho phép chuyển đơn vị từ mét vuông (m2) sang đơn vị héc ta (ha, 1m2= 0.0001ha);

- Cho phép chọn từng vùng hoặc toàn bộ bản vẽ đang mở;

- Cho phép chọn số chữ số thập phân sau đơn vị héc ta (VD: diện tích là 12345 (m2) sau khi chuyển có dạng: 1.2 (ha), hoặc 1.23 (ha) hoặc 1.234 (ha) tùy theo người chọn 1 hoặc 2 hoặc 3 chữ số thập phân lẻ).

Xin chân thành cảm ơn.

-thế này bạn nhé: mình thấy trên diễn đàn có lisp tính diện tích đó ra m2 > bạn sử dụng lisp đó ghi diện tích ra(cho nó vào 1 layer nhé) sau khi làm xong hết rồi thì layiso các giá trị diện tích lên rồi dùng lisp chia các giá trị đó cho 10000> thì sẽ dc diện tích là HA (cái lisp chia này có cả buớc chọn số chữ số thập phân bạn nhé).

- Hai lisp trên bạn tìm là có ngay > mình dùng cái này lâu rồi nên ko còn giữ nữa

[thuong_mdc80 6]

Trước hết tôi xin cảm ơn các bạn đã quan tâm.

- Vấn đề của tôi xin nói thêm như sau: Tôi có bản vẽ mà trên đó có các giá trị bằng số cụ thể và thuộc 1 lớp (layer). Xin hỏi làm như thế nào để chuyển các giá trị đó thành các giá trị mới mà giá trị mới = 0.0001 lần giá trị đã có (các giá trị đó không phụ thuộc vào đơn vị vẽ, tỉ lệ bản vẽ). Bình thường thì tôi làm thủ công bằng cách dùng lệnh Mo để sửa từng giá trị trên bản và chọn số chữ số thập phân cần thể hiện nên rất mất thời gian.

[bachngoctung 11]

Trước hết tôi xin cảm ơn các bạn đã quan tâm.

- Vấn đề của tôi xin nói thêm như sau: Tôi có bản vẽ mà trên đó có các giá trị bằng số cụ thể và thuộc 1 lớp (layer). Xin hỏi làm như thế nào để chuyển các giá trị đó thành các giá trị mới mà giá trị mới = 0.0001 lần giá trị đã có (các giá trị đó không phụ thuộc vào đơn vị vẽ, tỉ lệ bản vẽ). Bình thường thì tôi làm thủ công bằng cách dùng lệnh Mo để sửa từng giá trị trên bản và chọn số chữ số thập phân cần thể hiện nên rất mất thời gian.

-trời thế thì quá ngon rồi, đây chính là cái bạn cần cái lisp chia text là ok. Lisp sẽ có công dụng là chia các text mà bạn chọn cho 1 giá trị nào đó ở đây là chia cho 10000 thì sẽ dc đơn vị là HA thôi .trước khi chia nó hỏi số chữ số thập phân của giá trị sau khi chia thì bạn chọn 2,3,.... tùy thích nhé

-Lisp đây : http://www.cadviet.com/upfiles/2/chiasochia.lsp > có cái này chắc mất 30s thì xong

[Nguyễn Minh Chương 0]

Cho mình ké với ạ, mình có lisp đính kèm, mình muốn kết quả xuất ra là "met" luôn thì làm sao ạ (kết quả đang cho ra theo mm).

Chân thành cảm ơn.

cc.lsp

[ngokiet 169]

Dùng notepad mở file cc.lst

Bạn sửa dòng thứ 7 dưới lên từ

(cons 1 (strcat "L= " (rtos tl 2 0) " mm"))

Thành 

(cons 1 (strcat "L= " (rtos (/ tl 1000) 2 0) " m"))

[Nguyễn Minh Chương 0]

9 phút trước, ngokiet đã nói:

Dùng notepad mở file cc.lst

Bạn sửa dòng thứ 7 dưới lên từ

(cons 1 (strcat "L= " (rtos tl 2 0) " mm"))

Thành 

(cons 1 (strcat "L= " (rtos (/ tl 1000) 2 0) " m"))

Cảm ơn bạn, nhưng mình muốn nó thể hiện số thập phân nữa thì sao bạn, khoảng 1 2 số để mình có thể làm tròn lên, làm tròn xuống kết quả đó.

[ngokiet 169]

Sửa tiếp thanh (cons 1 (strcat "L= " (rtos (/ tl 1000) 2 2) " m"))

[Nguyễn Minh Chương 0]

2 phút trước, ngokiet đã nói:

Sửa tiếp thanh (cons 1 (strcat "L= " (rtos (/ tl 1000) 2 2) " m"))

Cảm ơn bạn nhiều.