Nhờ Sữa Lisp Thay Đổi Giá Trị Dim Nếu Thỏa Điều Kiện

[khanh phong 1]

Em cần lisp dim kích thước nếu dim ra 0.6 mét thì tự động đổi thành 0.60 MIN, em mới tập lisp nên không biết code bên dưới bị lỗi gì mà không so sánh điều kiện được, nhờ anh chị trên diễn đàn giúp đỡ. Cám ơn nhiều

(defun c:AsA( / D1 D2 D3 )
(setq D1 (getpoint "\ndiem 1 dim: ")
      D2 (getpoint "\ndiem 2 dim: ")
      D3 (getpoint "\ndiem dat text dim: "))
(command "_.dimaligned" D1 D2 D3 )
(setq dt (entlast)
      gt (cdr (assoc 42 (entget dt))))
(if (= gt 0.6)
    (progn
      (entmod
	(subst (cons 1 "0.60 MIN") (assoc 1 (entget dt)) (entget dt))
      )
      (entupd dt)
    )
  )

(princ)
)

[Doan Van Ha 3.194]

Bạn sửa (= gt 0.6) thành (equal gt 0.6 1E-3)

[khanh phong 1]

Bạn sửa (= gt 0.6) thành (equal gt 0.6 1E-3)

 

Em cám ơn bác Doan Van Ha, nhưng bác có thể cho em biết 1E-3 là gì không ạ ?

[Doan Van Ha 3.194]

Hai số thực để chúng bằng nhau là rất khó, bởi vậy phải dùng hàm equal với sai số nào đó. 1E-3 coi như là sai số. Bạn có thể thay nó bằng 1E-4, 1E-5,1E-6...

Sai số sẽ thấy ngay khi bạn nhập biểu thức (- gt 0.6).

[CuongXD7 3]

Nhờ các bác viết dùm cho Lisp với nội dung sau:

 Click vào đối dim => dim doi thanh mau vang+đanh stt vao dim do và xuat ra TEXT

Mong được các bác giúp đỡ.