Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
6 replies to this topic

#1 mua_t7

mua_t7

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 21 June 2009 - 12:51 AM

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
  • 0

#2 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 21 June 2009 - 08:12 AM

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.c...ng_cac_text.rar
  • 4
Hãy làm việc hết mình rồi mọi điều tốt đẹp sẽ đến với bạn.....

#3 thvinh

thvinh

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 20 February 2010 - 01:49 PM

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.c...ng_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
  • 0

#4 master_worse

master_worse

    biết lệnh offset

  • Advance Member
  • PipPipPip
  • 170 Bài viết
Điểm đánh giá: 87 (tàm tạm)

Đã gửi 20 February 2010 - 02:40 PM

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)
  • 1

Ngu dốt không đáng thẹn bằng thiếu ý chí học hỏi


Tri thức làm người ta khiêm tốn, ngu si làm người ta kiêu ngạo (Ngạn ngữ Anh)


#5 thvinh

thvinh

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 20 February 2010 - 03:31 PM

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!
  • 0

#6 dangxuandung

dangxuandung

    biết vẽ circle

  • Members
  • PipPip
  • 31 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 01 July 2011 - 09:20 AM

[quote name='namhai' date='21 June 2009 - 09:12 AM' timestamp='1245546728' post='64987']
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??????
  • -1

#7 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 01 July 2011 - 02:58 PM


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 :)
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC