Mỗi Ngày Một Câu Lệnh Hay

[VUVUZELA 100]

1. Lệnh tính biểu thức trong AutoCad đơn giản, gọn nhẹ

+ Lệnh : BT

+ Quét các TEXT trong cad cần tính +

+ Nhập biểu thức cần tính : +1.50 ; -5; / 95.36; * 1.0 (lưu ý lệnh này sẽ tự động cập nhật số lẻ theo biểu thức bạn nhập. Ví dụ : + 1.50 thì sẽ làm tròn 2 số lẻ phía sau hoặc *1.0 sẽ làm tròn 1 số lẻ)

Câu lệnh như sau :

 

(vl-load-com)

(defun C:bt (/)

 (setvar "cmdecho" 0)

 (setq ss1 nil

       ss1 (ssget '((-4 . "<AND") (0 . "TEXT") (-4 . "AND>")))

       ss  (acet-ss-to-list ss1)

 ) ;_  setq

 (setq bt (getstring "\n Nhap bieu thuc can tinh :"))

 (setq toan (substr bt 1 1)

       num  (distof (substr bt 2 (strlen bt)))

 ) ;_  setq

 (setq cal (cond ((= toan "+") +)

                 ((= toan "-") -)

                 ((= toan "*") *)

                 ((= toan "/") /)

           ) ;_  cond

 ) ;_  setq

 (if (> (distof bt) 0)

  (setq cal +

        num (distof bt)

  ) ;_  setq

 ) ;_  if

 (setq cod (vl-string-search "." bt))

 (if (/= cod nil)

  (setq sole (- (strlen bt) cod 1))

  (setq sole 0)

 ) ;_  if

 (foreach ent ss

  (setq elist (entget ent))

  (entmod (subst (cons 1 (rtos (cal (atof (cdr (assoc 1 elist))) num) 2 sole))

                 (assoc 1 elist)

                 elist

          ) ;_  subst

  ) ;_  entmod

 ) ;_  foreach

 (princ)

) ;_  defun