jpg102329 发表于 2017-8-16 10:34:03

带提示的ssget

本帖最后由 jpg102329 于 2017-8-21 08:13 编辑

;18:05 2017/8/3
;带提示的ssget
【管理员】大海<tryhi@sina.cn> 10:14:48
;; ssget-Lee Mac
;; A wrapper for the ssget function to permit the use of a custom selection prompt
;; msg - selection prompt
;; arg - 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)
)

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

ketxu 发表于 2019-11-1 10:52:51

尘缘一生 发表于 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 发表于 2017-8-17 13:19:27

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

尘缘一生 发表于 2018-8-21 08:07:09

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

yubihai 发表于 2019-10-7 14:53:43


这个咋用，不大懂
页: [1]
查看完整版本: 带提示的ssget