AutoCAD LISP 讓ssget顯示自訂提示字串

ssget與entsel相比沒有自訂提示字串，固定顯示選取物件。

但還是有方法可以類似顯示自訂提示字串
應用nomutt(系統變數)來抑制通常不會被抑制的訊息顯示


介紹Lee Mac寫的ssget

;; ssget  -  Lee Mac
;; A wrapper for the ssget function to permit the use of a custom selection prompt
;; msg - [str] selection prompt
;; arg - [lst] list of ssget arguments
(defun LM:ssget ( msg arg / sel )
    (princ msg)
    (setvar 'nomutt 1)
    (setq sel (vl-catch-all-apply 'ssget arg))
    (setvar 'nomutt 0)
    (if (not (vl-catch-all-error-p sel)) sel)
 )