Lisp thêm tiền tố hậu tố cho Text | AutoLISP Add prefix suffix for text in AutoCAD ADDTXT | 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: 👉👉👉

Lệnh [ADDTXT] 

Nguồn: https://www.cadtutor.net/forum/topic/74-lisp-to-add-a-prefix-or-suffix-to-selected-text/

1 Thêm ADDTXT.lsp

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

Code:

;;----------------------------------------------------------------------------;;
;; ADD TEXT PREFIX OR SUFFIX TO EXISTING TEXT
(defun C:ADDTXT (/ rep str *str ss txt sn vl e)
  (vl-load-com)
  (initget "Prefix Suffix")
  (setq rep
    (cond
      ((getkword "\nWhere to add Text [Prefix/Suffix]<Suffix>:")) ( "Suffix")
    )
  )
  (or (setq *str (getenv "Insert-Text")) (setq *str "Here"))
  (if (= "" (setq str (getstring (strcat "\nEnter " rep " Text \"" *str "\": "))))
    (setq str *str)
  )
  (setenv "Insert-Text" str)
  (setq ss (ssget "_:L" '((0 . "*TEXT"))))
  (foreach txt (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
    (setq vl (vlax-ename->vla-object txt))
    (setq e (entget txt))
    (cond
      ((= rep "Prefix")
          (vla-put-textstring vl (strcat str (cdr (assoc 1 e))))
      )
      ((= rep "Suffix")
          (vla-put-textstring vl (strcat (cdr (assoc 1 e)) str))
      )
    )
  )
  (princ "https://www.cadtutor.net/forum/topic/74-lisp-to-add-a-prefix-or-suffix-to-selected-text/")
  (princ "Share on www.lisp.vn")
  (princ)
)

Link tải

📥 https://www.mediafire.com/file/49yarv30h0gtbs2/

Nhóm AutoLISP Trải nghiệm

📥 http://newz.lisp.vn/

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

Ứ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!