Nhờ các bác viết giúp mình list lọc text

[kien22487 0]

Ví dụ ở trên bản vẽ có rất nhiều các text, mtext giống nhau : A1, A2, B1, B2, C1, 1A1, 2A1, 6B2 .... Ví dụ Mình muốn lọc các có text chứa kí tự A thì tất cả các text A1, A2, 1A1, 2A1 sẽ được chọn. Sau đó mình sẽ copy các text này ra một chỗ khác rồi dùng 1 lệnh để xóa tất cả các text trùng nhau. Nhờ các bác viết giúp mình với. Cảm ơn các bác nhiều.

[cuongtk2 330]

Xem cái này

(defun c:test ( / SS STR)
  (setq str (getstring "\Ky tu nhap vao"))
  (if (null str) (exit))
  (setq str (strcat "*" str "*"))
  (setq ss (ssget (list
                    (cons 0 "*TEXT")
                    (cons -4 "<OR")
                    (cons 1 str)
                    (cons 1 (strcase str))
                    (cons -4 "OR>")
                    )
                  )
        )
  (command "copy" ss "" pause )
         
  )

 

[kien22487 0]

Cảm ơn bác nhiều. Lisp hoạt động rất tốt.