Đến nội dung


Hình ảnh
- - - - -

Giúp em Lisp trừ 2 số


  • Please log in to reply
1 reply to this topic

#1 friendship293a

friendship293a

    biết lệnh erase

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

Đã gửi 21 October 2010 - 03:50 PM

Em đang muốn tìm lisp trừ 2 số tức là khi gọi lệnh thì chọn số trừ sau đó chọn số bị trừ và cuối cùng là chọn số ghi kết quả chỉ đơn giản thế thôi. em đã tìm trên diễn đàn nhưng phải thao tác nhiều quá em muốn đơn giản thế thôi ai giúp em với. mà không phải entẻ nhiều lần thì tốt hơn ạ. tức là chọn xong số trừ thì tích sang số khác là số bị trừ và tích cái nữa là ghi kết quả. mong mọi người giúp đỡ.
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 21 October 2010 - 04:38 PM

Cái này trên diễn đàn có rồi đấy chứ.Để thực hiện nhanh nhất,mà bạn không nói rõ số chữ số thập phân ở kết quả,ở đây mình để là 0,nếu cần thay đổi bạn thay trực tiếp trong lisp ở dòng
(vla-put-TextString obj (rtos kq 2 0) ,thay 0 bằng số bạn muốn
(defun c:-()
(vl-load-com)
(setq sbt (car (entsel "\nChon so bi tru:"))
st (car (entsel "\nChon so tru:\n"))
kq (- (atof (cdr (assoc 1 (entget sbt))))
(atof (cdr (assoc 1 (entget st))))))
(princ kq)
(setq obj (vlax-ename->vla-object (car (entsel "\nChon text ghi ket qua:"))))
(vla-put-TextString obj (rtos kq 2 0))
(princ))

  • 1

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