Lọc text chứa ký tự số trong bản vẽ | Number filter text in AutoCAD drawing | AutoLISP Reviewer

Ứng dụng được phát triển/Sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

   

Thông tin thêm: 👉👉👉

Hướng dẫn lệnh Filter nâng cao

1 Wildcard để lọc được các Text bắt đầu và kết thúc bằng 1 số

Lưu mã sau dưới dạng tệp tin 

Code:

#*#

Lệnh SNUM

Lọc các Text là số.

Lệnh STEXT

Lọc các Text là không phải là số.

2 Sử dụng AutoLISP

Lưu mã sau dưới dạng tệp tin 

Code:

(defun C:SNUM (/ ss texts min_val max_val min_texts max_texts val)
  (vl-load-com)
  (princ "\nChon cac doi tuong text...")
  ; Lấy tất cả các text trong bản vẽ
  (setq ss (ssget '((0 . "TEXT,MTEXT") (1 . "#*#"))))
  (if ss
    (progn
      ; Khởi tạo danh sách lưu giá trị và text
      (sssetfirst nil ss)
    )
    (princ "\nKhong tim thay text nao trong ban ve.")
  )
  (princ "\nBy lisp.vn")
  (princ)
)

(defun C:STEXT (/ ss texts min_val max_val min_texts max_texts val)
  (vl-load-com)
  (princ "\nChon cac doi tuong text...")
  ; Lấy tất cả các text trong bản vẽ
  (setq ss (ssget '((0 . "TEXT,MTEXT") (-4 . "<NOT") (1 . "#*#") (-4 . "NOT>"))))
  (if ss
    (progn
      ; Khởi tạo danh sách lưu giá trị và text
      (sssetfirst nil ss)
    )
    (princ "\nKhong tim thay text nao trong ban ve.")
  )
  (princ "\nBy lisp.vn")
  (princ)
)

Link tải (MediaFire)

📥 https://www.mediafire.com/

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!