[Đã xong] Lisp tìm giá trị max hoặc min trong text

[vbao 80]

diễn đàn có thể giúp tôi thủ thuật tìm giá trị max hoặc min trong các đối tượng là text (text có giá trị là số thực và Z=0). Cảm ơn các anh

[vndesperados 254]

diễn đàn có thể giúp tôi thủ thuật tìm giá trị max hoặc min trong các đối tượng là text (text có giá trị là số thực và Z=0). Cảm ơn các anh

 

Có thể nói rõ yêu cầu:

1. Đầu vào là thế nào: (VD như sẽ chọn một nhóm text trên bản vẽ...)

2. Đầu ra: Thông báo số lớn nhất, nhỏ nhất hay là hiển thị trạng thái đã chọn số lớn nhất hay nhỏ nhất trên bản vẽ...

[ssg 1.102]

diễn đàn có thể giúp tôi thủ thuật tìm giá trị max hoặc min trong các đối tượng là text (text có giá trị là số thực và Z=0). Cảm ơn các anh

Bạn thử dùng trình lisp sau. Appload và gõ mm để chạy. Nếu chưa đúng ý, bạn nêu rõ hơn yêu cầu.

 

(defun C:MM (/ ss i V Vmax Vmin)

(setq ss (ssget '((0 . "TEXT"))) i 0)

(repeat (sslength ss)

(setq V (atof (cdr (assoc 1 (entget (ssname ss i))))))

(if (= i 0) (setq Vmax V Vmin V))

(if (> V Vmax) (setq Vmax V))

(if (< V Vmin) (setq Vmin V))

(setq i (1+ i))

)

(command "redraw")

(princ (strcat "\nMax = " (rtos Vmax) "\tMin = " (rtos Vmin)))

(princ)

)

 

[vbao 80]

Bạn thử dùng trình lisp sau. Appload và gõ mm để chạy. Nếu chưa đúng ý, bạn nêu rõ hơn yêu cầu.

 

(defun C:MM (/ ss i V Vmax Vmin) 
(setq ss (ssget '((0 . "TEXT"))) i 0)
(repeat (sslength ss)
   (setq V (atof (cdr (assoc 1 (entget (ssname ss i))))))
   (if (= i 0) (setq Vmax V Vmin V))
   (if (> V Vmax) (setq Vmax V))
   (if (< V Vmin) (setq Vmin V))
   (setq i (1+ i))
)
(command "redraw")
(princ (strcat "\nMax = " (rtos Vmax) "\tMin = " (rtos Vmin)))
(princ)
)

 

 

Cảm ơn bạn ssg đã giúp tôi giải quyết vấn đề đã nêu ra, tuy nhiên bạn có thể viết thêm sau khi hiển thị các giá trị min max tại dòng command, ta có thể hiển thị trạng thái đã chọn số lớn nhất hay nhỏ nhất trên bản vẽ... được không bạn?

[Nguyen Hoanh 4.663]

Cải tiến chương trình của ssg, ta sẽ có 2 lệnh mới là TMax và TMin, sẽ tìm đối tượng text có giá trị min và max trong tập chọn.

Sau khi sử dụng lệnh và chọn các đối tượng, đối tượng lớn nhất (hoặc nhỏ nhất) sẽ được high light.

(defun C:TMax (/ ss i V Vmax entht entmax)
 (setq	ss (ssget '((0 . "TEXT")))
i  0
 )
 (repeat (sslength ss)
   (setq V (atof (cdr (assoc 1 (entget (setq entht (ssname ss i)))))))    
   (if	(or (= i 0) (> V Vmax))
     (setq Vmax   V
    entmax entht
     )
   )
   (setq i (1+ i))
 )
 (command "redraw")
 (princ (strcat "\nMax = " (rtos Vmax)))
 (sssetfirst (ssadd entmax) (ssadd entmax))
 (princ)
)

(defun C:TMin (/ ss i V Vmin entht entmin)
 (setq	ss (ssget '((0 . "TEXT")))
i  0
 )
 (repeat (sslength ss)
   (setq V (atof (cdr (assoc 1 (entget (setq entht (ssname ss i)))))))    
   (if	(or (= i 0) (      (setq Vmin   V
    entmin entht
     )
   )
   (setq i (1+ i))
 )
 (command "redraw")
 (princ (strcat "\nMin = " (rtos Vmin)))
 (sssetfirst (ssadd entmin) (ssadd entmin))
 (princ)
)

[vbao 80]

Cải tiến chương trình của ssg, ta sẽ có 2 lệnh mới là TMax và TMin, sẽ tìm đối tượng text có giá trị min và max trong tập chọn.

Sau khi sử dụng lệnh và chọn các đối tượng, đối tượng lớn nhất (hoặc nhỏ nhất) sẽ được high light.

(defun C:TMax (/ ss i V Vmax entht entmax)
 (setq	ss (ssget '((0 . "TEXT")))
i  0
 )
 (repeat (sslength ss)
   (setq V (atof (cdr (assoc 1 (entget (setq entht (ssname ss i)))))))    
   (if	(or (= i 0) (> V Vmax))
     (setq Vmax   V
    entmax entht
     )
   )
   (setq i (1+ i))
 )
 (command "redraw")
 (princ (strcat "\nMax = " (rtos Vmax)))
 (sssetfirst (ssadd entmax) (ssadd entmax))
 (princ)
)

(defun C:TMin (/ ss i V Vmin entht entmin)
 (setq	ss (ssget '((0 . "TEXT")))
i  0
 )
 (repeat (sslength ss)
   (setq V (atof (cdr (assoc 1 (entget (setq entht (ssname ss i)))))))    
   (if	(or (= i 0) (< V Vmin))
     (setq Vmin   V
    entmin entht
     )
   )
   (setq i (1+ i))
 )
 (command "redraw")
 (princ (strcat "\nMin = " (rtos Vmin)))
 (sssetfirst (ssadd entmin) (ssadd entmin))
 (princ)
)

 

một lần nữa xin cảm ơn các anh ssg, anh Nguyen Hoanh, đã nhiệt tình hướng dẫn và giúp tôi giải quyết vấn đề trên