[Yêu cầu] Lisp cộng số trong CAD

[mua_t7 1]

Em muốn cộng các số là các text trong bản vẽ, e biết lisp này đã có từ lâu nhưng e search ko thấy. Anh chị nào có làm ơn post lên hoặc mail cho e với. Em xin cảm ơn.

mail của em là: mua_t7@yahoo.com

[namhai 17]

Em muốn cộng các số là các text trong bản vẽ, e biết lisp này đã có từ lâu nhưng e search ko thấy. Anh chị nào có làm ơn post lên hoặc mail cho e với. Em xin cảm ơn.

mail của em là: mua_t7@yahoo.com

Lisp này đã có trên CADVIET rồi, bạn chịu khó search 1 tý là thấy mà.lisp của bạn đây

http://www.cadviet.com/upfiles/Tinh_tong_cac_text.rar

[thvinh 0]

Lisp này đã có trên CADVIET rồi, bạn chịu khó search 1 tý là thấy mà.lisp của bạn đây

http://www.cadviet.com/upfiles/Tinh_tong_cac_text.rar

Bạn có lisp nào sau khi chọn text sẽ hiện ra kết quả trong một bản thông báo không? thanks

[master_worse 88]

Bạn có lisp nào sau khi chọn text sẽ hiện ra kết quả trong một bản thông báo không? thanks

 

Bạn thay đoạn này:

;*******************************************************************************

********

(setq LOOP T)

(while (= LOOP T)

 

----------------------------------------------------------------------

 

);Ket thuc viec chon doi text result

;*******************************************************************************

********

;Tra ve lai trang thai cu cho doi text result

(redraw (car result) 4)

 

bằng:

(alert number_total_text)

[thvinh 0]

Bạn thay đoạn này:

;*******************************************************************************

 

********

(setq LOOP T)

(while (= LOOP T)

 

----------------------------------------------------------------------

 

);Ket thuc viec chon doi text result

;*******************************************************************************

 

********

;Tra ve lai trang thai cu cho doi text result

(redraw (car result) 4)

 

bằng:

(alert number_total_text)

Cám ơn bạn nhiều nha!

[dangxuandung 1]

Lisp này đã có trên CADVIET rồi, bạn chịu khó search 1 tý là thấy mà.lisp của bạn đây

thế còn trừ thì sao??????

[ketxu 2.984]

Lisp này đã có trên CADVIET rồi, bạn chịu khó search 1 tý là thấy mà.lisp của bạn đây

thế còn trừ thì sao??????

Thì mình đã tick trừ cho bạn rồi :) Cộng, trừ, nhân chia, trung bình.... đều đã có hết trên diễn đàn :) Phần thưởng bao giờ cũngđến với người kiên nhẫn :)