Lọc text chứa ký tự số trong bản vẽ | Number filter text in AutoCAD drawing SNUM STEXT | 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ọc ký tự số

Để lọc các Text mang giá trị số thực trong AutoCAD, sử dụng 1 trong 2 cách sau:

C1: Sử dụng 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:

#*#

C2: Sử dụng AutoLISP có sẵn

Thay vì sử dụng lệnh Filter (nguyên bản), AJS đã phát triển sẵn một số lệnh AutoLISP với bộ lọc được tích hợp sẵn. Gồm các lệnh SNUM và STEXT

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!