Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
trandangquang92

(Yêu Cầu) Nhờ Các Bác Viết Lisp Tính Theo Công Thức (Text Số A - Text Số B)/ Text Số C Sau Đó Dán Vào 1 Text Cho Trước.

Các bài được khuyến nghị

Đây!

 

(defun C:HA(/ a b c )
 (vl-load-com)
 (setq a (distof (cdr (assoc 1 (entget (car (entsel "\nText a: ")))))))
 (setq b (distof (cdr (assoc 1 (entget (car (entsel "\nText b: ")))))))
 (setq c (distof (cdr (assoc 1 (entget (car (entsel "\nText c: ")))))))
 (vla-put-textstring (vlax-ename->vla-object (car (entsel "\nText ket qua: "))) (rtos (/ (- a b) c) 2 2))
 (princ))
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

Đây!

(defun C:HA(/ a b c )
 (vl-load-com)
 (setq a (distof (cdr (assoc 1 (entget (car (entsel "\nText a: ")))))))
 (setq b (distof (cdr (assoc 1 (entget (car (entsel "\nText b: ")))))))
 (setq c (distof (cdr (assoc 1 (entget (car (entsel "\nText c: ")))))))
 (vla-put-textstring (vlax-ename->vla-object (car (entsel "\nText ket qua: "))) (rtos (/ (- a b) c) 2 2))
 (princ))

EM CÁM ƠN ANH RẤT NHIỀU!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

anh ơi lisp nó làm tròn số. Vd: kết quả là 0.005 hoặc 0.02 nó làm tròn là 0 anh.

"(vla-put-textstring (vlax-ename->vla-object (car (entsel "\nText ket qua: "))) (rtos (/ (- a b) c) 2 2))" TRONG CÁI ĐOẠN NÀY, chỗ cuối you sửa 2 số 2 thành 2 số 3 thì nó sẽ lấy 3 số lẻ. Tôi đoán là vậy.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

còn mình muốn có giá trị tuyệt đối, như kết quả -0.005 em muốn lấy giá trị là 0.005

Sửa cho bạn lắt nhắt suốt ngày à?

Sửa:

(rtos (/ (- a b) c) 2 2)

Thành:

(rtos (abs (/ (- a b) c)) 2 3)

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Đếm dòng trên như nào và dòng dưới như nào thì sửa như thế ấy. Tôi đã ghi rõ ở trên rồi. Tôi vừa lãnh 1 dislike rồi đó.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×