yanshengjiang 发表于 2024-9-24 17:22:29

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

本帖最后由 yanshengjiang 于 2024-9-24 17:24 编辑

    (defun Lee_Mac_ssget ( msg filter / sel )
      (setvar 'NOMUTT 1)
      (princ msg)
      (setq sel (vl-catch-all-apply 'ssget (list filter)))
      (setvar 'NOMUTT 0)
      (if (and sel (null (vl-catch-all-error-p sel)))
            sel
      )
    )
在别的地方从来没有见过，所以转发过来，也是给自己备个忘。

yanshengjiang 发表于 2024-9-24 18:11:19

原来早就有人转发过来了:lol

;;--------------=={ 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 发表于 2024-9-24 18:44:05

;(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)
)
)

jun470 发表于 2024-9-25 21:35:24

我也期待有个好用的带提示的SSGET。给你们看几个样式，



原先SSGET的提示，固定的。                  楼主分享的，只在命令行         
   

***我觉得理想的提示，要跟随鼠标




跟随鼠标的提示我觉得才比较先进，不知道能不能实现。讨论讨论。








moranyuyan 发表于 2024-9-24 17:51:57

谢谢分享

yanshengjiang 发表于 2024-9-24 18:15:13

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

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


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

moshouhot 发表于 2024-9-24 22:44:24

http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=87590&pid=821273&fromuid=402689

qazxswk 发表于 2024-9-24 23:15:35

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

magicheno 发表于 2024-9-24 23:19:41

感谢大佬分享

muai2010 发表于 2024-9-24 23:34:06

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

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

yanshengjiang 发表于 2024-9-25 10:03:29

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

上面不就是吗
页: [1] 2
查看完整版本: 转发Lee Mac源码里面发现的一个SSGET带提示的写法