转发Lee Mac源码里面发现的一个SSGET带提示的写法

yanshengjiang

2.     (defun Lee_Mac_ssget ( msg filter / sel )
   
3.         (setvar 'NOMUTT 1)
   
4.         (princ msg)
   
5.         (setq sel (vl-catch-all-apply 'ssget (list filter)))
   
6.         (setvar 'NOMUTT 0)
   
7.         (if (and sel (null (vl-catch-all-error-p sel)))
   
8.             sel
   
9.         )
   
10.     )

    (defun Lee_Mac_ssget ( msg filter / sel )<br />         (setvar 'NOMUTT 1)<br />         (princ msg)<br />         (setq sel (vl-catch-all-apply 'ssget (list filter)))<br />         (setvar 'NOMUTT 0)<br />         (if (and sel (null (vl-catch-all-error-p sel)))<br />             sel<br />         )<br />     )

在别的地方从来没有见过，所以转发过来，也是给自己备个忘。

moranyuyan

谢谢分享

yanshengjiang

原来早就有人转发过来了

;;--------------=={ SSget with propmt @Lee }==----------------;;
;;  Arguments:                                                ;;
;;  msg : message                                             ;;
;;  params : list of ssget opt & fil                          ;;
;;------------------------------------------------------------;;
;;  Returns:  ssname / exit : edit @ket to out                ;;
;;------------------------------------------------------------;;
;;  Usage:                                                                                                    ;;
;; (LM:ssget                                                                                                   ;;
;;                "\nSelect object <abc>"                               ;;
;;                (list (list (cons 0 "LWPOLYLINE"))))                  ;;
;;------------------------------------------------------------;;
;;(setq b (LM:ssget "\nSelect Block to Align: " '("_+.:E:S" ((0 . "INSERT")))))

yanshengjiang

yanshengjiang 发表于 2024-9-24 18:11
原来早就有人转发过来了

;;--------------=={ SSget with propmt @Lee }==----------------;;

(setq b (LM:ssget "\nSelect Block to Align: " ' ((0 . "INSERT"))))

yanshengjiang

;(setq b (LM:ssget2 "\n选择地类符号: " '((0 . "INSERT"))))
(defun LM:ssget2        (msg filter / sel *error*)
  (defun *error* (m)
    (setvar 'NOMUTT 0)
    (princ)
  )
  (setvar 'NOMUTT 1)
  (princ msg)
  (setq sel (ssget filter))
  (setvar 'NOMUTT 0)
  (if (and sel (null (vl-catch-all-error-p sel)))
    sel
    (setvar 'NOMUTT 0)
  )
)

moshouhot

http://bbs.mjtd.com/forum.php?mo ... &fromuid=402689

qazxswk

来个SSGET带关键字的写法。论坛有一个，我感觉太复杂了

magicheno

感谢大佬分享

muai2010

qazxswk 发表于 2024-9-24 23:15
来个SSGET带关键字的写法。论坛有一个，我感觉太复杂了

我也想说这个，缺简洁的ssget关键字函数