Đến nội dung


Hình ảnh

Tạo Khung tên


  • Please log in to reply
23 replies to this topic

#21 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 30 September 2012 - 11:27 PM

- Lisp cộng trừ nhân chia text (thay trực tiếp lên text cũ) trên diễn đàn có một lố, bạn tìm tiếp đi, k chỉ có +c đâu :)
- Lisp copy nội dung text, tìm trực tiếp trên tab Lisp của diễn đà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


#22 ro88

ro88

    biết vẽ arc

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

Đã gửi 01 October 2012 - 12:03 AM

ketxu ơi mình tìm thấy lisp này bác có thể sửa lại mình tí nhé VD minh co text A=700 +50 thì cho nó là số 750 còn lisp xuất ra 750,00
sửa lại giúp mình nhé

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=13203&st=80&p=72664&#entry72664
(defun c:tinh()
(setq i 0 nhan 1 chia 1 cong 0)
(setq nhan1 (getreal (strcat "\n nhap so muon nhan hoac chia <" (rtos nhan 2 3) ">: "))
cong1 (getreal (strcat "\n nhap so muon cong hoac tru <" (rtos cong 2 3) ">:")))
(if nhan1 (setq nhan nhan1))
(if cong1 (setq cong cong1))
(prompt "\nchon cac so can sua ...")
(setq txt (ssget '((0 . "TEXT"))))
(command "undo" "begin")
(repeat (sslength txt)
(setq txt_name (ssname txt i))
(setq txt_ent (entget txt_name))
(setq cont1 (cdr(assoc 1 txt_ent)))
(setq cont (atof cont1))
(if (distof cont1 2)
(progn
(setq s (+ (* cont nhan) cong))
(setq txt_ent (subst (cons 1 (rtos s)) (assoc 1 txt_ent) txt_ent))
(entmod txt_ent));if
);if
(setq i (+ i 1))
);repeat
(command "undo" "end")
);defun

cảm ơn bác.
  • 0

#23 ro88

ro88

    biết vẽ arc

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

Đã gửi 01 October 2012 - 09:06 AM

ketxu ch­ưa onl hay sao nhỉ.có lên thì xem sửa giúp mình với nhé.Thanks.
  • 0

#24 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 01 October 2012 - 10:00 AM

ketxu ơi mình tìm thấy lisp này bác có thể sửa lại mình tí nhé VD minh co text A=700 +50 thì cho nó là số 750 còn lisp xuất ra 750,00
sửa lại giúp mình nhé
cảm ơn bác.

Bạn thêm dòng này đầu lisp xem!
(setvar "dimzin" 8)
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D