带提示的ssget

jpg102329

1. ;18:05 2017/8/3
   
2. ;带提示的ssget
   
3. 【管理员】大海<tryhi@sina.cn> 10:14:48
   
4. ;; ssget  -  Lee Mac
   
5. ;; A wrapper for the ssget function to permit the use of a custom selection prompt
   
6. ;; msg - [str] selection prompt
   
7. ;; arg - [lst] list of ssget arguments
   
8. 
   
9. (defun LM:ssget ( msg arg / sel )
   
10.     (princ msg)
    
11.     (setvar 'nomutt 1)
    
12.     (setq sel (vl-catch-all-apply 'ssget arg))
    
13.     (setvar 'nomutt 0)
    
14.     (if (not (vl-catch-all-error-p sel)) sel)
    
15. )
    

;18:05 2017/8/3<br /> ;带提示的ssget<br /> 【管理员】大海<<a href="mailto:tryhi@sina.cn" target="_blank">tryhi@sina.cn</a>> 10:14:48<br /> ;; ssget  -  Lee Mac<br /> ;; A wrapper for the ssget function to permit the use of a custom selection prompt<br /> ;; msg - [str] selection prompt<br /> ;; arg - [lst] list of ssget arguments<br /> <br /> (defun LM:ssget ( msg arg / sel )<br />     (princ msg)<br />     (setvar 'nomutt 1)<br />     (setq sel (vl-catch-all-apply 'ssget arg))<br />     (setvar 'nomutt 0)<br />     (if (not (vl-catch-all-error-p sel)) sel)<br /> )<br />

<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！

ketxu

尘缘一生 发表于 2018-8-21 08:07
给出应用实例来！！！！！！！！！！！！！！

;;--------------=={ 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")))))

hhh454

这个咋用，不大懂，感觉挺好的

尘缘一生

给出应用实例来！！！！！！！！！！！！！！

yubihai

这个咋用，不大懂