Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Nhờ Sửa Lisp Trừ 2 Text


  • Please log in to reply
2 replies to this topic

#1 trung0809

trung0809

    biết zoom

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

Đã gửi 14 December 2016 - 08:21 AM

Trên diễn đàn mình tìm đc tinh.lisp dể cộng trừ nhân chia nhưng mình chỉ cần làm phép trừ, mỗi lần làm lại lệnh lại thêm 1 bước chọn phép cộng trừ nhân chia rất mất thời gian cho nên mong mn sửa giúp mình LISP này.

Nội dung mình cần như sau: Chọn text bị trừ, chọn text trừ, chọn text ghi kết quả. Mong mn giúp mình :)

 

Link LISP: http://www.mediafire...vn2elg/tinh.lsp


  • -2

#2 trung0809

trung0809

    biết zoom

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

Đã gửi 14 December 2016 - 02:10 PM

up ai giup minh voi


  • -1

#3 Bee

Bee

    biết lệnh hatchedit

  • Members
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 95 (tàm tạm)

Đã gửi 14 December 2016 - 03:37 PM

up ai giup minh voi

Đây.

(defun c:tru  (/ l)
  (entmod
    (subst (cons 1
                 (rtos (- (atof (cdr (assoc 1 (entget (car (entsel "\nChon TEXT tru: "))))))
                          (atof (cdr (assoc 1 (entget (car (entsel "\nChon TEXT bi tru: "))))))
                          )
                       2
                       2
                       )
                 )
           (assoc 1 (setq l (entget (car (entsel "\nChon TEXT ket qua: ")))))
           l
           )
    )
  (princ)
  )

  • 0