vinhxtkt01 3 Báo cáo bài đăng Đã đăng Tháng 2 28, 2014 Mình vừa tìm kiếm được trên diễn đàn đoạn lisp trừ 2 số trong aucad rất hay: ;; free lisp from cadviet.com;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/26670-giup-em-lisp-tru-2-so/(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 2)) (princ)) Anh em ai biết giúp mình chỉnh lại đoạn lisp trong trường hợp khi ta Trừ 2 số cho ra kết quả dương (+) tức là sẽ có thêm dấu (+) ở phía trước. VD: 3 - 1 = +2 Mình hay làm san ủi mặt bằng nên rất cần đánh dấu (+); (-) khi tính toán cao độ thiết kế mắt lưới. Chân thành cảm ơn ! 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
trumlenmang 32 Báo cáo bài đăng Đã đăng Tháng 3 1, 2014 Mình mới tập tành lisp, không biết vầy có đúng ý bạn không? http://www.cadviet.com/upfiles/3/128111_lenh__2.lsp (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:")))) (if (>= kq 0) (vla-put-TextString obj (strcat "+" (rtos kq 2 2))) (vla-put-TextString obj (rtos kq 2 2))) (princ)) (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:")))) (if (>= kq 0) (vla-put-TextString obj (strcat "+" (rtos kq 2 2))) (vla-put-TextString obj (rtos kq 2 2))) (princ)) 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
vinhxtkt01 3 Báo cáo bài đăng Đã đăng Tháng 3 1, 2014 Thanhks bạn trumlenmang nhiều, mình dùng thử và thấy ra kết quả (+) như theo ý. Cảm ơn Cadviet có trang web hay :wub: 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